ＶＢ转Ｃ＋＋Ｂuilder ?

[mjxllj]

Dim TxtMsg As String
Dim Arr As String, ArrA As String, ArrB As String
Dim InChar As String, InCharB As String, Wait As String
Dim I As Single

For I = 1 To Len("中华人民共和国") '编码
Arr = Mid(TxtMessage, I, 1)
ArrA = Hex(AscB(MidB(Arr, 1, 1)))
ArrB = Hex(AscB(MidB(Arr, 2, 1)))
If Len(ArrB) = 1 Then If Val(ArrB) = 0 Then ArrB = "00"
If Len(ArrA) = 1 Then ArrA = "0" + ArrA
TxtMsg = TxtMsg + ArrB + ArrA '得到的编码
Next I

主要是这一句：ArrA = Hex(AscB(MidB(Arr, 1, 1))) ？

[TopCat]

是不是这样：

AnsiString::IntToHex((Arr.SubString(1, 1)), 1);

?

[TopCat]

AnsiString Arr, ArrA;

ArrA = AnsiString::IntToHex((Arr.SubString(1, 1)), 1);

我对VB不太熟悉，不敢确定

[猎人66]

AnsiString Arr,ArrA;
ArrA = IntToStr(Arr[1]);

[猎人66]

错了
ArrA = IntToHex(Arr[1]);

[猎人66]

无颜见江东父老了
ArrA = IntToStr(Arr[1],1);

[mjxllj]

大哥们，不对呀，要把它的内存的字节读出来。

[猎人66]

WideString Str="莫";
BYTE *Arr=(BYTE*)Str.c_bstr();
ShowMessage(IntToHex(Arr[1],1));

[猎人66]

WideString Str="莫";
BYTE *Arr=(BYTE*)Str.c_bstr();
ShowMessage(IntToHex(Arr[0],1));