Delphi FAQ Sieć

Jak wysłać plik na serwer FTP

explosive

Potrzebny ci do tego bedzie TIdFTP, z zakładki Indy Clients (nazwijmy go IdFTP).

procedure TForm1.Button1Click(Sender: TObject);
begin
  with IdFTP do
    begin  
      Password := 'Hasło';
      Username := 'Nazwa_użytkownika';
      Host := 'ftp://adres_ftp.pl';
      Connect(True, -1);
      //Stuff
      Disconnect;
    end;
end;

W zdarzeniu AfterClientLogin.

IdFTP.Put('C:\index.html', 'index.html', True);

Zobacz też:

11 komentarzy

Cos to nie smiga... \'Login incorrect\' mi wyskakuje :/

Ustaw Passive na True :P

Hej mam problem BŁAD MI WYSJAKUJE I
SOCKET ERROR 10060 connection timed out.
co mam zrobić stym !!!

Kurcze....Mi to nie działa ..... wypada mi bład \"Friko0 FTP server ready\"
Spoko tylko strne mam na republiace :)

Z tym -1 chodzi o timeout.

A dlaczego serwer jest przez "v"? Polacy nie gęsi, swój język mają :)

ale chyba równoznaczne by chyba było gdyby:
idftp1.Put('C:\index.html','index.html',true);
wrzucić między Connect a Disconnect

Dobrze, że jest - ja np. nie wiedziałem :P

Dla ciebie może prostymi, ale po 1. po to jest FAQ, a po 2. wiele razy na forum pytano się o to

Po co zaśmiecać FAQ prostymi rzeczami ??

Mam takie małe pytanko: Dlaczego jako drugi parametr funkcji 'Connect' jest podana liczba -1?