Getting Print Job Information (Delphi)
Procedure TForm1.GetPrintJobInfo(LEADDicomPrintSCU: LEADDicomPrintSCU; strPrintJobInstanceUID: String);
var
strMsg: String;
begin
with (LEADDicomPrintSCU.PrintJob) do
begin
// We need only the Execution Status and Execution Status Info
RequiredInfo:= PJ_EXECUTION_STATUS + PJ_EXECUTION_STATUS_INFO;
// Query the Print SCP for the Print Job information
if(GetInfo (strPrintJobInstanceUID) = DICOM_SUCCESS)then
begin
strMsg:= 'Execution Status: ' + ExecutionStatus + Chr(13) +
'Execution Status Info: ' + ExecutionStatusInfo;
// Display the retrieved information
Application.MessageBox(PChar(strMsg), 'Print Job Info', MB_OK);
end;
end;
end;