DLL de programación Delphi
1.? Archivo de proyecto DLL, test.dll:
¿Biblioteca? testDll
Usar
SysUtils,
clase,
formulario,
FormDll? ¿existir? ¿'FormDll.pas'? { frm dll };
{$R? *.RES}
¿Función? ObtenerDllForm:? ¿Forma T? llamada estándar? Salir;
Iniciar
¿Resultado? :=?frmDll
Fin;
Salir
GetDllForm
Inicio
Fin.
2.? El formulario contenido en la dll tiene un botón FormDll.pas:
Unidad? FormDll
Conectar
Usando
Windows,? ¿información? SysUtils? ¿variante? ¿clase? gráficos,? Control,? Formulario,
¿Conversación? StdCtrls
Tipo
TfrmDll? =?Categoría(formato t)
Botón1:? botón t;
¿Programar? Botón1Clic(remitente:?al objeto);
Privado
{?Privado? ¿declarar? }
Público
{?Público? ¿declarar? }
Fin;
Definir variables
frmDll:? TfrmDll
Rendimiento
{$R? *.dfm}
¿Programa? TfrmDll. Button1Click(Remitente:?al objeto);
Inicio
MessageDlg('Ha utilizado correctamente el formulario DLL., mMessage,?[mbOK],?0) ;
Fin;
Inicialización
Iniciar
frmDll? :=?TfrmDll. Crear(Aplicar);
Fin;
Finalizar
Iniciar
frmDll. Gratis;
Fin;
Fin.
3.? El archivo testdll.pas que llama al formato dll:
Unidad? testdll
Conectar
Usando
Windows,? ¿información? SysUtils? ¿variante? ¿clase? gráficos,? Control,? Formulario,
¿Conversación? StdCtrls
Tipo
TForm2? =?Categoría(formato t)
Botón1:? botón t;
¿Programar? Botón1Clic(remitente:?al objeto);
Privado
{?Privado? ¿declarar? }
Público
{?Público? ¿declarar? }
Fin;
Definir variables
Form2:? ¿Función TForm2
? ObtenerDllForm:? TForm
Rendimiento
{$R? *.dfm}
¿Función? ObtenerDllForm:? ¿Forma T? ¿externo? testdll .dll ';
¿Programa? TForm2Button1Click(remitente:? al objeto);
Definir variables
un formulario:? TForm
Iniciar
¿AForm? :=?GetDLLForm
Un formulario. Mostrar;
Fin;
Fin.
4.? Mostrar resultados: