Версия 09:14, 26 апреля 2017

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

Отправка файла на FTP сервер для SRG

Текст

local ftp, path, name

path := 'c:\Test\_\'
path := Nice_Path( path )
name := '1.txt'

try
  ftp := FTPOPEN( 'host', '21', , ~PassiveMode := true )
  FtpPut( ftp, path + name,, name )
  Message( 'ok' )
finally
  FTPCLOSE( ftp )
end

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

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

Функции Delphi

FTPPUT