Verständnisfrage zu Com und Interface-Propertys

[Delbor]

Hi zusammen

Vorausschicken muss ich: Ich habe noch nie etwas mit Com und/oder Interfaces gemacht und habe desshalb damit Null Erfahrung. Das einzige, was ich verbuchen kann, sind die unzähligen Beiträge im Netz, die ich in den letzten Tagen zusammengesucht habe (und ein vor vielen Jahren nachgebautes Beispiel mit Word und CreateOleObject).
Ich habe die Typbibliothek des PDFCreators importiert (ohne Komponentenwrapper z erstellen). Dabei gibt es Konstrukte wie:

Delphi-Quellcode:

  IQueue = dispinterface
    ['{3803F46C-F5AA-4B86-8B9C-6EFFAC9CDCFA}']
    procedure Initialize; dispid 1610743808;
    function WaitForJob(timeOut: Integer): WordBool; dispid 1610743809;
    function WaitForJobs(jobCount: Integer; timeOut: Integer): WordBool; dispid 1610743810;
    property Count: Integer readonly dispid 1610743811;
    property NextJob: IPrintJob readonly dispid 1610743812;
    function GetJobByIndex(jobIndex: Integer): IPrintJob; dispid 1610743813;
    procedure MergeJobs(const job1: IPrintJob; const job2: IPrintJob); dispid 1610743814;
    procedure MergeAllJobs; dispid 1610743815;
    procedure Clear; dispid 1610743816;
    procedure DeleteJob(index: Integer); dispid 1610743817;
    procedure ReleaseCom; dispid 1610743818;
  end;

Dieses Interface versuche ich nun, in einer Klasse zu nutzen:

Delphi-Quellcode:

type
  TCustomCreatePDFClass = class(TPersistent)
    {private}
     FPDFCreator: IPDFCreator;
     FPrinters : IPrinters;   //,
     FPrintJob : IPrintJob;
     FPrintJobInfo : IPrintJobInfo;
     FQueue : IQueue;
     FJobFinishedEvent : IJobFinishedEvent;

     {public}
      procedure CreatePDFCreator;
      procedure InitializeQueue;
  end;

und:

Delphi-Quellcode:

procedure TCustomCreatePDFClass.InitializeQueue(TInterfacedObject, IQueue);
begin
  FQueue := CoQueue.Create;
  FQueue.Initialize;
  FQueue.WaitForJob(10);  // Bis hierhin scheint alles in Ordnung zu sein

  FPrintJob := FQueue.NextJob;   // Hier meckert Delphi, IQueue  hätte kein Element Namens 'NextJob'
  FPrintJob.NextJob;                    // Hier meckert Delphi, IPrintJob hätte kein Element Namens 'NextJob'
  FPrintJob.SetProfileSetting();
end;

Dabei versuche ich, nach diesen Anweisungen vorzugehen - ob ich allerdings bis jetzt auch nur ansatzweise auf dem richtigen Dampfer bin, weiss ich (noch) nicht.

Ich hab mich auch schon versucht, über Propertys in Interfaces schlau zu machen:
https://stackoverflow.com/questions/...and-properties
https://stackoverflow.com/questions/...rty-visibility
https://www.delphipraxis.net/65692-p...interface.html

Wobei mir gerade jetzt Beittrag 6 im letzten verlinkten Beitrag aufgefallen ist (die Methodenzuordnungsklauseln). Trotzdem ist mir da einiges nicht klar. In dem Beispiel ist das Interface-Property so deklariert:

Delphi-Quellcode:

ISample = interface
  function getValue : Integer;
  procedure setValue(value : Integer);
  property Value : Integer read getValue write setValue;
end;

Meine Interface-Propertys hingegen so:

Delphi-Quellcode:

    property Count: Integer readonly dispid 1610743811;
    property NextJob: IPrintJob readonly dispid 1610743812;

An Implementierungen enthält die TLB gerade mal die Classfunctions Create und CreateRemote.

