|
|
| (не показано 5 промежуточных версий этого же участника) |
| Строка 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]] | + | [[FTPOPEN]] |
