Hi Zusammen
Nach etlichen Versuchen mit diversen Engines bin ich jetzt wieder bei der Fernsteuerung des PDFCreators gelandet - allerdings benuze ich jetzt - anders als
hier die beim Import automatisch generierten Komponenten-Wrapper.
Aberr auch da steh ich schon wieder auf dem Schlauch...
Bislang habe ich in einem Frame folgendes:
Delphi-Quellcode:
type
TPDFCreatorFrame = class(TFrame)
PdfCreatorObj1: TPdfCreatorObj;
OutputFiles1: TOutputFiles;
Printers1: TPrinters;
PrintJob1: TPrintJob;
PrintJobInfo1: TPrintJobInfo;
Queue1: TQueue;
private
{ Private-Deklarationen }
FInputFileName: String;
FOutputFileName :String;
FFileName : WideString;
procedure ImageToPDF;
public
{ Public-Deklarationen }
Property InputFile: String read FInputFileName write FInputFileName;
Property OutputFleName : String read FOutputFileName write FOutputFileName;
end;
Soweit mal der Aufbau des Frames mit allen importierten Wrappern. In einer ersten Prozedur versuche ich nun ein PDF zu erzeugen - die Zeile, in der abgebrochen wird, ist markiert und mit der Fehlermeldung ergänzt:
Delphi-Quellcode:
procedure TPDFCreatorFrame.ImageToPDF;
begin
Showmessage('Initializing PDFCreator queue...');
Queue1.Initialize;
Showmessage('Setting up target path to: ' + Self.FFileName);
Showmessage('Printing one windows test page...');
if not Self.Queue1.WaitForJob(10)then
Showmessage('The print job did not reach the queue within ' + IntToStr(10) + ' seconds')
else
Showmessage('Currently there are ' + IntToStr(Queue1.Count) + ' job(s) in the queue');
Showmessage('Getting job instance');
PrintJob1 := Queue1.NextJob; //<==[dcc32 Fehler] PDFCreatorFrameUnit.pas(70): E2010 Inkompatible Typen: 'TPrintJob' und 'IPrintJob'
Self.PrintJob1.SetProfileByGuid('DefaultGuid');
Showmessage('Converting under \"DefaultGuid\" conversion profile');
Self.PrintJob1.ConvertTo(FFileName);
if not Self.PrintJob1.IsSuccessful and not Self.PrintJob1.IsFinished then
Showmessage('Could not convert the file: ' + FFileName)
else
Showmessage('Job finished successfully');
Queue1.ReleaseCom;
end;
Die entsprechenden Zeilen in dem Beispielscript:
Delphi-Quellcode:
// var job = PDFCreatorQueue.NextJob;
//
// //Alternative: job.SetProfileByName("DefaultGuid");
// //For converting to other formats than pdf set here the appropriate conversion profile
// job.SetProfileByGuid("DefaultGuid");
Was mache ich falsch?
Gruss
Delbor