将二进制数据以十六进制字符串形式输出的Delphi代码示例

源码资源网

将二进制数据以十六进制字符串形式输出的Delphi代码示例

1. procedure OutputStructData(const MyData: Pointer);
   
2. var
   
3.   Stream: TMemoryStream;
   
4.   HexString: string;
   
5.   i: Integer;
   
6. begin
   
7.   Stream := TMemoryStream.Create;
   
8.   try
   
9.     Stream.WriteBuffer(MyData^, SizeOf(TMyStruct));
   
10.     SetLength(HexString, Stream.Size * 2);
    
11.     BinToHex(Stream.Memory^, PChar(HexString), Stream.Size);
    
12.     WriteLn('结构体数据流 (十六进制):');
    
13.     WriteLn(HexString);
    
14.   finally
    
15.     Stream.Free;
    
16.   end;
    
17. end;

复制代码

在这个代码中，内存流中的二进制数据被转换为十六进制字符串，以便以更可读的格式输出。