求救啊！帮忙翻译一段delphi的代码到C#

CY53212798 2009-03-31 12:45:01

function TCodeConverter.GBKToUCS2(Contend:String): string;
var
UniCode4String: UCS4String;
i: Integer;
Tep: Array of Byte;
Resutl_String: string;
begin
if length(Trim(Contend))=0 then
Result:=''
else
begin
UniCode4String:=WideStringToUCS4String(trim(Contend));
SetLength(Tep,(length(UniCode4String)-1)*2);
for i:=0 to length(UniCode4String)-2 do
begin
Tep[2*i]:=(UniCode4String[i]) div 256;
Tep[2*i+1]:=UniCode4String[i] mod 256;
end;
SetLength(Resutl_String,(length(UniCode4String)-1)*4);
BinToHex(@Tep[0],@Resutl_String[1],length(Tep));
Result:=Resutl_String;
end;

end;
希望高手能帮帮忙啊！在线等！

...全文

149 18 打赏收藏转发到动态举报

写回复

用AI写文章

18 条回复

切换为时间正序

请发表友善的回复…

发表回复

CY53212798 2009-04-01

打赏
举报

终于解决了~~~把pdu的那个类里面的转换函数修改下，就能用了……谢谢大家啦1

panrongzeng 2009-04-01

打赏
举报

据说UCS4String是long数组

panrongzeng 2009-04-01

打赏
举报

找出这个UCS4String类型在C#是匹配那个类型
然后再找出，长字符串转到UCS4String这个类型的方法，那么这个代码就可以转过来了
其他都是基础函数

jlj84237485 2009-04-01

打赏
举报

帮顶一下

liuyeede 2009-04-01

打赏
举报

不知道UCS4String类型在C#中如何表示。
其余的都好说

sxmonsy 2009-04-01

打赏
举报

没太看出来是怎么转的

CY53212798 2009-04-01

打赏
举报

高手们帮帮忙啊！转换前你好
转换后044F60597D
应该是这样吧！

王集鹄 2009-04-01

打赏
举报

private String GBKToUCS2(String str)

{

    return BitConverter.ToString(Encoding.BigEndianUnicode.GetBytes(str)).Replace("-", "");

}

测试：Console.WriteLine(GBKToUCS2("Zswang 路过!"));
输出：005A007300770061006E006700208DEF8FC70021和Delphi中一致。

plglenn 2009-04-01

打赏
举报

学习

cpio 2009-04-01

打赏
举报

private String GBKToUCS2(String str)
{
byte[] bt = Encoding.BigEndianUnicode.GetBytes(str);
String rt = "";
for (int i = 0; i < bt.Length; i++)
{
rt += String.Format("{0:X}", bt[i]);
}

return rt;
}