| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Авторизация TIdHTTPServer [D7, Win2k]

N ©   (2006-06-22 15:10:00) 

Подскажите, пожалуйста, как сделать авторизацию при обращении к серверу из IE.

---

N   (2006-06-23 10:10:00) [1]

Спасибо! Я, правда, это в обработчике OnCommandGet для IdHTTPServer делаю, там, оказывается достаточно просто:


  AuthPassword := ARequestInfo.AuthPassword;
  AuthUsername := ARequestInfo.AuthUsername;


У меня вот с этим AResponseInfo.AuthRealm непонятки были.

---

Slym   (2006-06-23 08:48:00) [2]

N   (22.06.06 15:28) [1]
как работать с ARequestInfo -> AuthUsername,  ARequestInfo -> AuthPassword
сравнивать с чем нибудь и если сравнение не кроканало отправить клиенту сообщение с соответствующим кодом ошибки


 procedure AuthFailed;
 begin
   ResponseInfo.ContentText:='<html><head><title>Error</title></head><body><h1>Authentication failed</h1></body></html>';
   ResponseInfo.AuthRealm:='BST http server';
 end;
var AuthPassword,Path,FileName:string;
begin
 if not RequestInfo.AuthExists then
 begin
   AuthFailed;
   Exit;
 end;
 AuthPassword:=ServerHandles.ReadIniString('UserAuth',RequestInfo.AuthUsername,'' );
 if (AuthPassword='') or (AuthPassword<>RequestInfo.AuthPassword) then
 begin
   AuthFailed;
   exit;
 end;


---

N   (2006-06-22 15:28:00) [3]

В частности, интересует, как работать с ARequestInfo -> AuthUsername,  ARequestInfo -> AuthPassword. Неужели никто не знает? Очень надо...

---

Наверх