I found another FTP function on the forum, but it gives me the same problem.
At this point, I'll have to test it with an unencrypted file,
and then on a different server (there may be more stringent restrictions on the one I'm using).
I'll report the results
thanks at all.
I tried with another FTP provider (Altervista) and the problem does NOT appear.
Whether I answer "yes" or "no" to the firewall, the function FTPPutFile) responds instantly.
So it seems to depend on Aruba, perhaps some security settings different from yours Enrico.
I will try to speak with Aruba support.
hLib = LOADLIBRARY( "wininet.dll" )
oInternet = TInternet():New()
IF oInternet:hSession != 0
oFtp = TFtp():New( "xtech2.top", oInternet, "ftpcount", "ftppassword")
IF oFtp:hFTP != 0
l1:=FTPGETFILE( oFtp, "mysite/my.exe", "my.exe", 0,32, 0, 0 )
?l1 // --> .f.
oFtp:End()
endif
else
end
FREELIBRARY( hLib )
return nil
DLL32 FUNCTION FTPGETFILE( hConnect AS LONG, cRemoteFile AS LPSTR, cNewFile AS LPSTR, nFailIfExists AS LONG, nFlagsAndAttribs AS DWORD, nFlags AS DWORD, @nContext AS PTR ) AS BOOL;
PASCAL FROM "FtpGetFileA" LIB hLib
but filezilla ftp works .
hLib = LOADLIBRARY( "wininet.dll" )
hInternet := INETOPEN( "Anystring", 1, 0, 0, 0 )
hConnect := INETCONNECT( hInternet, "mysite",21, "ftpacount", "ftppassword", 1, 0,0 )
if !EMPTY( hInternet ).and.!EMPTY( hConnect )
FTPGETFILE( hConnect, "cpath/my.exe", "my.exe", 0,32, 0, 0 )
end
INETCLOSEHANDLE( hConnect )
INETCLOSEHANDLE( hInternet )
FREELIBRARY( hLib )
This works .
ShumingWang wrote: l1:=FTPGETFILE( oFtp, "mysite/my.exe", "my.exe", 0,32, 0, 0 )你只要下載或是上傳的檔案附檔名是 .exe 檔案，就會觸發防毒軟體,
