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]
