Delphi内联汇编指向结构体的指针

Question

大家好，我想知道在内联汇编中是否有一种方法可以直接访问结构体成员的指针，我尝试了以下代码：

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

这段代码无法编译，但是如果我使用以下代码：

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

它的运行效果很棒。我该如何通过内联汇编访问一个结构体指针呢？这是优化代码的问题。

- opc0de

---

http://www.delphi3000.com/articles/article_3769.asp - Andreas Rejbrand

Answer 1

另一个解决方法：

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

- kludg

---

这正是我所需要的，David的方法不错，但这个更棒。谢谢伙计！ - opc0de

@opcode：我认为@David的方法也可以与您的签名一起使用，因此Serg的方法和David（以及我的）之间的唯一区别纯粹是美学上的。例如，在我的代码中，您可以将mov eax，TMyStruct（ebx）.A替换为mov eax，ebx.TMyStruct.A，将mov eax，TMyStruct（ebx）.B替换为mov eax，ebx.TMyStruct.B。 - Andreas Rejbrand

@AndreasRejbrand 的区别在于我不需要浪费一个寄存器来存储已经存储在 EU 中的地址。我不是在特定的代码片段中谈论这个问题，因为我知道参数是通过寄存器传递的，但在某些情况下，寄存器可以计数。 - opc0de

Answer 2

以下内容有效：

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;

- Andreas Rejbrand

---

我经常遇到这个问题，这里有很多人会因为不喜欢你的昵称而给你点踩。 - opc0de

没有点踩，但是...：A: 你不需要保存EAX、EDX和ECX，所以你可以将test更改为：asm mov ecx, eax mov eax,TMyStruct(ecx).A call ShowCard mov eax,TMyStruct(ecx).B call ShowCard。 - Johan

Answer 3

我会这样写它：

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

The pertinent documentation is here.

- David Heffernan

---

是的，这个链接对于这个主题非常重要。symbols 部分的最后一段包含了 STRUC 的四个句法选项。 - Premature Optimization