Olá Amigos,
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
@braços Ale
[/code]
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
// 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]
aleseribeli@hotmail.com
FwH, Hb Svn, ADS 8.1, ADS 10, Pelles C, FwPPC, MsVc 2008, MsVc 2010
"Conhecimento, você não subtrai quando divide; mas soma e multiplica."
**---Mário Persona---**
FwH, Hb Svn, ADS 8.1, ADS 10, Pelles C, FwPPC, MsVc 2008, MsVc 2010
"Conhecimento, você não subtrai quando divide; mas soma e multiplica."
**---Mário Persona---**
