When encrypting a PDF document with a user password and the option to prevent text from being copied, the Adobe Acrobat Reader version 7.0.8 reports an error (but continues to run). The error is:
Could not find the XObject name "WPToolsJIF_1".
Note, the _1 varies, for example, it came up as "WPToolsJIF_73" once.
If I allow text to be copied from the PDF, I don't get this error.
WPTools 5.20.6
wPDF 2.6.5
Delphi 7
Please use WPTools V5.20.8 and the latest wPDF
I think I see why I get the error about XObject name 'WPToolsJIF_1" not found... this only occurs on the 2nd export to PDF from the same WPRichText that have linked images.
Seems that the first time I export to PDF, the images are in the PDF, but if I turn around and export it a 2nd time, the images are all missing from the PDF (file size confirms it as well, down from about 1MB to about 200KB)... plus Acrobat warns about not being able to find the XObject.
Why do the linked images not show up in the 2nd attempt to export to PDF, and what do I need to do to prevent this?? Seems to me I had this issue way back with WPTools 4, but not sure what I did to fix the problem. I quick scan of that older source of mine didn't reveal anything obvious.
A print preview of the WPRichText after exporting the 2nd time still shows the images, yet the PDF doesn't have them.
I Updated to 5.20.8 and wPDF 2.75, and it made no difference. (was running with 5.20.6 and 2.65)
I think this problem has been ongoing for a while as I've received a few emails about their report not having images, but if they do it again, it does. I thought they had a few too many beers because we couldn't repro at the time, so now all I can think of is that they must have done an export twice when they noticed the report was missing images, and then went back again to export it, and it worked (since they only exported it once that time).
Hi,
WPTools is reusing the images after they were embedded. To do so it identifies the copy using a state integer.
Please do this before your export code:
inc(EditBox.RTFData._WPPDFRun);
This is the complete export code used by the PDF export from which is part of wptools:
procedure TWPCreatePDF.Button1Click(Sender: TObject);
var pdf: TWPPDFExport; uh: Boolean;
begin
BackgroundImageHandle := -1;
Messages.Items.Clear;
Messages.Items.Add('Messages');
if EditBox = nil then raise Exception.Create('Property "EditBox" not assigned!')
else
begin
pdf := TWPPDFExport.Create(nil);
{$IFDEF PDFDEBUGMODE}
pdf.DebugMode := TRUE;
{$ENDIF}
pdf.CreateOutlines := TRUE;
{$IFDEF PRINTERREFERENCE}
pdf.CanvasReference := wprefPrinter;
{$ENDIF}
{$IFDEF WPPREMIUM}
inc(EditBox.Memo._WPDFParRun);
{$ENDIF}
pdf.Source := EditBox;
pdf.AutoLaunch := AutoLaunch.Checked;
if EnableCompression.Checked then
pdf.CompressStreamMethod := wpCompressFlate
else pdf.CompressStreamMethod := wpCompressNone;
if Messages.Visible then
pdf.OnError := DoError;
case ImageCompression.ItemIndex of
1: pdf.JPEGQuality := wpJPEG_10;
2: pdf.JPEGQuality := wpJPEG_25;
3: pdf.JPEGQuality := wpJPEG_50;
4: pdf.JPEGQuality := wpJPEG_75;
else pdf.JPEGQuality := wpNoJPEG;
end;
if EmbedFonts.Checked then
begin
if SubsetsOnly.Checked then
pdf.FontMode := wpEmbedSubsetTrueType_UsedChar
else pdf.FontMode := wpEmbedTrueTypeFonts;
end else pdf.FontMode := wpEmbedSymbolTrueTypeFonts;
pdf.ExcludedFonts.Clear;
if EncodeASCI85.Checked then
pdf.EncodeStreamMethod := wpASCII85Encode
else pdf.EncodeStreamMethod := wpEncodeNone;
{$IFDEF WPDF3}
if asCID.Checked then pdf.CidFontMode := wpCIDUnicode;
if PDFAMode.Checked then
begin
pdf.PDFAMode := wpdfaLevelA;
pdf.FontMode := wpEmbedTrueTypeFonts;
end else
{$ENDIF}
begin
pdf.ExcludedFonts.Add('Arial');
pdf.ExcludedFonts.Add('Courier New');
pdf.ExcludedFonts.Add('Times New Roman');
pdf.ExcludedFonts.Add('TimesNewRoman');
case radSecurity.ItemIndex of
0: pdf.Encryption := [];
1:
begin
pdf.Security := wpp40bit;
pdf.Encryption := [wpEncryptFile];
end;
2:
begin
pdf.Security := wpp128bit;
pdf.Encryption := [wpEncryptFile];
end;
end;
if wpEncryptFile in pdf.Encryption then
begin
pdf.OwnerPassword := OwnerPassword.Text;
pdf.UserPassword := UserPassword.Text;
if chkLowRes.Checked then
pdf.Encryption := pdf.Encryption +
[wpEnablePrinting, wpLowQualityPrintOnly]
else if chkPrint.Checked then
pdf.Encryption := pdf.Encryption +
[wpEnablePrinting];
if chkCopy.Checked then
pdf.Encryption := pdf.Encryption +
[wpEnableCopying];
if chkEdit.Checked then
pdf.Encryption := pdf.Encryption +
[wpEnableChanging];
end;
end; //PDF/A
uh := EditBox.InsertPointAttr.Hidden;
if not uh then EditBox.InsertPointAttr.Hidden := TRUE;
try
pdf.FileName := FileName.Text;
pdf.Info.Title := EditBox.RTFVariables.Strings['Title'];
pdf.Info.Subject := EditBox.RTFVariables.Strings['Subject'];
pdf.Info.Author := EditBox.RTFVariables.Strings['Author'];
pdf.Info.Keywords := EditBox.RTFVariables.Strings['Keywords'];
pdf.OnAfterPrintPage := AfterPage;
pdf.OnBeforePrintPage := BeforePage;
inc(EditBox.RTFData._WPPDFRun);
pdf.Print;
finally
pdf.Free;
if not uh then EditBox.InsertPointAttr.Hidden := uh;
end;
end;
end;Julian
Thanks, but I must have done something wrong or it doesn't apply to PrintPages. Here is my code (DocSource is the WPRichText being exported, and CreateOutline uses WPPDFExport1.SetOutline):
if DocSource <> nil then
Inc( DocSource.RTFData._WPPDFRun );
with WPPDFExport1 do
begin
Info.Date := GetUTCTime;
Info.ModDate := Info.Date;
if (PageMode = wpUseOutlines) and (not createPDFOutline) then
PageMode := pwUseNone;
Filename := Edit_PDFFile.Text;
UserPassword := Combo_UserPswd.Text;
Source := DocSource;
// Create the PDF document
try
BeginDoc;
try
PrintPages( tempFrom-1, tempTo-1 );
if createPDFOutline then
CreateOutline( TreeView.Items[0].getFirstChild, 0 );
finally
EndDoc;
result := true;
end;
except
begin
MessageDlg( 'Error attempting to create the PDF file.' + #10#10 +
'The destination might be write protected, full, or ' +
'the file might simply be in use by another ' +
'application, such as the Adobe Acrobat Reader.',
mtError, [ mbOK ], 0 );
end;
end;FWIW, in the old code of mine, I found where I forced it to rebuild the report again if it was exported to PDF. Not the best fix, but it worked. :)
Your fix implemented for WPTools 5.20.8a corrects the problem, thanks!