TESTFTP — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м (→Текст) |
||
Строка 1: | Строка 1: | ||
[[TESTFTP]] - это программа из справочника [[R266]] | [[TESTFTP]] - это программа из справочника [[R266]] | ||
= Текст = | = Текст = | ||
− | local ftp:=FtpOpen('192.168.234.15',,'login','password',~passiveMode:=true),a,x,time1 | + | local ftp:=[[FtpOpen]]('192.168.234.15',,'login','password',~passiveMode:=true),a,x,time1 |
global CurProgressCount:=0,CurMsgTxt:='' | global CurProgressCount:=0,CurMsgTxt:='' | ||
Строка 32: | Строка 32: | ||
messageExecute('Загрузка с FTP',CurMsgTxt,true,true) | messageExecute('Загрузка с FTP',CurMsgTxt,true,true) | ||
processmessages() | processmessages() | ||
+ | |||
= Смотрите также = | = Смотрите также = | ||
[[Полезные функции]] | [[Полезные функции]] | ||
[[Функции Delphi]] | [[Функции Delphi]] |
Версия 08:31, 26 апреля 2017
TESTFTP - это программа из справочника R266
Текст
local ftp:=FtpOpen('192.168.234.15',,'login','password',~passiveMode:=true),a,x,time1 global CurProgressCount:=0,CurMsgTxt:= a:=FTPList(Ftp,'../FILES') x:=acmenu('Выберите файл для скачки',a)+1 if x=0 return endif time1:=charTimeToDouble(time(true)) if FTPget(Ftp,a[x],'c:\10\'+a[x],false,getProgText('onGet')) CurMsgTxt:='Операция успешно завершена, за '+doubleTimeToChar(charTimeToDouble(time(true))-time1) messageExecute('Загрузка с FTP',CurMsgTxt,true,true,10) else CurMsgTxt:='Операция прервана!' messageExecute('Загрузка с FTP',CurMsgTxt,true,true,10) endif FTPclose(ftp) DeleteVars('OldFtpGetValue') DeleteVars('CurMsgTxt') <onGet> CurMsgTxt:='Скачено: '+formatNumeric('0.0',CurGetperc)+'%, Осталось '+doubletimetochar(TimeElapsed)+' сек'+chr(13)+; '<:FtpGetCancelFlag:=true~Прервать?>' messageExecute('Загрузка с FTP',CurMsgTxt,true,true) processmessages()