Delphi puntatore assemblatore inline di strutturare

Question

Ciao gente c'è un modo che io possa accedere a un puntatore a un membro della struttura direttamente da in linea assembler ho provato questo

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

Non verrà compilato, ma se io uso questo

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

Funziona alla grande. Qual è l'idea di come accedere a una struttura tramite un puntatore in linea asm? è una questione di ottimizzazione del codice

Answer 1

Ancora un'altra soluzione:

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

Answer 2

le seguenti opere:

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

vorrei scrivere in questo modo:

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

La documentazione pertinente è here.