Delphi inline assemblera wskaźnik do struktury

Question

Hi ludzi czy istnieje sposób mogę uzyskać dostęp do wskaźnika do elementu struktury bezpośrednio w linii asemblerze Próbowałem to

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

To nie będzie kompilować, ale jeśli mogę użyć tego

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

Działa świetnie. Każdy pomysł, w jaki sposób uzyskać dostęp do struktury za pomocą wskaźnika w inline ASM? Jest to kwestia optymalizacji kodu

Answer 1

Kolejny obejście:

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

Answer 2

następujące prace:

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

chciałbym napisać to tak:

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

Stosowny dokumentacja jest here.