請問各位高手, 有個將 dll 包成 delphi component 過嗎? 要如何將 callback函數包成 'class' 裡面的 OnEvent function 呢(是 class, 不是flat-procedure喔)? 下面是我的一些組合語言, 不曉得是哪裡錯了, 可以OnEvent但離開時會Access Violation at 0x000000. 或者請問有什麼更容易的方法 ? function CreateStub(ObjectPtr: Pointer; MethodPtr: Pointer): Pointer; var Stub: ^TStub; begin // Allocate memory for the stub New(Stub); // Pop the return address off the stack Stub^.PopEDX := AsmPopEDX; // Push the object pointer on the stack Stub^.MovEAX := AsmMovEAX; Stub^.SelfPointer := ObjectPtr; Stub^.PushEAX := AsmPushEAX; // Push the return address back on the stack Stub^.PushEDX := AsmPushEDX; // Jump to the 'real' procedure, the method. Stub^.JmpShort := AsmJmpShort; Stub^.Displacement := (Integer(MethodPtr) - Integer(@(Stub^.JmpShort))) - (SizeOf(Stub^.JmpShort) SizeOf(Stub^.Displacement)); // Return a pointer to the stub Result := Stub; end;