delphi7如何能使接收到的数据转成中文字符呢？

Question

HEX数据:
FFFFFFFF6D3132372E302E302E313A323730323000E6B49BE998B34353312E36E6B58BE8AF95E69C8D20E38090E589A9E4BD992035393A3437E380910064655F6362626C650063737472696B6500E38090E4B8A7E5B0B8E5BCBAE588B620535845E3809100001E2F64
770001000000010000000000000001000000
ASCII数据:
m127.0.0.1:27020 娲涢槼CS1.6娴嬭瘯鏈?銆愬墿浣?59:47銆 de_cbble cstrike 銆愪抚灏稿己鍒?SXE銆  /dw              

Answer 1

解决了就好。正想给你一段代码呢。
那我就等着接分了。var
 byteDatas: array[0..512] of byte;
    bData: array[0..254] of wchar;
    buffer: array[0..254] of byte;ReadStr := '6D3132372E302E302E313A323730323000E6B49BE998B34353312E36E6B58BE8AF95E69';
FillChar(byteDatas, sizeof(byteDatas), #0);
    HexToBin(PChar(ReadStr), @byteDatas, Length(ReadStr));    BeginPos := 0;
    FillChar(bData, sizeof(bData), #0);
    FillChar(buffer, sizeof(buffer), #0);
    DataLen := 30;
    CopyMemory(@bData, @byteDatas[BeginPos], DataLen);
    BeginPos := BeginPos + DataLen;
    WideCharToMultiByte(CP_ACP, WC_COMPOSITECHECK, @bData, DataLen, @buffer, sizeof(buffer), nil, nil);
    Memo1.Lines.Add(Trim(StrPas(@buffer)) + #13 + #10);