Hi,各位先進大家好:
有一網站使用Digest認證,
我想用IdHTTP認證,如下,認證失敗,請教各位先進是否有相關範例?
另外一個附加問題:
小弟使用 MS IE, Edge 也都無法認證成,但使用Chrome, FireFox 等可以認證成功,實在不知其中的差異?
謝謝!

IdHTTP1.HTTPOptions := IdHTTP1.HTTPOptions [hoInProcessAuth]; // 加這個就可以直接認證了
PostData := TStringList.Create;
Str := IdHTTP1.Post('192.168.1.100/', PostData);
// ShowMessage(Str); // Login OK

procedure TForm1.IdHTTP1Authorization(Sender: TObject;
Authentication: TIdAuthentication; var Handled: Boolean);
begin
Authentication.Username := 'admin';
Authentication.Password := '123456';

if Authentication is TIdDigestAuthentication then begin
Authentication.AuthParams.AddValue('realm', 'Login');
Authentication.AuthParams.AddValue('uri', '/');
TIdDigestAuthentication(Authentication).Method := 'POST';
end;
Handled := True;
end;

Hi,各位先進大家好:
先查了一下 IE, Chrome, FireFox 是有文件說 IE 要用
http://192.168.100.104/? 或 http://192.168.100.104/index.html 等才能認證過,實測也是,
但 IdHTTP 還是不過,擷取封包追了一下,
如果沒有加 IdHTTP1.HTTPOptions := IdHTTP1.HTTPOptions [hoInProcessAuth];
認證的過程只有一次, 對Server發請求,Server回是Digest,之後沒有把帳密等送給Server(或許是加密的,但不太像)

如果有加 IdHTTP1.HTTPOptions := IdHTTP1.HTTPOptions [hoInProcessAuth];
認證程序比較正常,但第一次取得Server回是Digest,IdHTTP送去的認證方式卻是 Basic 方式(明明Basic Authentication設為False),
不知是否有先進實作過Digest認證的?
謝謝!

Hi,各位先進大家好:
目前在OnAuthoriaztion中設了一個中斷點,中斷了馬上繼續,這樣認證70%會過,
不知是何原因了,謝謝!
procedure TForm1.IdHTTP1Authorization(Sender: TObject;
Authentication: TIdAuthentication; var Handled: Boolean);
begin
Authentication.Username := 'admin'; <-- 設中斷
Authentication.Password := '123456';

if Authentication is TIdDigestAuthentication then begin
Authentication.AuthParams.AddValue('realm', 'Login');
Authentication.AuthParams.AddValue('uri', '/');
TIdDigestAuthentication(Authentication).Method := 'POST';
end;
Handled := True;
end;

你用新版的 Delphi 里面带的跨平台的  TNetHTTPClient  去试试看？

同意樓上的使用 TNethttpclient 及 TNetHTTPRequest 去取代indy ，indy bug 有夠多，能夠轉移就快轉移吧!!