Want a simple KOLFTP example

← →
lundeholm (2005-07-20 02:52) [0]

Hi!

I tried KolFTP today. I couldn't get it to work. This is my code:

program Project2;

{$APPTYPE CONSOLE}

uses
kol,kolftp,windows;

var FTP:TKOLFTP;
begin
FTP:= NewKOLFtpClient;

FTP.HostAddr:='ftp.home.no';
FTP.UserName:='filipsprogram';
FTP.UserPass:='password';

FTP.Connect;
FTP.Login;

FTP.Put('c:\arrow.bmp');

FTP.Close;
FTP.Free

end.

I want to upload c:\arrow.bmp but this fails. What am I doing wrong?

← →
Dodfr (2005-07-20 11:46) [1]

are you NATed behind a proxy/firewall ? if yes, you cannot do FTP wihtout PASSIVE mode.

← →
lundeholm (2005-07-20 14:26) [2]

Thanks for your reply Dodfr.

My firewall pops up when executing the program but I click "Yes, allow this connection" in the box, so that should not be the problem. I don't know much about this stuff, so my guess is that my code is wrong. I tried changing to passive mode, but it didn't work.

← →
Thaddy (2005-07-20 14:46) [3]

You could try and use my kolsimpleftp with the INTERNET_MODE_PASSIVE flag in the internetconnect call.
kolsimpleftp uses the wininet api, just like ftp.exe that comes with the operating system.

← →
lundeholm (2005-07-20 21:01) [4]

Thaddy, your component worked fine. Thanks.

Want a simple KOLFTP example Найти похожие ветки