avatar

PcharToHex 用于把2进制(16进制)数据转换成HEX字符

1
2
3
4
5
6
7
Function pCharToHex(Buf:pChar;Len:Integer):String;
Var
 I:Integer;
Begin
 For I := 0 To Len-1 Do
   Result := Result+IntToHex(Ord(Buf[I]), 2)+' ';
End;
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function HexTopChar(Const s:String;Var Buf:pChar):Integer;
Var
 D:Array[0..1024] Of Byte;
 I:Integer;
Begin
 Result := 0;
 FillChar(D, (Length(s)+2)Div 3, #0);
 For I := 1 To Length(s) Do Begin
   If ((I Mod 3)=1) Then Begin
     D[Result] := StrToInt('$'+s[I]+s[I+1]);
     Inc(Result);
   End;
 End;
 GetMem(Buf, Result);
 Move(D, Buf, Result);
End;
Comments ( 0 ) Trackbacks ( 0 ) Leave a Reply
  1. No comments yet.

    目前尚无任何评论.

    コメントはまだありません。

  2.                    
  1. No trackbacks yet.

    目前尚无任何 trackbacks 和 pingbacks.

    トラックバックはまだありません。

  • ☆*:.。. o(≧▽≦)o .。.:*☆
  • _(:з」∠)_
  • ♪(´ε` )
  • ψ(`∇´)ψ
  • (-_-#)
  • (=´∀`)人(´∀`=)
  • \(//∇//)\
  • ♪(*^^)o∀*∀o(^^*)♪
  • (((o(*゚▽゚*)o)))
  • (´・_・`)
  • σ(^_^;)
  • ( *`ω´)
  • (ノ`Д´)ノ
  • (( _ _ ))..zzzZZ
  • ( ̄▽ ̄)
  • ヽ(`Д´#)ノ
  • ((((;゚Д゚)))))))
  • (>_<)
  • (T_T)
  • ( T_T)\(^-^ )
  • ε=ε=ε=ε=ε=ε=┌(; ̄◇ ̄)┘