-
Notifications
You must be signed in to change notification settings - Fork 6
Expand file tree
/
Copy pathtestcomponent.os
More file actions
33 lines (21 loc) · 1.25 KB
/
Copy pathtestcomponent.os
File metadata and controls
33 lines (21 loc) · 1.25 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
#Использовать ftp
Appveyor = ВРЕГ(ПолучитьПеременнуюСреды("APPVEYOR")) = ВРЕГ("True");
Если Appveyor Тогда
Соединение = Новый FtpСоединение("localhost");
Иначе
Таймаут = 15;
ПроверочнаяСтрока = "123";
ИмяФайла = ПолучитьИмяВременногоФайла("txt");
Файл = Новый Файл(ИмяФайла);
ТД = Новый ТекстовыйДокумент;
ТД.УстановитьТекст(ПроверочнаяСтрока);
ТД.Записать(ИмяФайла);
// https://dlptest.com/ftp-test/
// Пользователь и пароль публичны
Соединение = Новый FtpСоединение("ftp.dlptest.com",, "dlpuser", "rNrKYTX9g7z3RgJRmxWuGHbeu",,, Таймаут);
Соединение.Записать(ИмяФайла, "/" + Файл.Имя);
ИмяФайлаПолучателя = ПолучитьИмяВременногоФайла("txt");
Соединение.Получить("/" + Файл.Имя, ИмяФайлаПолучателя);
ТД.Прочитать(ИмяФайлаПолучателя);
Сообщить(ТД.ПолучитьТекст());
КонецЕсли;