Delphi中使用汇编例子
-----也是大二的,接着上一个例子。呵呵,程序当时写的有点乱,请原谅:)。
Delphi中使用汇编进行混合编程,是异乎寻常的方便。如此,当你希望得到效率的时候,你可选择汇编,然而大部分工作,你仍是享受着可视化、面向对象编程的方便。delphi的语言,通过使用asm...end程序段写汇编代码部分,在汇编代码段中可以调用高级语言的变量;你需要注意的是,保护某些寄存器变量,然后呢,某些细节和dos下的汇编不同。大家看这个例子。 先大体说说一些小知识: 一,Delphi调用汇编,有两种方式。 一如--- procedure TForm1.DrawRain; var x1,y1,x2,y2,d,i:integer; begin//delphi程序开始 for i:=0 to 100 do begin x1:=random(537); y1:=random(280); d:=random(7); asm//内嵌汇编开始 push eax mov eax,x1 sub eax,d mov x2,eax mov eax,y1 add eax,d mov y2,eax pop eax end;;//内嵌汇编结束 times:=times+1; drawLine2(x1,y1,x2,y2,clmedGray); wait(); if (i div 2)=0 then drawLine2(x1,y1,x2,y2,clwindow); end; end;//delphi程序结束
还有一种,把外层的begin...end去掉,通过asm...end直接进入汇编。
procedure TForm1.Wait(); asm//内嵌汇编开始 push eax mov eax,0 @loop: add eax,1 cmp eax,1000000 jnz @loop pop eax end;//内嵌汇编结束
二,在汇编中使用delphi的变量
大家看第一段代码的例子,很容易明白: asm//内嵌汇编开始 push eax mov eax,x1 //x1是delphi局部变量,此处用作值 sub eax,d mov x2,eax //x2是delphi局部变量,又用作内存地址 mov eax,y1 add eax,d mov y2,eax pop eax end;;//内嵌汇编结束
三,汇编的不同细节
例子不帖了,大家自己比较了,如 @loop: //... jnz @loop 另外,大部分int中断可能不能用,我没有试通,也没见什么资料上介绍过。谁知道,给我发个消息好吗?谢谢了先。
下面是一个比较大的例子,是一个动画效果。因为以前刚开始学这方面的知识,做的很粗糙。是一个小树林里,不停的下着雨的场景---很多问题,表现突出的是,首先浮点指令没有会用(我在后面会附上有待继续尝试的浮点数指令的测试例子),一些算法当时还不会,结果画面比较单调,其次,对景物间的协调不够好,比如树没有有效保护,后来就被雨“花”了:)。 可还是做例子了,大家别笑我,一来没时间写这方面的例子了,二来,学Delphi中的汇编使用,它还是可以说明某些问题的。而且,一般的资料上,是回避这个应用的,个别的高级编程中,偶尔提及,可大家要想掌握,大都得要自己多实践,这个例子可以个给你许多教训:)。
unit Unit1;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, Menus, ExtDlgs, FileCtrl, StdCtrls, ComCtrls, ImgList;
type TForm1 = class(TForm) MainMenu1: TMainMenu; File1: TMenuItem; Exit1: TMenuItem; N1: TMenuItem; Help1: TMenuItem; About1: TMenuItem; g1: TMenuItem; Spring1: TMenuItem; Summer1: TMenuItem; Autumn1: TMenuItem; Winter1: TMenuItem; StatusBar1: TStatusBar; ext1: TMenuItem; Timer1: TTimer; procedure Exit1Click(Sender: TObject); procedure About1Click(Sender: TObject); procedure Spring1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure Summer1Click(Sender: TObject); procedure Autumn1Click(Sender: TObject); procedure Winter1Click(Sender: TObject); procedure ext1Click(Sender: TObject); private procedure DrawLine1(x1,y1,x2,y2:integer;icolor:TColor);// x2>x1 and y2>y1 procedure DrawLine2(x1,y1,x2,y2:integer;icolor:TColor);// x2<x1 and y2>y1 procedure DrawLine3(x1,y1,x2,y2:integer;iColor:TColor);// x1=x2 or y1=y2 procedure DrawRain; procedure DrawTree(x,y,height:integer); procedure Timer1Timer(sender:TObject); procedure drawClear; procedure Wait(); { Private declarations } public { Public declarations } end;
var Form1: TForm1; times:single; implementation uses Unit3,Unit5; {$R *.dfm}
procedure TForm1.Wait(); asm push eax mov eax,0 @loop: add eax,1 cmp eax,1000000 jnz @loop pop eax end;
procedure TForm1.DrawLine1(x1,y1,x2,y2:integer;iColor:TColor); const i:integer=1; var j,k1,k2,d:integer; begin if((x2-x1)<=0)or((y2-y1)<=0) then exit; for j:=0 to (x2-x1) do begin form1.Canvas.Pen.Color:=icolor; form1.Canvas.Ellipse(x1,y1,x1+2,y1+2); form1.Canvas.Ellipse(x1-1,y1-1,x1+1,y1+1); if ((x2-x1)=0)or((y2-y1)=0) then exit; asm push eax push ebx push ecx push edx mov ecx,0 mov eax,x2 sub eax,x1 mov ebx,y2 sub ebx,y1 mov d,ebx mov edx,0 div d mov k2,eax
mov eax,y2 sub eax,y1 mov ebx,x2 sub ebx,x1 mov d,ebx mov edx,0 div d mov k1,eax
mov eax,x1 @loop2: add eax,i inc ecx cmp ecx,k2 jb @loop2 mov x1,eax
mov eax,y1 @loop1: add eax,i inc ecx cmp ecx,k1 jb @loop1 mov y1,eax
pop edx pop ecx pop ebx pop eax end; end;// end for end; procedure TForm1.DrawLine2(x1,y1,x2,y2:integer;icolor:TColor); const i:integer=1; var j,k1,k2,d:integer; begin if((x1-x2)<=0)or((y2-y1)<=0) then exit; for j:=0 to (x1-x2) do begin form1.Canvas.Pen.Color:=icolor; form1.Canvas.Ellipse(x1,y1,x1+2,y1+2); form1.Canvas.Ellipse(x1-1,y1-1,x1+1,y1+1); if ((x1-x2)=0)or((y2-y1)=0) then exit; asm push eax push ebx push ecx push edx
mov ecx,0
mov eax,x1 sub eax,x2 mov ebx,y2 sub ebx,y1 mov d,ebx mov edx,0 div d mov k2,eax
mov eax,y2 sub eax,y1 mov ebx,x1 sub ebx,x2 mov d,ebx mov edx,0 div d mov k1,eax
mov eax,x1 @loop2: sub eax,i inc ecx cmp ecx,k2 jb @loop2 mov x1,eax
mov eax,y1 @loop1: add eax,i inc ecx cmp ecx,k1 jb @loop1 mov y1,eax
pop edx pop ecx pop ebx pop eax end; end;// end for end; procedure TForm1.DrawLine3(x1,y1,x2,y2:integer;icolor:TColor); var j:integer; begin if((x2-x1)<>0)and((y2-y1)<>0) then exit; if (x2-x1)=0 then for j:=0 to (y2-y1) do begin form1.Canvas.Pen.Color:=icolor; form1.Canvas.Ellipse(x1-1,y1-1,x1+1,y1+1); if (y2-y1)=0 then exit; asm push eax mov eax,y1 inc eax mov y1,eax pop eax end; end// end for else for j:=0 to (x2-x1) do begin form1.Canvas.Pen.Color:=icolor; form1.Canvas.Ellipse(x1-1,y1-1,x1+1,y1+1); if (x2-x1)=0 then exit; asm push eax mov eax,x1 inc eax mov x1,eax pop eax end; end;// end for end; procedure TForm1.Timer1Timer(sender:TObject); begin
end; procedure TForm1.DrawRain; var x1,y1,x2,y2,d,i:integer; begin for i:=0 to 100 do begin x1:=random(537); y1:=random(280); d:=random(7); asm push eax mov eax,x1 sub eax,d mov x2,eax mov eax,y1 add eax,d mov y2,eax pop eax end; times:=times+1; drawLine2(x1,y1,x2,y2,clmedGray); wait(); if (i div 2)=0 then drawLine2(x1,y1,x2,y2,clwindow); end; end;
procedure TForm1.DrawTree(x,y,height:integer); var x1,y1,x2,y2,x3,y3,x4,y4,x5,y5,d1:integer; begin asm push eax push ebx push ecx push edx mov eax,height mov edx,0 mov ecx,2 div ecx mov d1,eax mov eax,x mov ebx,y
sub eax,height mov x1,eax sub ebx,height mov y1,ebx add eax,height sub eax,5 sub ebx,height mov x2,eax mov y2,ebx mov eax,x add eax,3 sub ebx,height mov x3,eax mov y3,ebx add eax,8 add ebx,height mov x4,eax mov y4,ebx add eax,height sub eax,5 add ebx,height mov x5,eax mov y5,ebx
pop edx pop ecx pop ebx pop eax end; DrawLine2(x3,y3,x2-d1,y2,clcream); DrawLine1(x3,y3,x4+d1,y4,clcream); drawline3(x2-d1,y2,x2,y2,clcream); drawline3(x4,y4,x4+d1,y4,clcream); DrawLine2(x2,y2,x1,y1,clcream); DrawLine1(x4,y4,x5,y5,clcream); DrawLine2(x2+2,y2,x1,y1+2,clcream); DrawLine1(x4-2,y4,x5,y5+2,clcream); drawline3(x1,y1,x5,y5,clcream); drawline3(x1,y1-1,x5,y5-1,clcream); drawline3(x,y5,x,y,clcream); drawline3(x,y,x+5,y,clcream); drawline3(x+5,y5,x+5,y,clcream); form1.Canvas.Brush.Color:=clgreen; form1.Canvas.FloodFill(x,y1-5,clcream,fsBorder); form1.Canvas.FloodFill(x+2,y-5,clcream,fsBorder);
end; procedure TForm1.Exit1Click(Sender: TObject); begin close; end;
procedure TForm1.About1Click(Sender: TObject); begin form3.Show; end;
procedure TForm1.Spring1Click(Sender: TObject); var i,k,j:integer; begin StatusBar1.Panels[1].text:=''''风雨之春...''''; form1.Canvas.Brush.Color:=clwindow; form1.Canvas.FloodFill(1,1,clred,fsBorder); for i:=0 to 10do begin k:=random(10); j:=random(10); j:=-j; drawTree(10+k*50,300+j*20,20); end; for i:=0 to 10 do begin form1.Canvas.Brush.Color:=clwindow; form1.Canvas.FloodFill(1,1,clgreen,fsBorder); drawRain; sleep(100); end; [1] [2] 下一页 没有相关教程
|