Crear DLL

[Dario Gustavo]

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.

[Neftali [Germán.Estévez]]

¿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?

[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.

[Neftali [Germán.Estévez]]

¿No deberías crear el componente?

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