BorlandTalk.com

Kim Pedersen · Guest

Hi

I have tried too without sucess, and I found a couple of
pages on internet saying that it is not working.

you have to remember to add "IdAuthenticationSSPI" to your uses
if you want to use NTLM.

there are also some badness in the idhttp.
I will try to clear out here:
****SNIP Idhttp.pas (protocols directory) ***
function DoOnProxyAuthorization
...
...
if not Assigned(ProxyParams.Authentication) then
begin
// Find which Authentication method is supported from us.
i := 0;
while i < AResponse.ProxyAuthenticate.Count do
begin
S := AResponse.ProxyAuthenticate[i];
try
Auth := FindAuthClass(Fetch(S));
// break; //<<-- take this away otherwise
//the loop will always jump out on first run.

except
end;
inc(i);
end;

if Auth=nil then //use instead of next line
//since if you find no authenticate.

//next line will work if you take away
// the break in loop , but it still much more
// clean to test on auth

// if i = AResponse.ProxyAuthenticate.Count then
begin
result := false;
exit;
end;

if Assigned(FOnSelectProxyAuthorization) then
begin
OnSelectProxyAuthorization(self, Auth, AResponse.ProxyAuthenticate);
end;

ProxyParams.Authentication := Auth.Create;
end;

Best regards
Kim Pedersen

On Thu, 15 Sep 2005 10:49:11 +0200, Márta Csaba