Delphi与汇编学习4(两个转16进制的函数)

Delphi与汇编学习4(两个转16进制的函数)由于在工作中需要，用汇编写了一个字符串转16进制的函数，有详细注释，应该对想学习的人有所帮助的。呵呵

DelphiCode:

 {功能：字符串转16进制 作者：不得闲} function StrToHex(Const str: string): string; asm     push ebx     push esi     push edi     test eax,eax     jz   @@Exit     mov  esi,edx       //保存edx值，用来产生新字符串的地址     mov  edi,eax       //保存原字符串     mov  edx,[eax-4]  //获得字符串长度     mov  ecx,edx       //保存长度     Push ecx     add  edx,edx     mov  eax,esi     call System.@LStrSetLength //设置新串长度     mov  eax,esi       //新字符串地址     Call UniqueString  //产生一个唯一的新字符串，串位置在eax中     Pop   ecx   @@SetHex:     xor  edx,edx       //清空edx     mov  dl, [edi]     //Str字符串字符     mov  ebx,edx       //保存当前的字符     shr  edx,4         //右移4字节，得到高8位     mov  dl,byte ptr[edx+@@HexChar] //转换成字符     mov  [eax],dl      //将字符串输入到新建串中存放     and  ebx,$0F       //获得低8位     mov  dl,byte ptr[ebx+@@HexChar] //转换成字符     inc  eax             //移动一个字节,存放低位     mov  [eax],dl     inc  edi     inc  eax     loop @@SetHex   @@Exit:     pop  edi     pop  esi     pop  ebx     ret   @@HexChar: db '0123456789ABCDEF' end; 在群中，有人说要指针转16进制的函数，其实字符串本身就是按照指针的形式保存的，所以稍微修改一下就是指针区信息转16进制的函数了如下: {功能：指针区信息转16进制 参数： Ptr指定指针，Len指定取得的数据长度 作者：不得闲} function PointToHex(Const Ptr: pointer;Const Len: integer): string; asm     Push ebx     push esi     push edi     test eax,eax     jz   @@Exit     mov  edi,eax     mov  esi,ecx     mov  ecx,edx     push ecx     add  edx,edx     mov  eax,esi     call System.@LStrSetLength //设置新串长度     mov  eax,esi       //新字符串地址     Call UniqueString  //产生一个唯一的新字符串，串位置在eax中     pop  ecx   @@SetHex:     xor  edx,edx       //清空edx     mov  dl, [edi]     //Str字符串字符     mov  ebx,edx       //保存当前的字符     shr  edx,4         //右移4字节，得到高8位     mov  dl,byte ptr[edx+@@HexChar] //转换成字符     mov  [eax],dl      //将字符串输入到新建串中存放     and  ebx,$0F       //获得低8位     mov  dl,byte ptr[ebx+@@HexChar] //转换成字符     inc  eax             //移动一个字节,存放低位     mov  [eax],dl     inc  edi     inc  eax     loop @@SetHex   @@Exit:     pop  edi     pop  esi     pop  ebx     ret   @@HexChar: db '0123456789ABCDEF' end; 使用比如： var   Stream:TMemoryStream;   s: String;   i: integer; begin   Stream := TMemoryStream.Create;   s := '不得闲';   i := 511;   Stream.WriteBuffer(pointer(s)^,Length(s));   ShowMessage(PointToHex(Stream.Memory,Stream.size));   Stream.free;

这样就把整个Stream都转换成16进制了.