Delphi2010中无法正确显示

[Mit1208]

procedure TForm1.Button1Click(Sender: TObject);
var
  str:string;
  xxx:TStringStream;
  Multi:TIdMultiPartFormDataStream;
begin
  xxx:=TStringStream.Create;
  Multi :=TIdMultiPartFormDataStream.Create;
  Multi.AddFormField('FIELD_Title','标题');
  Multi.AddFormField('FIELD_Q_SubjectID','14');
  Multi.AddFormField('FIELD_Q_Type','1');
  Multi.AddFormField('FIELD_Content','为什么123456ABCDE');
  Multi.Position := 0;
  xxx.LoadFromStream(Multi);
  xxx.SaveToFile('1.txt');
  Multi.Free;
  xxx.Free;
end;

以上代码在D7中,输出正确,但在D2010中输入的"标题"和"为什么"这两个字符串为????????

英文与数字显示正确!感觉是Unicode的问题,请问如何解决?

解决的朋友,将此贴的分与下边贴子分数一起赠送,谢谢了!

http://topic.csdn.net/u/20101020/20/6e47cd0b-4710-4ead-823b-8218c204315e.html

[Mit1208]

没人知道是什么原因吗?

[npkaida]

  ...
  Multi.AddFormField('FIELD_Title','标题','GB2312');
  ...
  Multi.AddFormField('FIELD_Content','为什么123456ABCDE','GB2312');
  ...

[keeley20]

请问楼上自己编译了得了吗？

[npkaida]

编译正常，输出结果：
----------102310164110674
Content-Disposition: form-data; name="FIELD_Title"
Content-Type: text/plain; charset="GB2312"
Content-Transfer-Encoding: quoted-printable

=B1=EA=CC=E2
----------102310164110674
Content-Disposition: form-data; name="FIELD_Q_SubjectID"
Content-Type: text/plain
Content-Transfer-Encoding: quoted-printable

14
----------102310164110674
Content-Disposition: form-data; name="FIELD_Q_Type"
Content-Type: text/plain
Content-Transfer-Encoding: quoted-printable

1
----------102310164110674
Content-Disposition: form-data; name="FIELD_Content"
Content-Type: text/plain; charset="GB2312"
Content-Transfer-Encoding: quoted-printable

=CE=AA=CA=B2=C3=B4123456ABCDE
----------102310164110674--

[Mit1208]

[Quote=引用 4 楼 npkaida 的回复:]
编译正常，输出结果：
----------102310164110674
Content-Disposition: form-data; name="FIELD_Title"
Content-Type: text/plain; charset="GB2312"
Content-Transfer-Encoding: quoted-printable

=B1=EA=CC=E2
----……
[/Quote]

Multi.AddFormField('FIELD_Title','标题','GB2312');


我这里不能编译: [DCC Error] Unit1.pas(36): E2034 Too many actual parameters

参数太多...

[Mit1208]

看帮助...参数也就两个啊,怎么搞的三个.- -!
纳闷中,请2楼的朋友解答!

[亮剑_]

是编码的问题，做个标记，有环境了试一下

[Hexpate]

加我qq 我帮你看看

[SQLDebug_Fan]

没有DELPHI 2010，要不也试一下。

[Mit1208]

谢谢8楼,已经搞定

[iisfirewall]

作者说谢谢8楼，csdn就把8楼的帖子隐藏起来！

8楼说什么了？

8楼说：“加我qq 我帮你看看 ”

靠！