很简单的代码，怎么就是调试通不过呢(50分)

wp231957 · 2006-06-25

function tform1.showm(a

char):boolean;　　／／注意这里函数随便，用哪个函数都可以，只是为了说明问题而已　 begin  messagebox(0,a,nil,mb_ok);  result:=true; end; procedure TForm1.Button7Click(Sender: TObject); var  func

ointer;  addr

char; begin  addr:='afsda';  func:=@tform1.showm;　　／／这里一定要用取函数地址的方式  asm    push addr    call func　　　　　　　　　／／这里一定要用ＡＳＭ　的ＣＡＬＬ方式来调用函数  end; end;

dhszxh · 2006-06-25

你的说说你要干什么

nihg · 2006-06-25

忘了写 begin 了吧  我们连问题也没看到

wp231957 · 2006-06-25

function tform1.showm(a

char):boolean;　　 begin  messagebox(0,a,nil,mb_ok);  result:=true; end; procedure TForm1.Button7Click(Sender: TObject); var  func

ointer;  addr

char; begin  addr:='afsda';  func:=@tform1.showm;　　／／这里一定要用取函数地址的方式  asm    push addr    call func　　　　　　　　　／／这里一定要用ＡＳＭ　的ＣＡＬＬ方式来调用函数  end; end;   我想做的一件事就是使用ＡＳＭ的ＣＡＬＬ来调用某个函数 先ＰＵＳＨ几个合法的参数，然后ＣＡＬＬ之，不知道为什么运行错误

wp231957 · 2006-06-25

来自：nihg, 时间：2006-6-25 14:59:21, ID：3480881 忘了写 begin 了吧  我们连问题也没看到   不会的，因为编译是可以通过的，只不过运行错误而已

smallstomach · 2006-06-25

tform1.showm   注意到了没有，是个类方法。 故除了你能看到的参数，还需要传递this指针（标识tform1），你可看看一般的反汇编书籍。

wp231957 · 2006-06-25

来自：smallstomach, 时间：2006-6-25 15:04:21, ID：3480887 tform1.showm   注意到了没有，是个类方法。 故除了你能看到的参数，还需要传递this指针（标识tform1），你可看看一般的反汇编书籍。   我把ＴＦＯＲＭ１．去掉也不可以（就是做成一个独立的函数） 同样是运行错误

smallstomach · 2006-06-25

function showm(a

char):boolean;//注意这里函数随便，用哪个函数都可以，只是为了说明问题而已　 begin  messagebox(0,a,nil,mb_ok);  result:=true; end; procedure TForm1.Button7Click(Sender: TObject); var  func

ointer;  addr

char; begin  addr:='afsda';  func:=@showm;//这里一定要用取函数地址的方式  asm    push addr    call func//这里一定要用ＡＳＭ　的ＣＡＬＬ方式来调用函数    add sp,4  end; end; end. 不行吗

wp231957 · 2006-06-25

来自：smallstomach, 时间：2006-6-25 15:16:09, ID：3480890 能告诉我ＡＤＤ　ＳＰ，　４　是干什么的吗

wp231957 · 2006-06-25

因为你的这一个语句导致结果正确

smallstomach · 2006-06-25

这就是把你刚才入栈的addr清除掉，

wp231957 · 2006-06-25

再来： function showm(a

char;b

char):boolean; begin  messagebox(0,a,b,mb_ok);  result:=true; end; procedure TForm1.Button7Click(Sender: TObject); var  func

ointer;  addr,addr2

char; begin  addr:='这里是乱码';  addr2:='这里则正常';  func:=@showm;  asm    push addr    push addr2    call func    add sp,8  end; end;

kaida · 2006-06-25

function showm(a

char):boolean;//注意这里函数随便，用哪个函数都可以，只是为了说明问题而已　 begin  messagebox(0,a,nil,mb_ok);  result:=true; end; procedure TForm1.Button1Click(Sender: TObject); var  func

ointer;  addr

char; begin  addr:='afsda';  func:=@showm;//这里一定要用取函数地址的方式  asm    push addr    call func//这里一定要用ＡＳＭ　的ＣＡＬＬ方式来调用函数    [red]pop addr[/red]  end; end;

smallstomach · 2006-06-25

什么意思，这不跟调用了一次addr2一样吗，当然没有任何错误。因为sp是加了8。所以button7Click仍能正确的找到返回地址。

wp231957 · 2006-06-25

来自：smallstomach, 时间：2006-6-25 15:31:17, ID：3480901 什么意思，这不跟调用了一次addr2一样吗，当然没有任何错误。因为sp是加了8。所以button7Click仍能正确的找到返回地址。   function showm(a

char;b

char):boolean; 该函数有２个参数 不是需要把２个参数分别ＰＵＳＨ然后才能ＣＡＬＬ吗？？？

kaida · 2006-06-25

function showm(a

char;b

char):boolean;[red]stdcall;[/red] begin  messagebox(0,a,b,mb_ok);  result:=true; end; procedure TForm1.Button1Click(Sender: TObject); var  func

ointer;  addr,addr2

char; begin  addr:='这里是乱码';  addr2:='这里则正常';  func:=@showm;  asm    push addr    push addr2    call func    pop addr2    pop addr  end; end;

smallstomach · 2006-06-25

噢，刚才没看见你把参数变成两个了。

wp231957 · 2006-06-25

感谢２位的帮助，ＯＫ了

Writer · 2006-06-25

这里有两个关键的细节，就是调用协议和你要调用的是一个类里面的函数。 关用默认调用约定DELPHI帮助文件里说了，默认是通过寄存器的！ Calling conventions determine the order in which parameters are passed to the routine. They also affect the removal of parameters from the stack, the use of registers for passing parameters, and error and exception handling. [red]The default calling convention is register.[/red] 一般我们用汇编都用寄存器调用约定，所以把你要调用的函数声明为stdcall，这样被调用的函数负责平衡堆栈。 之后就是Self指针的问题，因为你要调用的是一个类里的函数，根据反汇编得知，Self指针是第一个参数，而调用约定为stdcall，所以Self指针最后push 现面是代码 把要调用的函数定义在Form2    function Test(Msg: PChar): Integer; stdcall; function TForm2.Test(Msg: PChar): Integer; begin  MessageBox(0, Msg, Msg, MB_OK);  result:= 1; end; 调用代码 var  Msg: PChar; begin  Msg:= 'Hello!';  asm    push Msg    push Form2  //这里不能直接Push Self，因为这里的Self是Form2    call TForm2.Test  end; 希望派分时多派点[

]

很简单的代码，怎么就是调试通不过呢(50分)

wp231957

Unregistered / Unconfirmed

dhszxh

Unregistered / Unconfirmed

nihg

Unregistered / Unconfirmed

wp231957

Unregistered / Unconfirmed

wp231957

Unregistered / Unconfirmed

smallstomach

Unregistered / Unconfirmed

wp231957

Unregistered / Unconfirmed

smallstomach

Unregistered / Unconfirmed

wp231957

Unregistered / Unconfirmed

wp231957

Unregistered / Unconfirmed

smallstomach

Unregistered / Unconfirmed

wp231957

Unregistered / Unconfirmed

kaida

Unregistered / Unconfirmed

smallstomach

Unregistered / Unconfirmed

wp231957

Unregistered / Unconfirmed

kaida

Unregistered / Unconfirmed

smallstomach

Unregistered / Unconfirmed

wp231957

Unregistered / Unconfirmed

Writer

Unregistered / Unconfirmed

Similar threads