Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.11.12;
Скачать: CL | DM;

Вниз

Авторизация TIdHTTPServer   Найти похожие ветки 

 
N   (2006-06-22 15:10) [0]

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


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

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


 
Slym ©   (2006-06-23 08:48) [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-23 10:10) [3]

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


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


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



Страницы: 1 вся ветка

Текущий архив: 2006.11.12;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.038 c
15-1161329175
Maximaxi
2006-10-20 11:26
2006.11.12
Скачать Delphi 4


2-1161781612
просто_человек
2006-10-25 17:06
2006.11.12
занесение значения ячейки до е изменения(как-то так=)))


15-1161774885
ProgRAMmer Dimonych
2006-10-25 15:14
2006.11.12
Развод - Не развод


8-1144249486
ronyn
2006-04-05 19:04
2006.11.12
DS Pack мануал


2-1162061766
PitTong
2006-10-28 22:56
2006.11.12
Помогите поставить пароль на приложение.