Ich denke, ich habe da noch einiges nicht verstanden. Wie stark liege ich daneben, wenn ich von der Idee ausgehe: Indem ich die von dem Interface angegebenen Methoden in meiner Klasse implementiere, überschreibe ich allfällige Implementierungen des Ursprungsobjekts (hier also PDFCreator)?
Oder hab ich bislang weniger als nichts begriffen?

Gruss
Delbor

[Delbor]

Hi zusammen

Inzwischen habe ich die Deklaration der Klasse TCustomCreatePDFClass angepasst - was mich zur bisherigen Deklaration veranlasst hat, kann ich nicht mehr nachvollziehen. Die neue Deklaration in einer eigenen Unit:

Delphi-Quellcode:

unit PDFCreatorClassUnit;

interface

uses  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, mscorlib_TLB, Winapi.ActiveX,  PDFCreator_COM_TLB;

type
  TCustomCreatePDFClass = class(TInterfacedObject, IQueue)
    {private}
     FPDFCreator: IPDFCreator;
     FPrinters : IPrinters;   
     FPrintJob : IPrintJob;
     FPrintJobInfo : IPrintJobInfo;
     FQueue : IQueue;
     FJobFinishedEvent : IJobFinishedEvent;

     {public}
      procedure CreatePDFCreator;
      procedure InitializeQueue;
  end;


implementation

Und da beginnt schon das erstte Problem: das Interface IQueue wird markiert. unddie Meldung lauted : 'Interfacetyp erwartet'. Und dies, obwohl erst eine Zele darüber die Unit PDFCreator_COM_TLB eingebunden wird.

Was ist da falsch?

Gruss
Delbor

[Uwe Raabe]

interface ist nicht gleich dispinterface

IQueue = dispinterface

[Delbor]

Hi Uwe Raabe

Danke für deine Antwort! Aber versteh ich das richtig, Ich kann gar keine solchen Klasen deklarieren? In der fraglichen Tlb gibts ausser den CoKlassen nur Dispinterfaces.

Aber da fällt mir noch etwas auf:

Delphi-Quellcode:

  CoQueue = class
    class function Create: IQueue;
    class function CreateRemote(const MachineName: string): IQueue;
  end;

Davon gibts sechs Stück - eines weniger wie Interfaces. Und das könnte mich auf die Idee bringen, meine Klasse von solch einer Co-Klasse abzuleiten. Nur habe ich von so einer Möglichhkeit nirgends was gelesen, auch im Embaa-Wicki nicht

Gruss
Delbor

PS: Es sei denn, ich fände noch sowas...
Und wenn ich richtig liege, entspräche dies dann der späten Bindung, und das wollte ich eigentlich vermeiden.

[Sherlock]

Verzichtest Du aus didaktischen Gründen auf den Komponentenwrapper?

Sherlock

[Uwe Raabe]

Delphi-Quellcode:

procedure TCustomCreatePDFClass.InitializeQueue(TInterfacedObject, IQueue);
begin
  FQueue := CoQueue.Create;
  FQueue.Initialize;
  FQueue.WaitForJob(10); // Bis hierhin scheint alles in Ordnung zu sein

  FPrintJob := FQueue.NextJob; // Hier meckert Delphi, IQueue hätte kein Element Namens 'NextJob'
  FPrintJob.NextJob; // Hier meckert Delphi, IPrintJob hätte kein Element Namens 'NextJob'
  FPrintJob.SetProfileSetting();
end;

Mit den hier gezeigten Deklarationen sollte das aber schon gehen. Häng doch mal ein Minimalprojekt an, mit dem wir das Problem reproduzieren können.

Zitat von Delbor:

Aber versteh ich das richtig, Ich kann gar keine solchen Klasen deklarieren?

Das ist richtig.

[Delbor]

Hi zusammen

Zitat von Sherlock:

Verzichtest Du aus didaktischen Gründen auf den Komponentenwrapper?
Sherlock

