Delphi与汇编

时间:2010-03-02 18:02:14  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:底层功能。借贵报一方宝地与大家分享我的“研究”。  Delphi的位操作  每个学习C的朋友都会被告之C是“中级语言”,其位操作非常方便,而Pascal之流只适用于教学。但是Delphi中提供了一组位操作,可别以过去对Pascal的态度看Delphi。  * 按位的逻辑操作:  Delphi中的AND、OR、NOT可不仅仅只对逻辑表达式有作用,它们还可以操作...
  正文:我一直认为Delphi功能与C++相比毫不逊色,提供了丰富的控件和类、全部API以及嵌入的汇编。最近小弟在把C版的Huffman压缩改用Delphi写时,顺便“研究”了一下Delphi的位操作和嵌入式汇编,利用嵌入汇编我们可以得到高效的程序代码,完成一些Delphi没有提供的底层功能。借贵报一方宝地与大家分享我的“研究”。

  Delphi的位操作

  每个学习C的朋友都会被告之C是“中级语言”,其位操作非常方便,而Pascal之流只适用于教学。但是Delphi中提供了一组位操作,可别以过去对Pascal的态度看Delphi。

  * 按位的逻辑操作:

  Delphi中的AND、OR、NOT可不仅仅只对逻辑表达式有作用,它们还可以操作数;

  AND:按位与,如:1 AND 2其结果为0

  OR:按位或,如:1 OR 2其结果为3

  Not:按位取反:如Not 1其结果对于有符号数是-2,对于无符号数是65534

  另外,还有按位异或XOR:如:1 XOR 2结果为3

  * 移位操作

  Delphi提供了SHL和SHR进行移位左移和右移:

  例如:2 SHR1表示2按位右移一位结果为1。

  * Delphi中的数

  既然有位的操作就一定涉及到数的类型:是有符号数(头一位用0和1表示正负)还是无符号数。

  Delphi中:Shortint(8位)、Smallint(16位)、Longint(32位)、Integer(32位)、Int64(64位)是有符号数;而Byte(8位)、word(16位)、Longword(32位)是无符号数。它们之间可以像C一样强制转换。例如:Smallint类型的-1转换成Word类型就是65535。转换方法是Word(-1)。

  怎样,够全吧^_^!什么还不够……!?Delphi还有一招,接招吧……

  Delphi的嵌入式汇编

  Delphi中提供了几乎全部常用汇编指令的支持:MOV、JE、JMP、CMP、SHL、SHR、SAL、SAR、POP、PUSH、HLT……自己去查吧。至于INT也能识别,不过非法操作或死机可别找我(在最早的Windows95中用Delphi 3似乎可以正确运行中断,但Windows 95 OEM、Windows 98就不对了,大概是16位模块的问题,还搞不清楚)。

  * 嵌入式汇编的格式

  Delphi是使用ASM……END来标志汇编语句

   如:ASM

   mov al,1

   mov bl,al

   END;

  * 可操作的寄存器

  Delphi可用汇编管理以下寄存器:

  32位寄存器EAX EBX ECX EDX ESP EBP ESI EDI

  16位寄存器AX BX CX DX SP BP SI DI

  8位寄存器AL BL CL DL AH BH CH DH

   16位段寄存器CS DS SS ES

  以及协处理器寄存器堆栈 ST

  * 使用汇编前的工作

  教汇编的老师一再强调使用汇编要保存寄存器现场(保存使用前的寄存器状态,使用Push压栈和Pop从栈中弹出),不过这一切对于Delphi的嵌入式汇编是没有必要的(除非你自己要使用Push和Pop),因为Delphi已经帮你做了,不必担心会使数据丢掉。

  * Delphi嵌入式汇编的使用方式

  1.在一般函数过程中使用汇编

  汇编程序段可以嵌套于其它过程中:如:

  procedure TForm1.Button1Click(Sender: TObject);

  var i:smallint;

  begin

   i:=1;

   asm

   mov ax,i

   sal ax,1

   mov &i,ax

   end;

   showmessage(inttostr(i));

  end;

  这个程序段是把16位的变量I进行左移,然后把结果用Mov &I,ax语句放入I变量所在地址返回值。最后显示I 的值是2。

  2.独立的汇编程序段

  汇编程序段也可以单独写成函数或过程。这就涉及到参数的传递与结果的返回。首先Delphi对于函数的返回有一个约定:

  即:整型数据:8位的用AL返回,16位的用AX返回,32位的用EAX返回;

  实型:用ST(0)返回

  指针:用EAX返回

  长字符串:用EAX返回其所在地址

  变量:可用@Result返回

  例如:一个用汇编的求和函数

  function _Sum(X, Y: Integer): Integer;

   asm

  MOV EAX,X //把32位的数放入EAX

  ADD EAX,Y //进行加法运算

  MOV @Result,EAX //返回X+Y

   end;

  一个把字符转化为大写的函数例子

  function _UpCase( ch : Char ) : Char;

  asm

   CMP AL,`a'

   JB @@exit

   CMP AL,`z'

   JA @@exit "Delphi与汇编"由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/Delphi/12996.html


关键字:

关于《Delphi与汇编》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td