Como hacer una libreria DLL

Por Saiyine el 2001-01-01 00:00:00 - Secciones: DELPHI - Enlace permanente: 445

library EjemploDLL;

uses
SysUtils,
Classes,
dialogs;

procedure Hola; stdcall; export;
begin
        ShowMessage('Holaaaaaaaa');
end;

exports Hola;
end.

Este es un ejemplo de DLL muy simple, que solo contiene el procedimiento Hola. Como podeis ver hay al menos tres diferencias con un programa normal:

1/ library EjemploDLL; ---> Para indicar al compilador que es una libreria

2/ procedure Hola; stdcall; export; ---> Con esas dos palabras indicamos que ese procedimiento se puede usar por otro programa.

3/ exports Hola; ---> Dejamos claro que es lo que queremos exportar.

Luego, para usarla solo tenemos que hacer: (haz un programa con dos botones para el ejemplo)

procedure Hola; external 'EjemploDLL.dll';

procedure TForm1.Button1Click(Sender: TObject);
begin
        Hola;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
hMod : THandle;
HelloWorld : procedure;
begin
        hMod := LoadLibrary('EjemploDLL.dll');
        if (hMod = 0) then Exit;
        @Hola := GetProcAddress(hMod, 'Hola');
        if @Hola  nil then Hola;
        FreeLibrary(hMod);
end;

El segundo metodo es bastante mas complicadillo, pero permite mucho mas control en plan dar un error si el DLL no se encuentra y cosas asi.

Por cierto, los DLL se pueden ejecutar (lease, 'el windows los encuentra') cuando estan en:

1/ El mismo directorio que el ejecutable

2/ En el directorio de windows (C:\windows normalmente)

3/ En el directorio de sistema de windows (C:\windows\system normalmente)

4/ En los directorios señalados por la variable de sistema PATH

Deberia haber una tercera forma para llamar a las funciones de un dll, en realidad es una variante de la segunda, que es guardar el dll dentro de los resources del ejecutable y luego leerlo en tiempo de ejecucion, pero no consigo hacerlo sin pasar por el disco (en el momento en que el dll se escribiese en el disco estariamos haciendo la version dos de la llamada)... esto que puede parecer un rollo tiene su utilidad, con esto podrias hacer programas que practicamente no dieran problemas de pantallazos azules.

Otras entradas de la web que podrian interesarte:

(442) ene 01 DELPHI Como averiguar el codigo ascii de una tecla pulsada en el form y como simular la pulsacion de otra
(476) nov 30 DELPHI Hacer que el programa espere un tiempo, como con el delay del turbo pascal
(521) nov 30 LINUX ¿Como puedo montar una imagen ISO (imagenes de CD) y usarla como si fuera un directorio?
(472) nov 30 DELPHI Dada una cadena con palabras y separadores, mostrar cada palabra en una linea de un memo
(479) nov 30 DELPHI Hacer un mismo codigo para varios controles

Juan Carlos Mercado (2005-11-19 12:55:00)

Te escribo porque se me hace interesante el tema, ya que por mucho tiempo he estado interesado en aprender como hacer librerías DLL, pero de momento lo que me interesa es hacer una que sea capaz de manejar el puerto paralelo, para comunicarse con una interfaz, ya he visto algunas hechas, pero quisiera elaborar una con ciertas caracteristícas que me interesan, no se si esto se pueda hacer en delphy, porque solo lo he visto con "C", o si es que se pueden hacer con Visual Basic.
Saludos y gracias por anticipado.

Disculpa las faltas, es solo que no manejo muy bien el Español, apenas llevo 6 años usandolo, hasta luego

2584

Anonimo (2008-08-05 12:25:49)

3470

Anonimo (2009-06-15 05:58:27)

Se pueden crear librerías dll en cualquier lenguaje de programación?

3471

Saiyine (2009-06-15 06:16:38)

Hombre, en cualquiera no, pero en los principales de Windows si.

En general, supongo que cualquiera que pueda crear ejecutables de Windows, podrá crear tambien librerias.

4028

MRLS (2009-12-02 02:05:48)

Hola, yo trabajo con Java y pude generar una dll a partir de un método nativo para limpiar pantalla, eso fue con C, ahora quiero hacer lo mismo pero con código en ensamblador. ¿Cuál es la forma de crear una dll con código ASM puro sin pasar por C? (Si es que esto se puede hacer)

4556

Anonimo (2010-06-20 10:53:06)

<script>alert('No me sirvio de nada

');</script>

4557

Anonimo (2010-06-20 10:53:48)

<script>alert('No me sirvio de nada');</script>

o o o o

Vista previa (6/6/6, 6:66)

Fondos de pantalla

. . .

Menuda oferta, ¿un pendrive Verbatim de 16Gb por solo 8,99€???

Secciones

Principal

Delphi

Java

PHP

Ideas

. . .

Tags de la web

Linux (118) - Delphi (56) - Tuiterbuc (52) - Imagenes (45) - English (42) - Java (31) - Videos (28) - Lyrics (27) - Windows (25) - Chorradas (21) - Futbol (20) - Publicidad (17) - Programas (17) - Javascript (16) - Programacion (14) - Perl (14) - Ideas (14) - Cine (12) - Php (11) - Slashdot (10) - Minipost (8) - Trucos (8) - Utilerias (7) - Frases (7) - Csharp (7) - Ubuntu (6) - Google (6) - Photoshop (6) - Fotos (6)

. . .

Descargas

ApagaPC
apagapc241.exe (4488)

LimpiaDocus
LimpiaDocus001.exe (3792)

RCM
rcm001.zip (3200)

Popmail
popmail-0.4-psmn.tar.gz (3272)

Manual de Delphi en PDF
delphi_pdf.zip (3904)

Evangelio del Perl
Evangelio_del_perl.pdf (3983)

Excel Simpsons
Excel Simpsons (3914)

. . .

ltimos comentarios

481 - Alvareto: Buenas, Lino... el procedimiento: Justifica(ListBox1.Items,ListBox1.font,ListBox1.width); lo ubicas también en el BeforePrint o...

920 - jftc: jftc es lo maximo

920 - Anonimo: exelente gracias por la ayuda

...

877 - Anonimo: parpadeen muchas veses y veran que se mueve ...

920 - Anonimo jaja: jjaj buena la pag me sirvio para comprar muchas cosas...

924 - Anonimo: muy bueno. saludos.

. . .