idhttp访问DATASNAP有密码验证的中间件
用TIDHttp访问DataSnap Rest服务器,在服务器采用了用户验证的情况下,客户端需要提交密码,否则不能正常连接。
procedure TForm15.Button2Click(Sender: TObject);
var
url, params, Text: string;
code: Integer;
http: TIDHttp;
begin
http:= TIDHttp.Create(nil);
http.Request.BasicAuthentication := True;
http.request.password := '密码'; // 提交密码
params := Edit1.Text;
url:= 'http://192.168.10.182:8081/datasnap/rest/TSM/EchoString/';
try
text := http.Get(URL+TIdURI.ParamsEnCode(params));
Edit2.Text := Text;
except
on E: Exception do
begin
end;
end;
end;
转载于:https://www.cnblogs.com/hnxxcxg/p/11204825.html
相关资源:idhttp 使用代理访问