ارسال فایل بوسیله FTP

[Delphi Skyline]

من می خواهم در دلفی با دادن host و usename و password دامینم یک فایل به آنجا ارسال کنم . چه طوری ؟

[Delphi-Clinic]

سلام


try
FTPObject.Hostname := FTPUpload.Server;
FTPObject.Username := FTPUpload.Username;
FTPObject.Password := FTPUpload.Password;
FTPobject.ConnectTimeout := FTPupload.Timeout*1000;

if not FTPObject.Connect then
begin
Error('failed to connect to server');
exit;
end;

except
on E: Exception do
begin
Error(Format('Failed to connect to FTP server %s',[FTPUpload.Server]));
EXIT;
end;
end;

{ Change Working Directory }
try
if FTPUpload.Directory <> '' then
FTPObject.ChangeRemoteDir(FTPUpload.Directory);
except
on E: Exception do
begin
Error(Format('Failed to switch to FTP folder %s',[FTPUpload.Directory]));
EXIT;
end;
end;

//FTPObject.Mode(MODE_BYTE);
FTPObject.Transfertype := ttBinary;
LocalFile := CommonExportFolder + FTPUpload.FileNameToSend;
{ Includes date/time in remote file name to keep name unique on a resend }
RemoteFile := Prefix + FormatDateTime('yyyymmddhhnnss', now) + NameList[i];
try
FTPObject.PutQualifiedFile(LocalFile,RemoteFile);
except
Error('Failed Copying File '+Localfile+' To '+Remotefile);
end;

[Touska]

یا از کامپوننتهای Indy استفاده کنی و مثا لش همراه دلفی هست

موفق باشید :flower:

[Delphi Skyline]

متشکرم از دوتای شما

[Delphi Skyline]

آقای کلینیک منظور شما چه Componentی است؟

[Delphi Skyline]

آقای کلینیک منظور شما چه Componentی است؟
آقای touska همچین demo ای نیافتم!!!

[Touska]

در دلفی 7 Demo ها را باید Download کنید.

http://www.indyproject.org/download/Borland.iwp

ولی در دلفی 6 وجود دارد.

موفق باشید :flower:

[Touska]

برات گذاشتم بالا

موفق باشید :flower:

[Delphi Skyline]

متشکرم

[Delphi-Clinic]

آقای کلینیک منظور شما چه Componentی است؟


سلام

ببین من خیلی راحت انتقاد می کنم.

دوستانی که منو از نزدیک می شناسن می دونن که آدم رک و راحتی هستم و با کسی تعارف ندارم.

متدی که من برای شما نوشتم یک متد کلی جهت استفاده از پروتکل اینترنتی FTP است.

به نظر من اینقدر به بازی با کامپوننتها و تیپهای آماده دلفی عادت کردی که درک یک کد ساده برات مشکل شده.

به عنوان یک دوست دارم بهت هشدار می دم که این روش برنامه نویسی در دراز مدت صدمات جبران ناپذیری به کارت می زنه.

یعنی اگر ابزار نداشته باشی هیچی نیستی و اگر ابزار داشته باشی برنامه نویسی. :)

منو ببخش اما بهتره جای اظهار نظرهای الکی کمی به عقب برگردی و مبانی کدنویسی رو بخونی .
دلیل قدرت دلفی و توسعه آن وجود روحیه سازندگی در بین برنامه نویسان دلفی است.

مثال بارز در این رابطه سایت :
www.delphi-jedi.org است.اگر یه نگاهی به لیست پروژه های انجام شده در این سایت بندازی قطعا منظور منو بهتر درک می کنی.

روز خوش :)

[Delphi Skyline]

متشکرم