Is Error:
Try
if Not ImportPagesIntoPDF(H_FileName_Out_PDF,H_FileName_In_PDF,H_ArrPage) Then
Begin
Writeln('--error 001!'+H_FileName_Out_PDF);
Exit;
End;
Except
on E: Exception do
Writeln('---Error 002',E.Message);
End;
===============================================
Is OK:
Var pdf := TIEPDFBuilder.Create();
Try
pdf.SaveToFile(H_FileName_Out_PDF);
Finally
pdf.Free();
End;
Try
if Not ImportPagesIntoPDF(H_FileName_Out_PDF,H_FileName_In_PDF,H_ArrPage) Then
Begin
Writeln('--Error(001)'+H_FileName_Out_PDF);
Exit;
End;
Except
on E: Exception do
Writeln('---Errror 002',E.Message);
End;
Search
