Writer 进来领分(25分)

wp231957 · 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; 希望派分时多派点[

]

wp231957 · 2006-06-25

function tform1.showm(a

char;b

char;c:string):boolean;stdcall; var  tmp

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

ointer;  addr,addr2

char;  addr3:string; begin  addr:='ÕâÀïÊÇÂÒÂë';  addr2:='ÕâÀïÕý³£';  addr3:='hahahahaha';  func:=@tform1.showm;  asm    push addr3    push addr2    push addr    push tform1//这里入栈后确不需要出栈　不明白原因，但是程序运行不会出错    call func    pop addr3    pop addr    pop addr2  end; end;

wp231957 · 2006-06-26

wp231957 · 2006-06-27

呵呵，你小子不要分了啊

wp231957 · 2006-07-04

谁来另分

zj_mpy · 2006-07-04

Writer · 2006-07-04

现在才发现你发贴了呀，晕。 从汇编里找答案吧，很多事情不用解释。 在你程序第一行代码之前， DELPHI已经插入一些汇编，将ESP保存到EBP。在你最后一行代码的后面又插入一些汇编，将ESP还原（Mov ESP, EBP）所以即使你POP 多少次，都没有出错

wp231957 · 2006-07-04

Writer 进来领分(25分)

wp231957

Unregistered / Unconfirmed

wp231957

Unregistered / Unconfirmed

wp231957

Unregistered / Unconfirmed

wp231957

Unregistered / Unconfirmed

wp231957

Unregistered / Unconfirmed

zj_mpy

Unregistered / Unconfirmed

Writer

Unregistered / Unconfirmed

wp231957

Unregistered / Unconfirmed

Similar threads