|
Crear DLL
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.
|