Hi zusammen
Hier mal das Corpus Delicti:
Delphi-Quellcode:
try
JPegGraphic.Assign(Image);
JPegGraphic.SaveToFile('C:\PDFOfficerAppdata\PdfOfficerData\ScannedPic.jpeg)');
LFileName := 'C:\PDFOfficerAppdata\PdfOfficerData\ScannedPic.jpeg)';
FCustomCreatePDFClass.Create(Owner);
Das erzeugt keine FCustomCreatePDFClass-Instanz, sondern ruft den Constructor der Klasse auf:
Delphi-Quellcode:
constructor TCustomCreatePDFClass.Create(AOwner: TPersistent);
begin
inherited Create;
end;
Die Methode hatte auch schon mehr zu tun - ich hab das aber mal ausgelagert:
Delphi-Quellcode:
procedure TCustomCreatePDFClass.CreatePDFCreator;
begin
FPDFCreator := CoPdfCreatorObj.Create;
FQueue := CoQueue.Create;
FQueue.Initialize;
FPDFCreator.AddFileToQueue(FFileName);
if not FQueue.WaitForJob(10) then
Showmessage('The print job did not reach the queue within 10 seconds')
else
Showmessage('Currently there are' + IntToStr(FQueue.Count) + ' job(s) in the queue');
Showmessage('Getting job instance');
FPrintJob := FQueue.NextJob;
FPrintJob.SetProfileByGuid('DefaultGuid');
Showmessage('Converting under DefaultGuid conversion profile');
FPrintJob.ConvertTo(FFileName);
// if (not printJob.IsFinished) or (not printJob.IsSuccessful) then
// MsgBox "Could not convert the file: " & fullPath
// else
// MsgBox "Job finished successfully"
// end if
//end if
// FPDFCreator.PrintFile(FFileName); // CreateComObject ; ('{9616B8B3-FE6E-4122-AC93-E46DBD571F87}' IPrintjobInfo
end;
Im Installationsverzeichnis des PDFCreators befinden sich etliche Beispiele in diversen Programmiersprachen (nur nicht Delphi). Da ich keine dieser Sprachen wirklich kenne, gibt da noch jede Menge Fehler - der häufigste ist nach einem Create-Aufruf 'Komponente nicht registriert'.
Mit andern Worten: die
Com-Schnittstelle des PDFCreators würde mir noch graue Haare verursachen, wenn ich nicht schon welche hätte
Aber dazu mehr in einem andern Thread.
Gruss
Delbor