S
steve0531
Unregistered / Unconfirmed
GUEST, unregistred user!
我使用IdHttp post数据时.是要post一个memo组件的内容的.
这个memo里面的内容是:
111
222
333
然后.我post到一个页面.那么在这个页面显示的是111222333.
怎样才能让这个页面显示这样的结果?
111
222
333
当然.这个post到的web页面是没有问题的.它支持这个带格式的显示..我在web页面上添加表单提交上去没有问题.
下面是我的代码.
procedure TForm1.Button3Click(Sender: TObject);
var
Url,s : string;
Response : TStringStream;
Request : TStrings;
begin
Response := TStringStream.Create('');
try
Request := TStringList.Create ;
try
s := 'logname=csz&password=123&mem='+Memo1.Text;
Request.Append(s);
Url:='Http://127.0.0.1/add.asp';
idHttp1.HTTPOptions:=[];
IdHTTP1.Request.ContentType :='application/x-www-form-urlencoded';
IdHTTP1.Post(Url,Request,Response);
Memo1.Lines.Text := Trim(Response.DataString);
finally
Request.Free ;
end;
finally
Response.Free ;
end;
end;
这个memo里面的内容是:
111
222
333
然后.我post到一个页面.那么在这个页面显示的是111222333.
怎样才能让这个页面显示这样的结果?
111
222
333
当然.这个post到的web页面是没有问题的.它支持这个带格式的显示..我在web页面上添加表单提交上去没有问题.
下面是我的代码.
procedure TForm1.Button3Click(Sender: TObject);
var
Url,s : string;
Response : TStringStream;
Request : TStrings;
begin
Response := TStringStream.Create('');
try
Request := TStringList.Create ;
try
s := 'logname=csz&password=123&mem='+Memo1.Text;
Request.Append(s);
Url:='Http://127.0.0.1/add.asp';
idHttp1.HTTPOptions:=[];
IdHTTP1.Request.ContentType :='application/x-www-form-urlencoded';
IdHTTP1.Post(Url,Request,Response);
Memo1.Lines.Text := Trim(Response.DataString);
finally
Request.Free ;
end;
finally
Response.Free ;
end;
end;