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?
|
La franja horaria es GMT +2. Ahora son las 17:17:32. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi