Delphi puntero del ensamblador en línea para estructurar

Question

Hola gente ¿hay alguna manera puedo acceder a un puntero a un miembro de la estructura directamente de ensamblador en línea Probé este

procedure test(eu:PImageDosHeader);assembler; 
asm 
    push eu._lfanew 
end; 

No se compilará pero si puedo utilizar esta

procedure test(eu:Pointer); 
var 
xx:TImageDosHeader; 
begin  
xx:=TImageDosHeader(eu^); 
asm 
    push xx._lfanew 
end; 
end; 

Funciona genial. ¿Alguna idea de cómo puedo acceder a una estructura a través de un puntero en el asm en línea? Es una cuestión de optimizar el código

Answer 1

Sin embargo, otra solución:

procedure test(eu:PImageDosHeader); 
asm 
    push eu.TImageDosHeader._lfanew 
end; 

Answer 2

las siguientes obras:

type 
    PMyStruct = ^TMyStruct; 
    TMyStruct = record 
    A, B: cardinal; 
    end; 

procedure ShowCard(Card: cardinal); 
begin 
    ShowMessage(IntToHex(Card, 8)); 
end; 

procedure test(Struct: PMyStruct); 
asm 
    push ebx      // We must not alter ebx 
    mov ebx, eax     // eax is Struct; save in ebx 
    mov eax, TMyStruct(ebx).A  
    call ShowCard 
    mov eax, TMyStruct(ebx).B 
    call ShowCard 
    pop ebx      // Restore ebx 
end; 

procedure TForm6.FormCreate(Sender: TObject); 
var 
    MyStruct: TMyStruct; 
begin 
    MyStruct.A := $22222222; 
    MyStruct.B := $44444444; 
    test(@MyStruct); 
end; 

Answer 3

lo escribiría así:

procedure test(const eu: TImageDosHeader); 
asm 
    push TImageDosHeader([EAX])._lfanew 
end; 

La documentación pertinente es here.