Eu estou tentando compilar um exemplo de Ftp e aconteceu o seguinte :
CANNOT LOAD WinINet.dll !
Testei em 5 Micros:
3 com XP e conecçao ADSL, deu erro da DLL
1 com Win98 conecçao Via radio, deu certo
1 com XP conecçao Via radio, deu certo
O Ex. q eu estou testando eh este.
FTPDIR.PRG
Code: Select all | Expand
// Testing the FiveWin new Internet Classes
#include "FiveWin.ch"
//----------------------------------------------------------------------------//
function Main()
local oInternet := TInternet():New()
local oFTP := TFTP():New( "ftp.host.com.br", oInternet,"UserName","PassWord" ) // Microsoft FTP
local aFiles
if ! Empty( oFTP:hFTP )
aFiles = oFTP:Directory( "*.*" )
AEval( aFiles, { | aFile | MsgInfo( aFile[ 1 ] ) } )
msginfo("conectou")
else
MsgAlert( "oFTP:hFTP is null" )
endif
oInternet:End()
MsgInfo( "Done!" )
return nil
//----------------------------------------------------------------------------//
@braços Ale
[/code]
