Solved

FTPPutFile Example

Posted on 2009-07-16
10
5,671 Views
Last Modified: 2013-11-23
Hi,
     I recently found some code on the internet to upload a file to my web site but I can't seem to get the parameters correct.

I tried upload_file('123.123.123.123', '/Httpdocs/', 'C:\Test\1TestFile.txt', '/Httpdocs/1TestFile.txt', 'myusername', 'mypassword');

and several variations but nothing seems to work.

Any help appreciated.
function upload_file(remote_server, 
                     directory, 
                     local_file, 
                     remote_file, 
                     user, 
                     pass: PAnsiChar): boolean; 
var hInet, hConnect: HINTERNET; 
    Dir, Put: Boolean; 
begin 
hInet := InternetOpen(nil, INTERNET_OPEN_TYPE_DIRECT, nil, nil, 0); 
hConnect := InternetConnect(hInet, 
                            remote_server, 
                            INTERNET_DEFAULT_FTP_PORT, 
                            user, pass, 
                            INTERNET_SERVICE_FTP, 
                            INTERNET_FLAG_PASSIVE, 
                            0); 
Dir := ftpSetCurrentDirectory(hConnect, directory); 
WaitForSingleObject(Cardinal(Dir), infinite); 
Put := ftpPutFile(hConnect, local_file, remote_file, FTP_TRANSFER_TYPE_BINARY, 0); 
InternetCloseHandle(hInet); 
InternetCloseHandle(hConnect); 
Result:= Put; 
end;

Open in new window

0
Comment
Question by:pr_wainwright
  • 5
  • 5
10 Comments
 
LVL 14

Accepted Solution

by:
flob9 earned 250 total points
ID: 24867478
Did you try

upload_file('123.123.123.123', '/Httpdocs/', 'C:\Test\1TestFile.txt', '1TestFile.txt', 'myusername', 'mypassword');

or :

upload_file('123.123.123.123', 'Httpdocs/', 'C:\Test\1TestFile.txt', '1TestFile.txt', 'myusername', 'mypassword');
0
 
LVL 1

Author Comment

by:pr_wainwright
ID: 24867585
flob9,
         Sorry neither work.

Regards
Paul.
0
 
LVL 14

Expert Comment

by:flob9
ID: 24867636
Try to get the error with InternetGetLastResponseInfo or GetLastError.
0
Windows Server 2016: All you need to know

Learn about Hyper-V features that increase functionality and usability of Microsoft Windows Server 2016. Also, throughout this eBook, you’ll find some basic PowerShell examples that will help you leverage the scripts in your environments!

 
LVL 1

Author Comment

by:pr_wainwright
ID: 24868135
Flob9,
         I get Error 6 (The Handle is Invalid)

Regards
Paul.
0
 
LVL 14

Expert Comment

by:flob9
ID: 24868298
Check if InternetConnect succeed, and if not, grab the error code.

"I get Error 6 (The Handle is Invalid)" <<< it must be the hConnect
0
 
LVL 14

Expert Comment

by:flob9
ID: 24868305
also check without the INTERNET_FLAG_PASSIVE
0
 
LVL 1

Author Comment

by:pr_wainwright
ID: 24869290
flob9,
         How do I use internetGetLastResponseInfo?

Thanks
Paul.
0
 
LVL 1

Author Closing Comment

by:pr_wainwright
ID: 31604143
My companys FTP policy was blocking the code. At home when tested your code worked fine.
Thanks
Paul.
0
 
LVL 14

Expert Comment

by:flob9
ID: 24876526
something like this :
ErrorNum: Cardinal;
  ErrorBuf: string;
  ErrorLen: Cardinal;
 
[...]
 
hConnect := InternetConnect(hInet, 
                            remote_server, 
                            INTERNET_DEFAULT_FTP_PORT, 
                            user, pass, 
                            INTERNET_SERVICE_FTP, 
                            INTERNET_FLAG_PASSIVE, 
                            0); 
 
if InternetGetLastResponseInfo( Errornum, pChar( ErrorBuf ), ErrorLen ) then
begin 
SetLength( ErrorBuf, ErrorLen );
ShowMessage(ErrorBuf);
end

Open in new window

0
 
LVL 1

Author Comment

by:pr_wainwright
ID: 24877075
flob9,
         Thanks for the code.

Regards
Paul.
0

Featured Post

DevOps Toolchain Recommendations

Read this Gartner Research Note and discover how your IT organization can automate and optimize DevOps processes using a toolchain architecture.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Introduction The parallel port is a very commonly known port, it was widely used to connect a printer to the PC, if you look at the back of your computer, for those who don't have newer computers, there will be a port with 25 pins and a small print…
Have you ever had your Delphi form/application just hanging while waiting for data to load? This is the article to read if you want to learn some things about adding threads for data loading in the background. First, I'll setup a general applica…
This video shows how to quickly and easily add an email signature for all users on Exchange 2016. The resulting signature is applied on a server level by Exchange Online. The email signature template has been downloaded from: www.mail-signatures…
Email security requires an ever evolving service that stays up to date with counter-evolving threats. The Email Laundry perform Research and Development to ensure their email security service evolves faster than cyber criminals. We apply our Threat…

773 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question