怎么将'问世间，情为何物，直叫人生死相许' 转换编码到 gb2312 编码呀

如何将'问世间，情为何物，直叫人生死相许' 转换编码到 gb2312 编码呀
求小段代码～！

[解决办法]
机内码? 十六进制字符串的结果?
如果是, 看下面的例子吧:

Delphi(Pascal) code

procedure TForm1.Button1Click(Sender: TObject);var  sData, sHex: String;begin  sData := '问世间，情为何物，直叫人生死相许';  SetLength(sHex, Length(sData) * 2);  BinToHex(PChar(sData), PChar(sHex), Length(sHex));  ShowMessage (sHex);end;
[解决办法]
探讨

引用:
机内码? 十六进制字符串的结果?
如果是, 看下面的例子吧:

谢谢
不是十六进制
是网页编码