1,593
社区成员
发帖
与我相关
我的任务
分享
uses comobj;
var
url:string;
xmlHttp:Olevariant;
responseText:Widestring;
begin
url:='http://..............';
xmlHttp:=CreateOleObject('Msxml2.XMLHTTP');
xmlHttp.open('POST',url,false);
xmlHttp.send(............);
responseText:=xmlHttp.responseText;
end;