使用indy的idhttp进行Post数据的时候，服务器收不到东西

[qdh2002]

post2.asp:

response.Write ("form1="&request.Form ("form1"))


C程序：

TIdMultiPartFormDataStream* tData=new TIdMultiPartFormDataStream();
TStringStream* ss=new TStringStream("");


tData->AddFormField("form1","form1data");

tData->Position=0;

Form1->IdHTTP1->Request->ContentType=tData->RequestContentType;

Memo1->Lines->Add(Form1->IdHTTP1->Post("/post2.asp",tData));

ss->Seek(0, soFromBeginning);
Memo1->Lines->Add(ss->DataString);

delete ss;
delete tData;
Form1->IdHTTP1->Disconnect();




//////////

结果运行以后。显示form1=空，asp并没有收到东西，请问如何解决？
因为数据量可能会很大，所以估计不能使用 url?字段=数据&.... 这种方式。。。。。

[lihongxing2002]

顶

[Kandy]

不是服务器收不到东西，是你用的方法不对。
首先你是想要结果，而不是在上传图片或者附件等二进制数据。应使用
procedure Post(URL: string; const Source: TStrings; const AResponseContent: TStream); overload;//摘自帮助-》Tidhttp。

其次使用Tidhttp post数据的时候需要指明ContentType，如果不指明的话你依然得不到想要的结果。
下边摘自帮助-》Tidhttp

ContentType contains the value for the HTTP header "Content-Type:". ContentType is a String property that specifies the content type for requests to and responses from an HTTP server. For forms Request.Content Type specifies the type of data being set with the form. Response.ContentType specifies the type of data the server will return.
ContentType refers to the media type or MIME type used for HTTP responses and requests. They are generally supplied in HTTP headers in the following forms:

text/html; charset=ISO-8859-4
text/plain
text/xml
application/x-www-form-urlencoded
multipart/form-data


For forms, the ContentType is normally "application/x-www-form-urlencoded". However the content type "application/x-www-form-urlencoded" is inefficient for sending large quantities of binary data or text containing non-ASCII characters. The content type "multipart/form-data" should be used for submitting forms that contain files, non-ASCII data, and binary data.

既然用POST数据那我们应该使用"application/x-www-form-urlencoded"


下边是根据帮助改写的结果范例：
-------A部分--------------post.asp
<%
response.write request("test")
%>
-------B部分--------------BCB中的代码
TStringList* request=new TStringList();
TStringStream* response=new TStringStream("");
request->Add("test=中文测试");
try{
IdHTTP1->Request->ContentType="application/x-www-form-urlencoded";//此句必须写上，否则不返回结果。
IdHTTP1->Post("http://X.X.X.X/post.asp",request,response);
ShowMessage(response->DataString);

}
__finally{
delete request;
delete response;
}


-------------综上：很多问题Help，其实帮助是很好的书。