Red de conocimiento informático - Computadora portátil - DLL de programación Delphi

DLL de programación Delphi

A continuación se muestra el código de muestra que escribí. Para completar este ejemplo, se requieren tres archivos:

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: