Crear DLL
 

Buenos Dias,

Estoy tratando de desarrollar una DLL que encapsule un componente para descargas por FTP.

En el cuerpo principal (FTP.DPR) hago algo del tipo:

Var
FTPCliente: TFTPCliente;
Begin
FTPCliente.HostName = HOSTNAME;
.......

y al ejecutar esta funcion de la libreria me da una exepcion.
Supongo que tengo que crear el objeto pero no se como.
Si hago FTPCliente = TFTPCliente.Create(Application) tambien me da error.
Como debo hacer ??

Gracias
Dario.

¿Exactamente qué error te da? Si no va a ser difícil ayudarte...
Otra cosa, ¿Cual es la sintaxis del constructor para la clase TFTPCliente?

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.

¿No deberías crear el componente?

Código Delphi [-]
 ...
   FtpClient1 := TFtpClient.Create(....);
 ....
 
 // y destruirlo al final
    FtpClient1.Free;