TESTFTP — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) (Новая страница: «TESTFTP - это программа из справочника R266 = Смотрите также = Полезные функции Функци…») |
Hisava (обсуждение | вклад) м |
||
| Строка 1: | Строка 1: | ||
[[TESTFTP]] - это программа из справочника [[R266]] | [[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() | ||
= Смотрите также = | = Смотрите также = | ||
[[Полезные функции]] | [[Полезные функции]] | ||
[[Функции 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()
