Delphi HexStrToBytes

本文整理自网络，侵删。

 
procedure HexStrToBytes(hHexStr: String; pbyteArray: Pointer);
var
  i, j:WORD;
  tempPtr:PChar;
  twoDigits:String[2];
begin
  tempPtr := pbyteArray;
  j := 1;
  for i := 1 to (Length(hHexStr) DIV 2) do
  begin
    twoDigits:=Copy(hHexStr, j, 2);
    Inc(j, 2);
    PByte(tempPtr)^:=StrToInt('$' + twoDigits);
    Inc(tempPtr);
  end;
end;




 // 调用实例
 // sOutBuf:array[0..512] of byte; retstr: string;
 // BytesToHexStr(retstr,@sOutBuf[0],outLen);
procedure BytesToHexStr(var hHexStr: String; pbyteArray: PByte;
  InputLength: WORD);
Const
  HexChars : Array[0..15] of Char = '0123456789ABCDEF';
var
  i, j: WORD;
begin
  SetLength(hHexStr, (InputLength * 2));
  FillChar(hHexStr[1], InputLength * 2, #0);
  j := 1;
  for i := 1 to InputLength  do begin
    hHexStr[j] := Char(HexChars[pbyteArray^ shr  4]); inc(j);
    hHexStr[j] := Char(HexChars[pbyteArray^ and 15]); inc(j);
    inc(pbyteArray);
  end;
end;
 

相关阅读 >>

Delphi 将word嵌入Delphi中

Delphi firemonkey限制tedit只能输入数字的完美方法

Delphi 系统对话框（如浏览目录）被隐藏到主窗体后面造成程序无法操作的临时处理方式

Delphi 实现php的urlencode编码效果

Delphi循环移位操作

Delphi 之 列表框组件(tlistbox)

Delphi unidac 连接mdb access 数据库

Delphi 过滤开头 结尾 全部 空格的函数

Delphi android 关闭应用程序对话框询问

Delphi中exit,abort,break,continue 的区别

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi HexStrToBytes