RSS订阅 | 匿名投稿
您的位置:网站首页 > 函数 > 正文

Delphi StreamToHexStr

作者:admin 来源: 日期:2015/4/27 19:49:01 人气: 标签:


function StreamToHexStr(AStream: TStream): String;
const
  HexChars: array[0..15] of Char = '0123456789ABCDEF';
var
  i,len: Integer;
begin
  len := AStream.Size - AStream.Position;
  SetLength(Result, len * 2);
  AStream.Read(Pointer(Result)^, len);
  for i := len downto 1 do begin
    Result[i * 2]    := HexChars[Byte(Result[i]) and $0F];
    Result[i * 2 -1] := HexChars[(Byte(Result[i]) and $F0) shr 4]
  end;
end;

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料