Имя: Пароль:
1C
 
Как отправить файл на фтп или веб-сервер из 1С:П
, ,
0 Linkovich
 
16.09.04
21:59
Скачал RBrowser, но как обращаться не знаю. Помогите реализовать закачку открывшейся и отредактированной страницы на ftp или web-сервер. Какой метод используется? Подозреваю что будет идти через RBrowser.WebBrowser.Document, а что дальше не знаю. Помогите плз.
1 Волшебник
 
16.09.04
22:04
Есть внешние компоненты, позволяющие работать с FTP-серверами.

Еще можно использовать
КомандаСистемы("ftp.exe <ключи>");

См. также v7plus.dll
v7plus.dll

Интернет-технологии
http://www.forum.mista.ru/index.php?area=internet
2 Волшебник
 
16.09.04
22:19
3 Волшебник
 
16.09.04
22:20
Есть пример кода:

// генерируем текст скрипта
Текст=СоздатьОбъект("Текст");

// подключаем нужный модуль
Текст.ДобавитьСтроку("use NET::Ftp;

// коннектимся через прокси-сервер
|$ftp = Net::FTP->new(" + СокрП(АдресФТП) + ",Firewall => " + СокрП(Прокси) + ");

// авторизуемся на FTP-сервере
|$ftp->login('" + СокрП(УчетнаяЗапись) + "','" + СокрП(Пароль) + "') || die $!;

// заходим в нужную директорию
|$ftp->cwd('" + СокрП(УдаленыйКатлог) + "');
|$ftp->cwd('files');

// закачиваем файл на сервер
|$ftp->put('" + СокрП(ЛокальныйКаталог) + "price.zip','price.zip');

// отключаемся от сервера
|$ftp->quit();");

// записываем на диск
Текст.Записать(КаталогИБ()+"connect.pl");
//Текст.Показать("connect.pl");

// запускаем на выполнение
КомандаСистемы(КаталогИБ()+"connect.pl");

// удаляем, чтоб не засорять место
ФС.УдалитьФайл(КаталогИБ()+"connect.pl");

Правда работоспособность этого кода я не проверял. В случае прокси-сервера могут быть глюки.
4 Волшебник
 
16.09.04
22:20