Hi Kodezwerg
Guten Morgen, Kodezwerg!
So ist die Definition in der TLB:
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;
Und ddas sind die Definitionen der Wrapperkomponenten im Frame:
Delphi-Quellcode:
type
TPDFCreatorFrame = class(TFrame)
PdfCreatorObj1: TPdfCreatorObj;
OutputFiles1: TOutputFiles;
Printers1: TPrinters;
PrintJob1: TPrintJob;
PrintJobInfo1: TPrintJobInfo;
Queue1: TQueue;
Gruss
Delbor