Вниз
Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.063 c
4-1151484732
Arazel
2006-06-28 12:52
2006.11.12
Как получить физическую геометрию жесткого диска по Win9x


15-1161319150
User_OKA
2006-10-20 08:39
2006.11.12
Borland Delphi 3.0


15-1161329175
Maximaxi
2006-10-20 11:26
2006.11.12
Скачать Delphi 4


2-1161786196
Kos135
2006-10-25 18:23
2006.11.12
Создание компонента Delphi по шелчку мыши


15-1161513590
SerJaNT
2006-10-22 14:39
2006.11.12
ShellListView




   Наверх