使用xmlhttp 原理大概就是这样
var
url:string;
xmlHttp:Olevariant;
responseText:Widestring;
beign
xmlHttp:=CreateOleObject('Msxml2.XMLHTTP');
xmlHttp.open('POST',url,false);
xmlHttp.send(DataString);
responseText:=xmlHttp.responseText;
if xmlHttp.status='200' then
begin
.........
end;
end;