من می خواهم در دلفی با دادن host و usename و password دامینم یک فایل به آنجا ارسال کنم . چه طوری ؟
Printable View
من می خواهم در دلفی با دادن host و usename و password دامینم یک فایل به آنجا ارسال کنم . چه طوری ؟
سلام
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& #41;;
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,RemoteFil e);
except
Error('Failed Copying File '+Localfile+' To '+Remotefile);
end;
یا از کامپوننتهای Indy استفاده کنی و مثا لش همراه دلفی هست
موفق باشید :flower:
متشکرم از دوتای شما
آقای کلینیک منظور شما چه Componentی است؟
آقای کلینیک منظور شما چه Componentی است؟
آقای touska همچین demo ای نیافتم!!!
در دلفی 7 Demo ها را باید Download کنید.
http://www.indyproject.org/download/Borland.iwp
ولی در دلفی 6 وجود دارد.
موفق باشید :flower:
برات گذاشتم بالا
موفق باشید :flower:
متشکرم
سلامنقل قول:
آقای کلینیک منظور شما چه Componentی است؟
ببین من خیلی راحت انتقاد می کنم.
دوستانی که منو از نزدیک می شناسن می دونن که آدم رک و راحتی هستم و با کسی تعارف ندارم.
متدی که من برای شما نوشتم یک متد کلی جهت استفاده از پروتکل اینترنتی FTP است.
به نظر من اینقدر به بازی با کامپوننتها و تیپهای آماده دلفی عادت کردی که درک یک کد ساده برات مشکل شده.
به عنوان یک دوست دارم بهت هشدار می دم که این روش برنامه نویسی در دراز مدت صدمات جبران ناپذیری به کارت می زنه.
یعنی اگر ابزار نداشته باشی هیچی نیستی و اگر ابزار داشته باشی برنامه نویسی. :)
منو ببخش اما بهتره جای اظهار نظرهای الکی کمی به عقب برگردی و مبانی کدنویسی رو بخونی .
دلیل قدرت دلفی و توسعه آن وجود روحیه سازندگی در بین برنامه نویسان دلفی است.
مثال بارز در این رابطه سایت :
www.delphi-jedi.org است.اگر یه نگاهی به لیست پروژه های انجام شده در این سایت بندازی قطعا منظور منو بهتر درک می کنی.
روز خوش :)
متشکرم