FTP Transfer with WININET.DLL
Posted on 2001-08-23
I'm using wininit to transfer for- and back-wards binary and ascii files with a server on the internet.
My code calls a piece of coding, i think i got from MS (called IDBAS_WININET.BAS ), to do low-level functions.
This is the one to xfer to the net :
Public Function PutFtpFile(HostName As String, Username As String, UserPassword As String, HostFilename As String, localFilename As String, Optional TransferMode As eFtpTransferType = FTP_TRANSFER_TYPE_ASCII) As Long
hInternet = InternetOpen(App.title, 0, "", "", 0)
hFTP = InternetConnect(hInternet, HostName, INTERNET_DEFAULT_FTP_PORT, Username, UserPassword, INTERNET_SERVICE_FTP, 0, 0)
PutFtpFile = FtpPutFile(hFTP, localFilename, HostFilename, INTERNET_FLAG_DONT_CACHE + TransferMode, 0)
It works o.k., but as soon as i try to send images of more than a few k's (22K for example), i get timeouts, and the transfer function generates an error.
Now my question :
Are their parms i can give to these Wininit.dll functions, to prevent timeouts from happening?
Or is their a better wrapper - module ?
Thanks in advance.