delphi7中怎么把默认编码的 中文 转成gbk？

Question

我需要用idhttp向淘宝发一个get 对方说要用gbk编码。弄了N久发过一个帖子，有个哥们说用下面方法“要看楼主用的是D2010还是以前的版本，2010内核用的是unicode编码，其转gbk可直接调用api函数WideCharToMultiByte，用936这个代码页来转；
如果是2009之前的版本，内核用的ansistring，我的做法是先调用MultiByteToWideChar将字符串转为unicode，然后，用上面的方法转为gbk ”
但是ansistring 转unicode 先调用MultiByteToWideChar的页码是多少啊。我用别的方法转成unicode后再用上面方法转gbk还是不行啊。
谁能提供具体点的办法？最好有源码。

Answer 1

AnsiString转Unicode不用函数，直接把string赋为WideString就可以了，然后用WideCharToMultiByte转GBK就可以了。

Answer 2

procedure TForm1.btn1Click(Sender: TObject);
var
  s: WideString;
begin
  s := mmo1.Text;
  ShowMessage(IntToStr(Length(s)));
end;