Метод вызова объекта с использованием ASM

Question

Чтобы лучше объяснить то, что я пытаюсь выполнить, я начну с того, что работает.

Скажем, у нас есть процедура, которая может вызывать другую процедуру и передать строковый параметр к нему:

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

Это процедура, которую мы будем называть:

procedure SaySomething(const AValue: string); 
begin 
    ShowMessage(AValue); 
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?

когда вы вызываете метод объектов, то указатель экземпляра должен быть первым параметром в вызове метода

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.