brenaaro
When I upload a file using the SmartFTP library through an HTTP proxy (Squid), there is a chunk of file missing on the remote server. (The local file is 20 KB, the remote file is only 18 KB)
However, if I upload using the SmartFTP Client (again through the same HTTP proxy) the file is transfered correctly. Also, I do not have a problem when using DownloadFile32() from the library.
Here is the code I am using:
Dim wCon As FTPConnection
Dim e As enumError
Set wCon = New FTPConnection
wCon.Client = "smartftp"
wCon.ProxyType = ftpProxyTypeHTTP
wCon.ProxyHost = "ttimprx1"
wCon.ProxyPort = 3128
wCon.Host = "10.1.3.207"
wCon.Port = 21
wCon.Username = "user"
wCon.Password = "user1"
wCon.DataTransferType = ftpDataTransferTypeImage
e = wCon.Connect()
If (e <> ftpErrorSuccess) Then
MsgBox "could not connect"
Exit Sub
End If
If wCon.UploadFile32("c:dev2bonjour.doc", "/merx/bonjour.doc", 0) <> ftpErrorSuccess Then
MsgBox "could not upload"
End If
wCon.Disconnect
Is this a bug?
Edit: I am using build 1.0.1.22
However, if I upload using the SmartFTP Client (again through the same HTTP proxy) the file is transfered correctly. Also, I do not have a problem when using DownloadFile32() from the library.
Here is the code I am using:
Dim wCon As FTPConnection
Dim e As enumError
Set wCon = New FTPConnection
wCon.Client = "smartftp"
wCon.ProxyType = ftpProxyTypeHTTP
wCon.ProxyHost = "ttimprx1"
wCon.ProxyPort = 3128
wCon.Host = "10.1.3.207"
wCon.Port = 21
wCon.Username = "user"
wCon.Password = "user1"
wCon.DataTransferType = ftpDataTransferTypeImage
e = wCon.Connect()
If (e <> ftpErrorSuccess) Then
MsgBox "could not connect"
Exit Sub
End If
If wCon.UploadFile32("c:dev2bonjour.doc", "/merx/bonjour.doc", 0) <> ftpErrorSuccess Then
MsgBox "could not upload"
End If
wCon.Disconnect
Is this a bug?
Edit: I am using build 1.0.1.22