FTPPutFile() requires too minutes to upload

[marzio]

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.

[marzio]

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.

[ShumingWang]

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 .

[ShumingWang]

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 .

[ssbbs]

l1:=FTPGETFILE( oFtp, "mysite/my.exe", "my.exe", 0,32, 0, 0 )

你只要下載或是上傳的檔案附檔名是 .exe 檔案，就會觸發防毒軟體,
嘗試關閉防毒軟體再測試，
如果都正常，就要去找出防毒軟體哪個設定造成的問題。

[marzio]

I informed my provider Aruba of my problem, stating that the domain http://www.emagsoftware.it was not experiencing the blockages I was complaining about.
They moved my account to the same server as emagsoftware, but they didn't solve the problem.
To prevent my program from blocking, I'll move the process to upload files on internet, to an external exe file,
calling it when my program exits.

thanks to Enrico, karinha, ShumingWang and ssbbs.

[karinha]

Look,

https://javierlloris.blogspot.com/p/pro ... lases.html

https://www.leechftp.de/

https://fivewin.com.br/index.php?/topic ... ad-upload/

Regards, saludos.