Привет Всем
До не давнего времени загружал xml файл на яндекс диск по этому алгоритму;
ИмяФайлаТокен = ПолучитьИмяВременногоФайла();
ФайлТокен = Новый ЗаписьТекста(ИмяФайлаТокен,"windows-1251");
ФайлТокен.Записать(Логин+":"+Пароль);
ФайлТокен.Закрыть();
// Кодируем пароль в Base64
ДвоичныйТокен = Новый ДвоичныеДанные(ИмяФайлаТокен);
Токен = Base64Строка(ДвоичныйТокен);
//и удаляем временный файл
УдалитьФайлы(ИмяФайлаТокен);
ПолныйПуть = НРег(Объект.СкладПолучатель)+"/"+ИмяФайла;
Попытка
x = Новый ComОбъект("Microsoft.XMLHTTP");
x.Open("PUT","
https://webdav.yandex.ru/"+ПолныйПуть,0);
x.setRequestHeader("Host", "webdav.yandex.ru");
x.setRequestHeader("Accept", "*/*");
x.setRequestHeader("Authorization", "Basic "+Токен);
s = Новый ComОбъект("ADODB.Stream");
s.Mode = 3;
s.Type = 1;
s.Open();
s.LoadFromFile(ЛокальныйПуть + ИмяФайла);
x.Send(s.Read());
Показать
алгоритм все так же работает но изменился формат загружаемого файла на .txt естественно сейчас не загружает,
с ComОбъект("Microsoft.XMLHTTP") не знаком от слова совсем, не подскажете что нужно переделать что бы и текстовый файлы загружало по этому же алгоритму?
С уважением Дамир
