delphi 如何像制定的Http链接提交，并返回数据

Question

比如：
向 http://www.xxx.com/xxx.do，提交
并取得返回信息 

Answer 1

看他能接受哪一種提交： POST？提交完再GET

Answer 2

function TForm1.GetData(url:string): string;
var
  responseText: WideString;
  xmlHttp: oleVariant;
begin
  Result:='';
  try
    xmlHttp:=CreateOleObject('Msxml2.XMLHTTP');
    xmlHttp.open('POST',url,false);
    xmlHttp.send();
    responseText:=xmlHttp.responseText;
    if xmlHttp.status='200' then
    begin
      Result:=responseText;
    end;
    xmlHttp := Unassigned;
  except
    Result:='';
  end;
end;