|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Проблема с HTTP авторизацией в Indy (Tidhttp)
Здравствуйте! Столкнулся с некой проблемой, связанной с HTTP авторизацией, используя tidhttp. Привожу код:
Код:
procedure TForm1.Button2Click(Sender: TObject); var PostData: TStringList; Response: TStringStream; begin Response := TStringStream.Create(''); PostData := TStringList.Create; try IdHTTP1.Post(Edit1.Text, PostData, Response); Memo1.Lines.Text := Response.DataString; finally Response.Free; PostData.Free; IdHTTP1.Disconnect; end; end; procedure TForm1.IdHTTP1Authorization(Sender: TObject; Authentication: TIdAuthentication; var Handled: Boolean); begin Handled := true; Authentication.Username := 'login'; Authentication.Password := 'password'; end; В результате авторизации не происходит. IdHttp мне возвращает "401 Unauthorized". Пожалуйста, помогите найти ошибку! Быть может я забыл учесть еще какие-либо моменты? Очень жду ваших ответов! |