======================================================
注:本文源代码点此下载
======================================================
进几天一直在研究在delphi中使用汇编的问题。上回说了一点。今天再把我刚刚弄出来的一点东西写上来。
ebp、esp、bp和sp都称为指针寄存器,主要用于存放堆栈内存储单元的偏移量,用它们可实现多种存储器操作数的寻址方式。
现在我们来说一说ebp:
ebp是基址指针寄存器:一般用来确认堆栈帧的起始位置,也就是指向栈底。也就是说,一般一个函数入口的地址也就存放在ebp中(所以一般在进入函数的时候将ebp寄存器内容压栈,即保存其函数的上级调用函数的栈基地址,以便于以后返回调用)。
比如,我们要实现点一个form1上的按扭button1实现弹出对话框。我们一般是
procedure tform1.button1click(sender: tobject);
varss: string;
begin
ss := '不得闲basm测试';
showmessage(ss);
end;
那么换成汇编的写法如下:
procedure tform1.button1click(sender: tobject);
varss: string;
begin
ss := '不得闲basm测试';
asm
moveax,[ebp-$04]
callshowmessage
end;
end;// 说明:ebp通过上面我们知道应该是用来指定button1click过程的入口地址,将其减4用来空一点空间出来用来存放局部变量 ,则此时[ebp- 04]中存放的则是字符串 ss 的地址,所以此时 eax中存放的则是 'basm测试'的地址
然后 call showmessage,调用showmessage函数,而delphi默认的调用方式是寄存器方式,其1,2,3个参数分别对应着eax,edx,ecx, 而 eax中已经存放了我们的局部变量地址。该函数则获得了字符串参数。
上面的是用在过程里面,直接使用赋值后的字符串的地址传递给showmessage函数调用。下面我们使用另一个方法来使用局部变量:
通过查看cpu view我们可以知道,在上面的字符串赋值过程的汇编代码如下:
leaeax, [ebp-$04]{这是留出一个空位,用来给局部变量中转使用}
movedx, $2342342{这里是一个随机的值,也就是字符串指针的值}
然后下面调用了一个系统函数lstrlasg
calllstrlasg
该函数将edx指向的地址内容复制到eax指向的地址中去。所以由此可见,delphi中的字符串赋值是通过拷贝实现的。
所以我们可以通过一个过程传递一个字符串地址值来得实现上面的方法,代码如下:
procedure test(praddress: integer);
asm
movedx,eax//先将praddress地址值存入edx,便于调用lstrlasg函数
leaeax,[ebp-$04]//将使用一个局部变量周转,(偏移地址)
callsystem.@lstrlasg//调用系统的lstrlasg函数实现字串复制
moveax,[ebp-$04]//将实际的局部变量地址传递给eax让showmessage调用
callshowmessage//调用showmessage函数
end;
然后我们在buttonclick中调用如下:
procedure tform1.button1click(sender: tobject);
varss: string;
begin
ss := '不得闲basm测试';
test(integer(ss));
end;
======================================================
在最后,我邀请大家参加新浪APP,就是新浪免费送大家的一个空间,支持PHP+MySql,免费二级域名,免费域名绑定 这个是我邀请的地址,您通过这个链接注册即为我的好友,并获赠云豆500个,价值5元哦!短网址是http://t.cn/SXOiLh我创建的小站每天访客已经达到2000+了,每天挂广告赚50+元哦,呵呵,饭钱不愁了,\(^o^)/