Ver Mensaje Individual
  #1  
Antiguo 14-02-2008
Avatar de enecumene
[enecumene] enecumene is offline
Miembro de Oro
 
Registrado: may 2006
Ubicación: Santo Domingo, Rep. Dom.
Posts: 3.040
Reputación: 22
enecumene Va por buen camino
Duda haciendo Librerías DLL

Holas compañeros, estoy aprendiendo a crear y usar librerias DLL, tengo este código:

Código Delphi [-]
library Project1;

uses
  SysUtils,
  Graphics,
  Classes;

{$R *.res}

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

procedure Fondo; stdcall; export;
var color: TColor;
begin
  color := clWhite;
end;


exports
    Hola,
    Fondo;

begin
end.


el pedazo de codigo que esta en negrita, no se si es correcto, al compilar no me da problemas, asi es como lo estoy llamando:

Código Delphi [-]
procedure Hola; external 'EjemploDLL.dll';  
procedure Fondo; external 'EjemploDLL.dll'; 

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

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.Color := Fondo;
end;

cuando intento correr la aplicacion, me da este error:

Cita:
Interface not supported
me imagino que el problema viene del procedimiento Fondo de la Librería. cual es la manera correcta de hacerlo?

saludos
__________________

Mi BLOG - ¡Joder, leanse la guia de estilo!
Las Palabras son enanas, los ejemplos gigantes.
Responder Con Cita