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

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

Текущая версия на 16:59, 11 января 2020

TESTFTP - это программа из справочника R266

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

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

FTPOPEN