Ja wahrscheinlich schon^^
Aber hier nochmal mein kompletter Quelltext, vllt habe ich ja auch die falsche
FTP Adresse eingegeben, was ich aber nicht glaube naja, solange ich von vorne anfange hier nochma das Ganze:
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdFtp, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdExplicitTLSClientServerBase;
type
TForm1 =
class(TForm)
Button1: TButton;
ftp: TidFTP;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
with ftp do
begin
try
Host := '
ftp://kidgudi.ki.funpic.de/';
Username := '
kidgudi';
Password := '
*****';
Passive := true;
Connect;
Put('
C:\text.txt', '
text.txt', false);
Disconnect;
finally
ftp.Free;
end;
end;
end;
end.