FTP клиент, писался как замена встроенному в 1С, и нестабильно работающему DialMail.
Библиотека проверялась на: 1С8.3.5, Windows 7 pro, Windows 10 pro.x64, Windows Server 2008 x64
ВК позволяет отслеживать ошибки при вызове любой функции и свойства.
За основу взята внешняя компонента NativeAPI на Lazarus/FreePascal
Архив состоит из:
- 1c83_FTP_Native_dll.chm - справка по компоненте
- NativeFTP.zip - внешняя компонента
Выдержка из хелпа:
Свойства:
Подключен (Connected)
ТекущийКаталог (GetCurrentDirectory)
Ошибка (GetError)
Методы:
Подключиться (Connect)
Существует (Exists)
СоздатьКаталог (MakeDir)
УстановитьТекущийКаталог (SetCurrentDirectory)
Удалить (Delete)
Записать (Put)
Получить (Get)
НайтиФайлы (List)
Описание:
Предназначен для работы с файлами и каталогами на ftp-серверах.
КомпУст=Ложь;
Попытка
КомпУст=ПодключитьВнешнююКомпоненту("С:\NativeFTP.dll","NativeFTP",AddInType.Native);
//второй вариант: КомпУст=ПодключитьВнешнююКомпоненту("С:\NativeFTP.dll","NativeFTP",ТипВнешнейКомпоненты.Native);
//ещё вариант из макета: КомпУст=ПодключитьВнешнююКомпоненту("ОбщийМакет.Макет","NativeFTP",ТипВнешнейКомпоненты.Native); (в макете должен быть "dll" или специальный "zip")
Исключение
Сообщить("Произошла исключительная ошибка при подключении компоненты!",СтатусСообщения.Важное);
КонецПопытки;
Если Не КомпУст Тогда
Сообщить("Произошла ошибка при подключении компоненты!",СтатусСообщения.Важное);
КонецЕсли;
Об = Новый("AddIn.NativeFTP.ФТП");
//второй вариант: Об = Новый("AddIn.NativeFTP.FTP");
Об.Подключиться("192.168.0.1",21,"qwe","123",Истина);
