SEND FILE TO FTP SRG — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м |
||
| Строка 3: | Строка 3: | ||
Отправка файла на FTP сервер для [[SRG]] | Отправка файла на FTP сервер для [[SRG]] | ||
| + | = Текст = | ||
| + | local ftp, path, name | ||
| + | |||
| + | path := 'c:\Test\_\' | ||
| + | path := Nice_Path( path ) | ||
| + | name := '1.txt' | ||
| + | |||
| + | try | ||
| + | ftp := FTPOPEN( '',, '', '' ) | ||
| + | FtpPut( ftp, path + name,, name ) | ||
| + | Message( 'ok' ) | ||
| + | finally | ||
| + | FTPCLOSE( ftp ) | ||
| + | end | ||
= Смотрите также = | = Смотрите также = | ||
[[Полезные функции]] | [[Полезные функции]] | ||
[[Функции Delphi]] | [[Функции Delphi]] | ||
Версия 10:59, 25 апреля 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( ,, , ) FtpPut( ftp, path + name,, name ) Message( 'ok' ) finally FTPCLOSE( ftp ) end
