The GetError function is a Print Engine error message capture function. It accepts the Job Number as a parameter and then gets the Error Code and Error String. It then passes this back out as a formatted string.
PEGetErrorCode PEGetErrorText PEGetHandleString
uses CRDelphi;
function GetError(const JobIn: smallint): string;
var
Code : smallint;
StrHandle : hWnd;
Buffer : PChar;
Length : smallint;
Ret : Bool;
begin
{Get the Error code from the Crpe}
Code := PEGetErrorCode(JobIn);
{Get the error message handle}
Ret := PEGetErrorText(JobIn, StrHandle, Length);
Buffer := StrAlloc(Length);
{Get the text from the text handle}
Ret := PEGetHandleString(StrHandle, Buffer, Length);
{Output the string}
if Ret then
Result := IntToStr(Code) + ' - ' + StrPas(Buffer)
else
Result := 'Unknown Error';
StrDispose(Buffer);
end;
| Seagate Software IMG Holdings, Inc. http://www.seagatesoftware.com Support services: http://support.seagatesoftware.com |