Delphi 汇编例子2

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

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有