Delphi 2007 - Convert multipage TIFF file to PDF

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   Code below converts my TIFF file to PDF. But when I open the PDF with Acrobat, scrolling to particular page (sometimes page 4, on the other file page 2 for example) shows an Error on pagemessage. Can you point me to direction where can I look for a solution?

procedure TForm1.ConvertTiffToPdf(inputImagePath: String; outputFilePath: String);
var
  page, pages, id, UnlockResult, result, dpix, dpiy, docid: Integer;
  imageWidthInPoints, imageHeightInPoints: Double;
  pdfLib: TDebenuPDFLibrary0913;
begin

  pdfLib := TDebenuPDFLibrary0913.Create;
  pdfLib.UnlockKey('jn3343ac9ko4yt4gj7ak5z34y');

  docid := pdfLib.NewDocument;
  pdfLib.SetPDFAMode(2);
  pages := pdfLib.GetImagePageCount(inputImagePath);

  if pages = 0 then pages := 1;

  for page := 1 to pages do
  begin

      if page <> 1 then pdfLib.NewPage;

      id := pdfLib.AddImageFromFile(inputImagePath, page);
      pdfLib.SelectImage(id);
      dpix := pdfLib.ImageHorizontalResolution;
      dpiy := pdfLib.ImageVerticalResolution;

      if dpix = 0 then dpix := 72;
      if dpiy = 0 then dpiy := 72;

      imageWidthInPoints := pdfLib.ImageWidth / dpix * 72.0;
      imageHeightInPoints := pdfLib.ImageHeight / dpiy * 72.0;

      pdfLib.SetPageDimensions(imageWidthInPoints, imageHeightInPoints);
      pdfLib.SetOrigin(1);
      pdfLib.DrawImage(0, 0, imageWidthInPoints, imageHeightInPoints);

  end;

  pdfLib.SaveToFile(outputFilePath);
  pdfLib.RemoveDocument(docid);

  pdfLib.Free;

end;

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
janigorse Members Profile Find Members Posts Beginner Joined: 14 Feb 13 Status: Offline Points: 1	Post Options Post Reply Quote janigorse Report Post Thanks(0) Quote Reply Topic: Delphi 2007 - Convert multipage TIFF file to PDF Posted: 14 Feb 13 at 1:57PM
	Code below converts my TIFF file to PDF. But when I open the PDF with Acrobat, scrolling to particular page (sometimes page 4, on the other file page 2 for example) shows an Error on page message. Can you point me to direction where can I look for a solution? procedure TForm1.ConvertTiffToPdf(inputImagePath: String; outputFilePath: String); var page, pages, id, UnlockResult, result, dpix, dpiy, docid: Integer; imageWidthInPoints, imageHeightInPoints: Double; pdfLib: TDebenuPDFLibrary0913; begin pdfLib := TDebenuPDFLibrary0913.Create; pdfLib.UnlockKey('jn3343ac9ko4yt4gj7ak5z34y'); docid := pdfLib.NewDocument; pdfLib.SetPDFAMode(2); pages := pdfLib.GetImagePageCount(inputImagePath); if pages = 0 then pages := 1; for page := 1 to pages do begin if page <> 1 then pdfLib.NewPage; id := pdfLib.AddImageFromFile(inputImagePath, page); pdfLib.SelectImage(id); dpix := pdfLib.ImageHorizontalResolution; dpiy := pdfLib.ImageVerticalResolution; if dpix = 0 then dpix := 72; if dpiy = 0 then dpiy := 72; imageWidthInPoints := pdfLib.ImageWidth / dpix * 72.0; imageHeightInPoints := pdfLib.ImageHeight / dpiy * 72.0; pdfLib.SetPageDimensions(imageWidthInPoints, imageHeightInPoints); pdfLib.SetOrigin(1); pdfLib.DrawImage(0, 0, imageWidthInPoints, imageHeightInPoints); end; pdfLib.SaveToFile(outputFilePath); pdfLib.RemoveDocument(docid); pdfLib.Free; end;

AndrewC Members Profile Find Members Posts Moderator Group Joined: 08 Dec 10 Location: Geelong, Aust Status: Offline Points: 841	Post Options Post Reply Quote AndrewC Report Post Thanks(0) Quote Reply Posted: 18 Feb 13 at 7:04AM
	Which version of QPL are you using ? Is the TIFF file a colour LZW TIFF image ? Andrew.

Ingo Members Profile Find Members Posts Moderator Group Joined: 29 Oct 05 Status: Offline Points: 3530	Post Options Post Reply Quote Ingo Report Post Thanks(0) Quote Reply Posted: 18 Feb 13 at 1:38PM
	Hi Andrew! It's 9.13 ;-) Cheers, Ingo