TESTFTP — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Текст)
м (Текст)
Строка 5: Строка 5:
 
   
 
   
 
   
 
   
  a:=FTPList(Ftp,'../FILES')
+
  a:=[[FTPList]](Ftp,'../FILES')
 
   
 
   
 
  x:=acmenu('Выберите файл для скачки',a)+1
 
  x:=acmenu('Выберите файл для скачки',a)+1

Версия 09:18, 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()

Смотрите также

Полезные функции

Функции Delphi