var
Str: TStringStream;
FTP: TIdFTP;
begin
Str := TStringStream.Create;
FTP := TIdFTP.Create(nil);
try
with FTP do
begin
Host := '176.1.333.555';
Username := 'Username';
Password := 'Password';
Connect;
if Connected then
begin
ChangeDir('/tmp');
Get('Test.txt', Str, True);
Str.WriteString('Sample Text');
Put(Str, 'Test.txt');
end
else
MessageDlg(Format('Could not connect to %s', [Host]), mtError,
[mbOK], 0);
end;
finally
Str.Free;
FTP.Disconnect;
FTP.Free;
end;
end;
قبل از پست دادن یک دور متدهای idFTP رو بررسی کنید ، یکم از خودتون خلاقیت نشون بدید ، اضافه کردن یک خط کد کار پیچیده ای نیست ، دنبال لقمه آماده نباشید .