如何才能让delphi用post方式向网页发送数据！

[ccwangliqun]

刚刚学会delphi用get方式向网页发送数据，不知道如何用post方式发送呢？

[hzcenter]

用了什么控件？还是？？

[sxy_9761]

idHttp.Post();

[ccwangliqun]

是不是idHttp.Post();发送的都是post方式的？
pagename.asp?id=1&name=ccc 这种方式是get方式的？
idhttp.get()是获取网页数据的方法，而不是用get方式发送吧？

[shuihan20e]

idhttp.post不是post方式吧

[shuihan20e]

var 
  strResponse : string; 
  datastream: TIdMultiPartFormDataStream; 
begin 
  datastream:= TIdMultiPartFormDataStream.Create; 
  datastream.AddFormField(’UserID’, EdtUser.text); 
  strResponse:=IdHTTP1.Post(URL.Text, data); 
  datastream.Free; 
end;  

这样试下

[ccwangliqun]

TIdMultiPartFormDataStream 需要引用那个单元啊？

[ccwangliqun]

明白了，idhttp.post()的确是post方式，但是不是multipart/form-data的表单数据。

[liangpei2008]

//也可以用com来发
function TForm1.GetData(url:string): string;
var
  responseText: WideString;
  xmlHttp: oleVariant;
begin
  Result:='';
  try
    xmlHttp:=CreateOleObject('Msxml2.XMLHTTP');
    xmlHttp.open('POST',url,false);
    xmlHttp.setRequestHeader('Content-Type','application/x-www-form-urlencoded');
    xmlHttp.send('ePayAccountNum=XXX&password=XXX&transactionCode=XXX&orderNum=IVC00544&transactionAmount=10.00&cardAccountNum=XXX&expirationDate=0108&testTransaction=Y');
    responseText:=xmlHttp.responseText;
    if xmlHttp.status='200' then
    begin
      Result:=responseText;
    end;
    xmlHttp := Unassigned;
  except
    Result:='';
  end;
end;

[hzcenter]

[Quote=引用 7 楼 ccwangliqun 的回复:]
明白了，idhttp.post()的确是post方式，但是不是multipart/form-data的表单数据。
[/Quote]

是不是这种方式，要看你设置的http头

[ccwangliqun]

请问8楼的兄弟，如何才能idhttp.post()的发送方式，让他分别使用get、post、multipart/form-data格式？