Nein, das war eigentlich nicht meine Absicht. Bei meinen Versuchen, Paperport fernzusteuern wurden mir die Dinger "automatisch" installiert, (ich hatte das entsprechende Häkchen im Importdialog übersehen), wonach ich dann 32 dieser Dinger auf der Toolbox kleben hatte. Angesichts der Tatsache, dass ich die Typbibliotheken gerade mal für eine Anwendung brauche, schien mir dies zuviel des guten.
Andrerseits ists ja schon so: ich lerne mehr, wenn mir die Arbeiten nicht einfach so abgenommen werden - ich hatte mir schon überlegt, die TLB wieder zu löschen und mit dem Wrapper neu zu importieren. Vom Lerneffekt her ist es aber ganz gut, dass ichs nicht getan habe.

Zitat von Uwe Raabe:

Delphi-Quellcode:

procedure TCustomCreatePDFClass.InitializeQueue(TInterfacedObject, IQueue);
begin
  FQueue := CoQueue.Create;
  FQueue.Initialize;
  FQueue.WaitForJob(10); // Bis hierhin scheint alles in Ordnung zu sein

  FPrintJob := FQueue.NextJob; // Hier meckert Delphi, IQueue hätte kein Element Namens 'NextJob'
  FPrintJob.NextJob; // Hier meckert Delphi, IPrintJob hätte kein Element Namens 'NextJob'
  FPrintJob.SetProfileSetting();
end;

Mit den hier gezeigten Deklarationen sollte das aber schon gehen. Häng doch mal ein Minimalprojekt an, mit dem wir das Problem reproduzieren können.

So ein Minimalprojekt müsste ich erst noch entwerfen - das Testprojekt ist dafür wohl eher schon zu gross. Aber ich hänge hier mal die erzeugte TLB an. Ich denke, das würde dir wohl schon einiges nützen.

Was den Zugriff auf den PDFCreator angeht - da existiert ausser den obigen Zeilen eigentlich noch gar nichts ausser leeren Methodenrümpfen.

Gruss
Delbor

[Uwe Raabe]

Also, den Fehler Hier meckert Delphi, IQueue hätte kein Element Namens 'NextJob' kann ich hier nicht reproduzieren. Allerdings hat der Fehler Hier meckert Delphi, IPrintJob hätte kein Element Namens 'NextJob' durchaus seine Berechtigung.

Du könntest der Vollständigkeit noch deine Version der mscorlib_TLB.pas anhängen. Vielleicht bringt die noch ein paar Erkenntnisse.

[Delbor]

Hi Uwe Raabe

Die liegt im selben Verzeichnis wie die PDFCreator_COM_TLB - das Problem ist: ich habe keine Ahnung, woher die kommt. Ich dachte erst, das sei eine Typbibliothek, um Windows fernzusteuern - WMI oder sowas, doch das scheint nicht der Fall zu sein. Ich habe allerdings auch nicht weiter gesucht, da ich erstmal mit dem vorliegenden Projekt klarkommen muss. Nun findest du sie im Anhang.

Gruss
Delbor

[Uwe Raabe]

Die mscorlib_TLB wird vond er PDFCreator_COM_TLB benötigt. Interessanterweise gibt es in der mscorlib_TLB auch eine Co-Klasse CoQueue, weswegen die Reihenfolge in der Uses-Anweisung von Belang wäre. Allerdings gäbe es da andere Fehler.

Der folgende Text compiliert hier ohne Probleme:

Delphi-Quellcode:

procedure Main();
var
  FQueue: IQueue;
  FPrintJob: IPrintJob;
begin
  FQueue := CoQueue.Create;
  FQueue.Initialize;
  FQueue.WaitForJob(10); // Bis hierhin scheint alles in Ordnung zu sein

  FPrintJob := FQueue.NextJob; // Hier meckert Delphi, IQueue hätte kein Element Namens 'NextJob'  --- hier nicht!
//  FPrintJob.NextJob; // Hier meckert Delphi, IPrintJob hätte kein Element Namens 'NextJob' --- Das ist auch korrekt so.
  FPrintJob.SetProfileSetting('Hurz', 'Hurz');
end;