سلام
کد شما مشکل دستوری نداره ولی از کد من هم استفاده کن ببین میشه یا نه؟
var strDirectory: string;
begin
FDownload:=TIdFTP.Create(nil);
FDownload.Passive:=False;
FDownload.host :='192.168.1.2';
FDownload.Passive := false;
FDownload.Username := EUser.Text;
FDownload.Password := EPass.Text;
FDownload.Connect;
if FDownload.Connected then
LSend.text :='Server Connected'
else
LSend.text := 'Not Connect Check Network';
try
FDownload.ConnectTimeout := 1000;
FDownload.BeginWork(wmRead);
FDownload.ChangeDir('');
strDirectory := C:\;
if not DirectoryExists(strDirectory) then
CreateDir(strDirectory);
FDownload.Get('123.db', strDirectory + '/' + '123.db', True, false);
FDownload.Disconnect();
except
on e: exception do
showMessage(e.message);
end;
بعضی از قسمت هاش چون Lsend اضافی هستش.
درضمن در event کامپوننت ftp بخش work این کد رو هم بگذار.
application.ProcessMessages;