Verständnisfrage zu Com und Interface-Propertys

[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;

[Delbor]

Hi zusammen

Sorry, wenn es etwas gedauert hat. Da ist mir einiges dazwischengekommen - unter anderem habe ich nun auch so eine Minimalanwendung erstellt.
Die Anwendung entstand aus einer Vorlage, die ich mir mit Delphi Tokio 10.2.3 als Test für neue Komponenten erstellt hatte.
Im Wesentlichen enthalten sind ein ScanningFrame, mit dem eine Bitmap vom Scanner eingelesen werden kann, die PDFCreator_COM_TLB(..) sowie mein bisheriger Entwurf für eine Klasse, die sich mit vom PDFCreator eine durchsuchbare PDFerstellen lassen soll.

Diese ist bislang wie folgt deklariert:

Delphi-Quellcode:

  TCustomCreatePDFClass = class(TPersistent)

  private {private}
    FFilename: WideString;
    FPDFCreator: IPDFCreator;
    FPrinters : IPrinters;   //,
    FPrintJob : IPrintJob;
    FPrintJobInfo : IPrintJobInfo;
    FQueue : IQueue;
    FJobFinishedEvent : IJobFinishedEvent;

   public  {public}
      procedure CreatePDFCreator;
      procedure InitializeQueue;
      procedure ConvertToPdf;
//      procedure GetPDFCreatorPrinters;
      property FileName: WideString read FFilename write FFilename;

  constructor Create(AOwner: TPersistent);
  destructor Destroy; override;

  end;

Der Constructor:

Delphi-Quellcode:

constructor TCustomCreatePDFClass.Create(AOwner: TPersistent);
begin
   inherited Create;
   FPDFCreator := CoPdfCreatorObj.Create;

   FPrintjob := CoPrintjob.Create ;
   FPrintJobInfo := CoPrintJobInfo.Create;
   FPrinters := CoPrinters.Create as IPrinters;
   FQueue := CoQueue.Create as IQueue;

   FPDFCreator.AddFileToQueue(FFileName);
//   FPDFCreator.PrintFile(FFileName);        CreateComObject ;        ('{9616B8B3-FE6E-4122-AC93-E46DBD571F87}'         IPrintjobInfo
   InitializeQueue;
end;

Diese Zeilen sollen die entsprechenden Klassenmethoden in der PDFCreator_COM_TLB aufrufen. im Falle der Zeile 2 funktioniert das auch problemlos, nicht aber bei Zeile 3. Die Methode wird zwar aufgerufen und abgearbeitet, dann aber wird ein Fehler erzeugt:

Zitat:

Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt PDFSynOfficer.exe ist eine Exception der Klasse EOleSysError mit der Meldung 'Klasse nicht registriert' aufgetreten.

Klicke ich hier auf 'Fortsetzen, erhalte ich die nächste Meldung:

Zitat:

Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt PDFSynOfficer.exe ist eine Exception der Klasse EOleSysError mit der Meldung 'Klasse nicht registriert, ClassID: {9616B8B3-FE6E-4122-AC93-E46DBD571F87}' aufgetreten.

Nach meinen Infos ist es der Server, der sich beim System registrieren muss, ich hab da also nichts ausgelassen. Ich denke aber, dass dieser die Registrierung sehr wohl vornimmt.
Nachprüfen kann ich das nicht - der PDFCreator soll zwar Opensource sein, ich habe aber nirgendwo entsprechende Sourcen gefunden.

Andrerseits hab ich noch etliche Beispiele in diversen Programmiersprachen gefunden. Die finden sich im Installationsordner des PDFCreators. Eines dieser Beispiele lege ich dem Anhang bei - es ist in C# geschrieben. Ein Delphi-Beispiel fehlt leider, doch denke ich, dass die Syntax am ähnlichsten ist.

Gruss
Delbor