Добрый день :) господа программисты !
Недавно установила компоненты ICS и впервые работаю с FTPClient'ом. Прошу прокоментировать небольшой скрипт и оценить его производительность (живучесть) :). Задача состоит в том, чтобы скачать по фтп протоколу два файла. Вот, что у меня получилось. Программа работает, только не знаю все ли корректно реализовано.
FTPClient1.ConnectionType:=ftpDirect;
FTPClient1.HostName:='111111111';
FTPClient1.UserName:='муuser';
FTPClient1.PassWord:='********';
FTPClient1.Port:='21';
FTPClient1.Passive:=false;
FTPClient1.DisplayFileFlag:=False;
if FTPClient1.Connect
then
Begin
FTPClient1.LocalFileName:=mydir+'\bankdoc.dbf';
FTPClient1.HostFileName:='bestp\BANKDOC\'+dat+'\bankdoc.dbf';
FTPClient1.Get;
FTPClient1.LocalFileName:=mydir+'\bankdoc.xls';
FTPClient1.HostFileName:='bestp\BANKDOC\'+dat+'\bankdoc.xls';
FTPClient1.Get;
Animate1.Active:=false;
Animate1.Visible:=false;
if FTPClient1.ErrorMessage<>''
then ShowMessage(FTPClient1.ErrorMessage)
else MessageDlg('Äàííûå óñïåøíî ñêà÷åíû!',mtInformation,[mbOK],0);
end
else Showmessage(FTPClient1.ErrorMessage);