Load existing PDF to GdPicture object

[Slava]

Hi,

i cannot open PDF with GdPicture Object in Delphi 7 with:

Code: Select all

oGdPicture.LoadFromFile('C:\1.pdf');

while GdViewer.DisplayFromFile() and GdViewer.DisplayFromPdfFile() both work fine with the same file.

May be simple but sorry i spent a few hours already on it

Slava

[Loïc]

Hi,

It's normal, you can't open a PDF file with a cGdPicture object. You can only view it with the GdViewer.

Best regards,

Loïc

[Slava]

oh that is bad, how do i MakeThumbnaill of a PDF then?

slava

[Loïc]

You can do like that:

Code: Select all

oGdViewer.DisplayFromPdfFile ("c:\test.pdf")
oGdPicture.SetNativeImage (oGdViewer.GetNativeImage)

nThumbID = oGdPicture.MakeThumbnail(300, 300)

Loïc

[Slava]

hi Loic,

did like you said, PDF loads but I get an error on when PDF is loaded in oGdPicture when i do oGdPicture.GetHeight

says: Priveleged Instruction.

only with PDF

Slava

[Loïc]

It it working for me. I didn't get any Priveleged Instruction error.

Could you write me the code you are using ?

Regards,

Loïc

[Slava]

Hi Loic,

i have created a new delphi project to check if my code contains errors somewhere else. But i still get the same error.

Code: Select all

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtrls, GdpicturePro_TLB, ComObj;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
const PDFpassword = '';
const gdViewerLicence = '0012345678910111213141516';         //Demo license key
const gdPictureLicence = '0332966657783387670301864';        //Demo tot 30 juni 2007
const quickPDFLicence = '31393639891433D970785E579889A9F5';  //Demo tot 4 juli 2007  http://www.gdpicture.com/forum/forum.php?view=145
var   oGdPicture: Variant;



procedure TForm1.Button1Click(Sender: TObject);
var gdView: TgdViewer;
    URL: String;
begin
  URL := 'E:\Documents and Settings\chris\Bureaublad\Bex Factuur\Input\Javocom_imageonly.pdf';

  //check extention
  //if RightStr(URL, 3) = 'pdf' then
  //  begin
      gdView := TgdViewer.Create(Self);
      gdView.SetLicenceNumber(gdViewerLicence);
      gdView.SetIsedQuickPDFLicenceNumber(quickPDFLicence);
      gdView.DisplayFromPdfFile(URL, PDFpassword);
      oGdPicture.SetNativeImage(gdView.GetNativeImage);
      gdView.ClosePicture;
      gdView.Free;
  //  end
  //else oGdPicture.LoadFromFile(URL);

  if oGdPicture.GetNativeImage = 0 then Exit;
  if oGdPicture.GetHeight > oGdPicture.GetWidth then
    ShowMessage('its a vertical pdf page');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  oGdPicture := CreateOleObject('Gdpicturepro.cGdPicture');
  oGdPicture.SetLicenceNumber(gdPictureLicence);
end;

end.

i can send the project file and the pdf.

Slava

[Loïc]

Hi,

Your crash come from here:

You are doing

Code: Select all

gdView.ClosePicture;

and just after:

Code: Select all

if oGdPicture.GetHeight > oGdPicture.GetWidth then

At this call you are trying to get informations about an image which whas previously released.


You have many solutions:

First solution:

Call

Code: Select all

 gdView.ClosePicture;

after all the image manipulation inside the GdPicture control.


Second solution:

Replace

Code: Select all

oGdPicture.SetNativeImage(gdView.GetNativeImage);

by

Code: Select all

oGdPicture.SetNativeImage(oGdPicture.CreateClonedImageI(gdView.GetNativeImage));

Best regards,

Loïc

[Slava]

thank you for your support, it works well now. Fine working with you, quick and professional responds.

Slava

[Loïc]

You're welcome!

Loïc