topic-27158

Posts: 479

Joined: Fri Feb 16, 2007 10:29 AM

conexión mediante FTP
Posted: Fri Sep 06, 2013 09:12 AM

Compañeros, buenos días:

Si hago así, NO conecto porque me dice "Cannot load WinInet.dll"

   local oInternet := TInternet():New()
  local oFTP      := TFTP():New( "ftp.microsoft.com", oInternet )

Si hago así, SI conecto:

Code (fw): Select all Collapse

 cUrl   :="ftp://"+cUser+":"+cPass+"@"+cServer
 oUrl:=tUrl():New(cUrl)
 oFtp:=tIPClientFTP():New(oUrl,.T.)

... pero a la hora de buscar un arvhivo.EXE mediante aFiles:=oFtp:Directory() me muestra el siguiente error:

Code (fw): Select all Collapse

   Error description: Error BASE/1004  Message not found: TIPCLIENTFTP:DIRECTORY

Stack Calls
===========
   Called from: source\rtl\tobject.prg => TIPCLIENTFTP:ERROR(172)

Necesito comparar un EXE en PC-local con un EXE remoto en el servidor. ¿ Cómo lo hago ?

Mil gracias.
Un saludo.
LORENZO, desde Cádiz, España.

Antonio Mart.

Posts: 174

Joined: Sat Feb 23, 2013 10:04 AM

Re: conexión mediante FTP
Posted: Fri Sep 06, 2013 05:11 PM

Loren,

Para que funcionen las clases Ftp de Fwh tienes que arreglar el error "Cannot load WinInet.dll"

Para solucionar ese error hay que modificar una funcion en el fuente wininet.prg.

Code (fw): Select all Collapse

//----------------------------------------------------------------------------//
function WinINet()

   if hWinINet == nil
      //hWinINet = LoadLib32( "WinINet.dll" )
      hWinINet = LoadLibrary( "WinINet.dll" ) // Aqui el arreglo !!
      if Abs( hWinINet ) <= 32
         MsgStop( "Cannot load WinINet.dll!" )
      endif
   endif
return hWinINet

Espero que te sirva. Saludos.

FiveTech Support Forums

Continue the discussion