Solved

FTPPutFile Example

Posted on 2009-07-16
10
5,638 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
 
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
Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

 
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

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

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

Suggested Solutions

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…
In my programming career I have only very rarely run into situations where operator overloading would be of any use in my work.  Normally those situations involved math with either overly large numbers (hundreds of thousands of digits or accuracy re…
This Micro Tutorial will teach you how to censor certain areas of your screen. The example in this video will show a little boy's face being blurred. This will be demonstrated using Adobe Premiere Pro CS6.
Windows 10 is mostly good. However the one thing that annoys me is how many clicks you have to do to dial a VPN connection. You have to go to settings from the start menu, (2 clicks), Network and Internet (1 click), Click VPN (another click) then fi…

911 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

Need Help in Real-Time?

Connect with top rated Experts

16 Experts available now in Live!

Get 1:1 Help Now