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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м
м (Текст)
Строка 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()

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

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

Функции Delphi