TIdWebDav на webdav.yandex.ru
, ошибка авторизации
 |
Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
|
| ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
| [216.73.216.123] |
|
|
Соблюдайте общие правила форума
Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.
Указывайте точные версии Delphi и используемых сетевых библиотек.
Не приветствуется поднятие старых тем. Если ваш вопрос перекликается со старой темой, то для вопроса лучше создать новую тему, а старую указать в первом сообщении с описанием взаимосвязи.
Внимание:
попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки бан.
Мат в разделе - бан на три месяца...
Полезные ссылки:
MSDN Library 
FAQ раздела 
Поиск по разделу 
Как правильно задавать вопросы
Выразить свое отношение к модераторам раздела можно здесь:
Krid, Rouse_
Указывайте точные версии Delphi и используемых сетевых библиотек.
Не приветствуется поднятие старых тем. Если ваш вопрос перекликается со старой темой, то для вопроса лучше создать новую тему, а старую указать в первом сообщении с описанием взаимосвязи.
Внимание:
попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки бан.
Мат в разделе - бан на три месяца...
Полезные ссылки:
MSDN Library FAQ раздела Поиск по разделу Как правильно задавать вопросыВыразить свое отношение к модераторам раздела можно здесь:
Krid, Rouse_
TIdWebDav на webdav.yandex.ru
, ошибка авторизации
Сообщ.
#1
,
|
|
  |
Delphi 2007
InDy 10 IdWebDAV webdav.yandex.ru   procedure TForm2.Button1Click(Sender: TObject); Var s, r: TStringStream; begin s := TStringStream.Create('<propertyupdate xmlns="DAV:">' + sLineBreak + '<set>' + sLineBreak + '<prop>' + sLineBreak + '<public_url xmlns="urn:yandex:disk:meta">true</public_url>' + sLineBreak + '</prop>' + sLineBreak + '</set>' + sLineBreak + '</propertyupdate>'); r := TStringStream.Create(''); try //fill params IdWebDAV1.URL.Password := '*******'; IdWebDAV1.URL.Username := '***@yandex.ru'; IdWebDAV1.URL.Port := '80'; IdWebDAV1.URL.URI := '/tst/readme.txt'; IdWebDAV1.URL.Host := 'webdav.yandex.ru'; IdWebDAV1.URL.Protocol := 'PROPFIND'; //fill OAuth ID IdWebDAV1.Request.CustomHeaders.Add('Authorization: OAuth c953c33d6ec14895aa776f55145e73b5'); IdWebDAV1.Put('https://webdav.yandex.ru/', s, r); //result Memo1.Lines.Text := r.DataString; finally s.Free; r.Free; end; end; Получаю ошибку: HTTP/1.1 401 Unauthorized. Что я делаю не так? Что я ещё забыл? Документации и примеров по TIdWebDav не нашёл нигде. |
1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)
0 пользователей:
[ Script execution time: 0.0608 ] [ 15 queries used ] [ Generated: 25.08.26, 14:55 GMT ]