【转】Delphi内嵌ASM简易教程

Delphi内嵌ASM简易教程

作者:heiying2006-03-19 18:33分类:默认分类标签:
前言
  Delphi作为一个快速高效的开发平台,使用的人越来越多,但熟悉在Delphi代码中嵌入ASM代码的程序员我想不多,因为这方面的资料太少了,另一方面,它还需要有基本的汇编语言知识,关於汇编语言的教程,那实在太多了,如果你对汇编语言不熟的话,建议你下载相交的教程先读读。因此,本文假定您已经熟悉了汇编语言。   (注,下文中的函数与过程统称为函数。)
一.如何在Delphi程序中增加一段汇编代码?   很简单,用asm...end把你的汇编代码封装起来,再把它放到你需要它的位置.这个需要它的位置可以是函数的begin与end之间,也可以是Program的begin与end之间,当然,好可以是initialization与end之间或finalization与end之间,一句话,任何可以放Delphi执行代码的地方。      
范例1:对变量X实现逻辑循环右移8位,它告诉您如何在过程程中插入一段asm代码。
  procedure TForm1.Button1Click(Sender: TObject);   
     var    X:DWORD;   
     begin    
        X:=$FF000000;    
   ShowMessage(Format('移位前: %.8X',[X]));    
        asm     
        MOV EAX, X     
        ROR EAX, 8     
        MOV X, EAX    
        end;    
        ShowMessage(Format('移位後: %.8X',[X]));   
      end;
  怎麽样,是不是很简单? 
二.如何在汇编代码中调用函数?
  首先,需要讲一下函数的调用方式。
  在Delphi中,函数的调用方式有五种,分别是register,pascal,cdecl,stdcall以及safecall,最常用的是register及stdcall方式.如何区别这五种方式,它们之间依据三个方面来区分,第一是参数传递顺序(Parameter Order),第二是堆栈清除方(Clean-up),第三是是否以寄存器来传递参数(Passes parameters in registers?).您可以在Delphi Help中找到相关资料。
  Delphi中默认的参数传递方式是register,即不加方式声明的情况下,都是register方式.register方式的参数传递顺序是从左到右,由被调用者来清除堆栈,并且使用寄存器来传递参数。如何使用寄存器来传递参数呢?第一个参数使用EAX,第二个参数使用EDX,第三个参数使用ECX,第四个及以后的参数使用堆栈来传递,并且这些使用堆栈的参数是从左到右入栈的。
  stdcall是Windows的默认参数传递方式,它不使用寄存器来传递参数,这种方式下参数的传递顺序是从右到左,即最后一个参数第一个入栈,依次向前,按倒序入栈。
  范例2:用asm代码调用MessageBox函数,它告诉您如何在asm中调用stdcall方式的函数。   
procedure TForm1.Button2Click(Sender: TObject);   
var    
szTitle:string;    
szCaption:string;   
begin    
  szTitle:='您好!';    
  szCaption:='这是一个在内嵌汇编中调用stdcall类型函数的例子.';    
  asm     
  PUSH MB_OK+MB_ICONINFORMATION     
  PUSH szTitle     
  PUSH szCaption     
  PUSH 0     
  CALL MessageBox    
  end;   
end;
  先来看看MessageBox函数的声明:     function MessageBox(hWnd: HWND; lpText, lpCaption: PChar; uType: UINT): Integer; stdcall;   这个函数的调用方式是stdcall,参数必须从右到左入栈,所以我们先将uType参数入栈,范例中该参数的值是MB_OK+MB_ICONINFORMATION,即PUSH MB_OK+MB_ICONINFORMATION,然后再将lpCaption,lpText,hWnd依次入栈.最后才使用CALL指令调用MessageBox函数。
  范例3:用asm代码调用register方式的函数.StrLen的声明为:function StrLen(const Str: PChar): Cardinal; 它的调用方式是默认的register方式.   procedure TForm1.Button3Click(Sender: TObject);   
var    
Str:PChar;    
iLen:Integer;   
begin    
  Str:='abcdefghijklm';    
  asm     
  MOV EAX, Str    //用EAX传递第一个参数     
  CALL StrLen     
  MOV iLen,EAX    
  end;    
  ShowMessage(IntToStr(iLen));   
end;
上一篇:bug日记之---------js中调用另一个js中的有ajax的方法, 返回值为undefind


下一篇:JS中的JSON对象 定义和取值