Phương thức COM ở Delphi

Question

Trong Delphi, làm cách nào để tìm ra địa chỉ của phương thức COM? Tôi có thể mã hóa sai số

//0 is the offset of the QueryInterface method 
p := TPonterArray(pointer(SomeInterface)^)[0]; 

nhưng tôi muốn sử dụng tên biểu tượng. Các folllowing rõ ràng không hoạt động:

var M : TMethod; 
... 
M := TMethod(SomeInterface.QueryInterface); 

Cảm ơn!

Answer 1

Tôi không nghĩ rằng Delphi hỗ trợ điều đó. Hardcoding offsets có lẽ là điều duy nhất sẽ làm việc, vì trình biên dịch không đếm các phương thức giao diện như các biểu tượng có giá trị có thể được gán cho một con trỏ hàm, cách các phương thức đối tượng hoặc các hàm độc lập có thể.

Tại sao bạn đang cố thực hiện việc này, BTW?

Answer 2

Bạn có thể sử dụng chỉ thị lắp ráp vmtoffset để lấy độ lệch byte của phương thức giao diện tương ứng với bắt đầu của bảng phương thức của giao diện. Hãy xem việc thực hiện _IntfCast trong System.pas, ví dụ:

call dword ptr [eax] + vmtoffset IInterface.QueryInterface 
... 
call dword ptr [eax] + vmtoffset IInterface._Release 

Khái niệm đầu tiên cho biết thêm 0; thứ hai, 8.

Tuy nhiên, bạn không thể tham số hóa các biểu thức đó. Chúng là hằng số biên dịch, vì vậy bạn không thể chọn phương thức nào bạn muốn trong thời gian chạy. Bạn cần phải có tất cả các tên phương thức có thể được biểu diễn trước.

Tất cả các bạn thực sự cần phải móc là QueryInterface. Một khi bạn có điều đó, bạn có thể trả về bất kỳ đối tượng proxy nào bạn muốn có thể chặn cuộc gọi đến tất cả các phương thức khác.

Answer 3

Mã của bạn sai vì tham chiếu giao diện không phải là con trỏ đến bảng phương thức giao diện nhưng con trỏ trỏ đến con trỏ tới bảng phương thức giao diện. Đó là cách các giao diện Delphi được thực hiện ở mức nhị phân. Thật khó để nói nhiều hơn và chỉ ra lỗi trong mã của bạn bởi vì bạn chưa đưa ra một ví dụ mã có thể được biên dịch. Sử dụng đoạn mã sau để chuyển đổi tài liệu tham khảo giao diện để con trỏ phương pháp một cách chính xác, ý tưởng được lấy từ Barry Kelly's demonstration of creating a method pointer from a method reference:

procedure IntRefToMethPtr(const IntRef; var MethPtr; MethNo: Integer); 
type 
    TVtable = array[0..999] of Pointer; 
    PVtable = ^TVtable; 
    PPVtable = ^PVtable; 
begin 
    // QI=0, AddRef=1, Release=2, etc 
    TMethod(MethPtr).Code := PPVtable(IntRef)^^[MethNo]; 
    TMethod(MethPtr).Data := Pointer(IntRef); 
end; 

Nếu bạn thích tên mang tính biểu tượng cho MethNo bạn là tốt hơn để khai báo mình là hằng số bù đắp

Answer 4

Hai chỉ thị bổ sung cho phép mã lắp ráp truy cập động và các phương thức ảo: VMTOFFSET và DMTINDEX.

VMTOFFSET truy xuất độ lệch theo byte của con trỏ phương thức ảo mục bảng của đối số phương thức ảo từ đầu bảng phương thức ảo (VMT). Chỉ thị này cần tên được chỉ định đầy đủ với tên phương thức làm tham số (ví dụ: TExample.VirtualMethod) hoặc tên giao diện và phương thức giao diện tên.

DMTINDEX truy lục chỉ mục bảng phương pháp động của phương thức động được truyền.Chỉ thị này cũng cần một tên lớp được chỉ định đầy đủ với tên phương thức làm tham số, ví dụ: TExample.DynamicMethod. Để gọi phương thức động, hãy gọi Hệ thống. @ CallDynaInst với thanh ghi (E) SI có chứa giá trị thu được từ DMTINDEX.

docwiki.embarcadero.com

Đây mã để có được con trỏ phương pháp cần thiết

function GetMethodPointer(const IntRef: IInterface): Pointer; assembler; 
asm 
    mov eax, [IntRef] 
    add eax, vmtoffset ISomeInterface.MemberMethod 
    mov eax, [eax] 
end;