COM Interface / pdfMachine

[shmia]

Du fängst ohne Projekt an.
Datei -> Neu -> ActiveX -> ActiveX-Bibliothek (also eine DLL)
dann
Datei -> Neu -> ActiveX -> Automatisierungsobjekt
Name der CoClass: "PdfButton"

Es wird der TLB-Editor angezeigt.
Du wählst das Interface "IPdfButton" und wählst "neue Methode"
Die Methode bekommt den Namen "Clicked"
Auf der Seite Parameter fügst du 2 neue Parameter hinzu:
Name: "buttonText" Typ: BSTR
Name: "pdfMachineviewer" Typ: IDispatch *

Im TLB-Editor drückst du auf Implementierung aktualisieren
Delphi generiert dir folgenden Sourcecode:

Delphi-Quellcode:

procedure TPdfButton.Clicked(const buttonText: WideString;
  const pdfMachineviewer: IDispatch);
begin
   // und hier musst du dann weitermachen
end;