delphi idhttp访问DATASNAP有密码验证的中间件

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;

https://www.cnblogs.com/hnxxcxg/p/11204825.html

推荐分享