با سلام
من این تابع رو واسه اینکار نوشتم و فکر کنم کارت رو راه میندازه.
اگه موردی بود بفرمایید تا راهنمایی کنم.
البته برای تهیه این تابع مثل همیشه از دوستان برنامه نویس کمک گرفتم.
Function MH_FTP_Upload_File(FTP_Name:TIdFTP;label_Report:TL abel;Host_Name_Or_IP,FTP_UserName,FTP_Password,FTP _PathInServer,File_Name_Source,File_Name_Destinati on:String;FTP_Port:Integer=21):Boolean ;
begin
try
If FTP_Name.Connected=False then
begin
label_Report.Caption :='Start To Connect To FTP Server'; Application.ProcessMessages;
FTP_Name.Host := Host_Name_Or_IP;
FTP_Name.Username := FTP_UserName;
FTP_Name.Password := FTP_Password;
FTP_Name.Port:=FTP_Port;
FTP_Name.Connect;
label_Report.Caption :='Connect To FTP Server Success'; Application.ProcessMessages;
FTP_Name.ChangeDir(FTP_PathInServer);
label_Report.Caption :=label_Report.Caption+chr(13)+'Change Ftp Path'; Application.ProcessMessages;
FTP_Name.Put(File_Name_Source,File_Name_Destinatio n);
label_Report.Caption :=label_Report.Caption+chr(13)+'Upload File Success'; Application.ProcessMessages;
FTP_Name.Disconnect;
Result:=True;
end;
except on e:Exception Do
begin
label_Report.Caption :='Error='+e.Message ;
MessageDlg( 'Error' + chr(13)+e.Message , mtInformation,[mbOK],0);
Result:=False;
end;
end;
end;
با تشکر