ASM을 사용하는 객체 호출 방법

Question

내가 성취하려는 것을 더 잘 설명하려면 먼저 작동하는 것으로부터 시작하겠습니다. 지금은 를 호출 할 수 있습니다

procedure SaySomething(const AValue: string); 
begin 
    ShowMessage(AValue); 
end; 

:이 우리가 호출 절차가

procedure CallSaySomething(AProc: Pointer; const AValue: string); 
var 
    LAddr: Integer; 
begin 
    LAddr := Integer(PChar(AValue)); 
    asm 
    MOV EAX, LAddr 
    CALL AProc; 
    end; 
end; 

:

우리가 그것에 문자열 매개 변수 다른 프로 시저를 호출하고 전달할 수있는 절차를 말해봐 SaySomething (테스트 및 작동 (:) :

CallSaySomething(@SaySomething, 'Morning people!'); 

내 질문은 방법 내가 비슷한 기능을 달성 할 수 있지만,이 시간 을 SaySomething 어떻게해야입니다 : 당신은 여전히 ​​나와 함께라면, 그래서

type 
    TMyObj = class 
    public 
    procedure SaySomething(const AValue: string); // calls show message by passing AValue 
    end; 

을 ... 내 목표는 얻을 것입니다

procedure CallMyObj(AObjInstance, AObjMethod: Pointer; const AValue: string); 
begin 
    asm 
    // here is where I need help... 
    end; 
end; 

나는 꽤 많은 샷을 주었지만, 내 어셈블리 지식은 제한적이다.

Answer 1

asm을 사용하는 이유는 무엇입니까? //docs.embarcadero : 당신은 객체 메소드를 호출 할 때

, 다음 인스턴스 포인터는 메소드 호출

program Project1; 
{$APPTYPE CONSOLE} 
{$R *.res} 

uses System.SysUtils; 
type 
    TTest = class 
     procedure test(x : integer); 
    end; 

procedure TTest.test(x: integer); 
begin 
    writeln(x); 
end; 

procedure CallObjMethod(data, code : pointer; value : integer); 
begin 
    asm 
     mov eax, data; 
     mov edx, value; 
     call code; 
    end; 
end; 

var t : TTest; 

begin 
    t := TTest.Create(); 
    try 
     CallObjMethod(t, @TTest.test, 2); 
    except 
    end; 
    readln; 
end.