I orignally had this code working for indy 9 :
procedure TfrmMain.idHTTP1SelectAuthorization(Sender: TObject;
var AuthenticationClass: TIdAuthenticationClass;
AuthInfo: TIdHeaderList);
begin
if (pos('Proxy-Authenticate: NTLM', idHTTP1.Response.RawHeaders.Text) >
0) then
begin
idHTTP1.ProxyParams.Clear;
idHTTP1.ProxyParams.BasicAuthentication := false;
AuthenticationClass := TIdSSPINTLMAuthentication;
end
else
begin
// Next check for Basic
if (pos('Proxy-Authenticate: Basic',idHTTP1.Response.RawHeaders.Text) >
0) then
begin
AuthenticationClass := TIdBasicAuthentication;
idHTTP1.ProxyParams.BasicAuthentication := true;
idHTTP1.ProxyParams.ProxyUsername:=proxyusername;
idHTTP1.ProxyParams.ProxyPassword:=proxypassword;
end
else
begin
// Then Digest
if (pos('Proxy-Authenticate:
Digest',idHTTP1.Response.RawHeaders.Text) > 0) then
AuthenticationClass := TIdDigestAuthentication;
end;
end;
end;
When i upgraded to v10 the line : AuthenticationClass :=
TIdSSPINTLMAuthentication; gives me a error: And i cannot find teh
replacement code for v10
Can anyone help?
