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; if xmlHttp.status='200' then .................... else .......................;
var
url:string;
xmlHttp:Olevariant;
responseText:Widestring;
begin
url:='http://..............';//在这里传递参数
xmlHttp:=CreateOleObject('Msxml2.XMLHTTP');
xmlHttp.open('POST',url,false);
xmlHttp.send(............);
responseText:=xmlHttp.responseText;
if xmlHttp.status='200' then
....................
else .......................;