16,748
社区成员
发帖
与我相关
我的任务
分享
procedure TfmLoad.btn1Click(Sender: TObject);
var
htp : THttpDown;
p : PChar;
s : string;
begin
htp := THttpDown.Create(nil);
//p := htp.GetUrl('http://192.168.0.11/vip/ckUser.php','name=micelly&pw=12345');
p := htp.GetUrl('http://118.178.95.200');
ShowMessage(p);
s := Utf8toAnsi(p);
ShowMessage(s);
htp.Free;
end;