16,748
社区成员
发帖
与我相关
我的任务
分享
var
RStream: TStringStream;
begin
//测试:网页验证
RStream:=TStringStream.Create('');
idHTP.Request.Username:='AD\' + User; //AD是域名
idHTP.Request.Password:=Password;
idHTP.Request.BasicAuthentication:=False;
try
idHTP.Get('http://网址',RStream);
RStream.Clear;
idHTP.Get('http://网址',RStream);
RStream.Clear;
idHTP.Get('http://网址',RStream);
ShowMessage(RStream.DataString); //返回正确的网页,爱干嘛干嘛去吧
except
on E:Exception do
begin
if Pos('401',E.Message)>0 then
ShowMessage('域账号/密码验证失败!')
else
ShowMessage(E.Message);
end;
end;
end;