Crear DLL

[Dario Gustavo]

Neftali,

Te adjunto listado de la DLL que quiero crear, el objeto TFtpClient es un componente freeware que tengo instalado en una de las paletas y al que hago referencia en la instruccion Uses FTPCLI. Si creo una aplicacion y arrastro el objeto no tengo problemas. El tema es que necesito encapsularlo en una DLL. La excepcion me la da otro programa (escrito en lenguaje VFP) cuando hago referencia a la funcion FTPGetFile de esta libreria.

Gracias
Dario.

library tools;

uses
FtpCli;

{$R *.RES}

Var
FtpClient1: TFtpClient;

Function FTPGetFile(Var HostName,Usuario,Password,HostDir,Archivo_Remoto,Archivo_Local: String): Integer; stdcall;
Begin
FtpClient1.HostName := HOSTNAME;
FtpClient1.UserName := USUARIO;
FtpClient1.PassWord := PASSWORD;
FtpClient1.HostDirName := HOSTDIR;
FtpClient1.LocalFileName := Archivo_Local;
FtpClient1.HostFileName := Archivo_Remoto;
FtpClient1.Receive;
FTPGetFile := FtpClient1.StatusCode;
End;

Exports
FTPGetFile;

begin
end.