"convert" jpeg image into pdf

matejgolob

I have images (jpeg format), that are exactly A4 page sized. I want to create pdf document from images. I have tried with simple code:

WPPDFExport1.Filename := 'x:\export.pdf';
WPPDFExport1.BeginDoc;
Image1.Picture.LoadFromFile('x:\image.jpg');
WPPDFExport1.DrawTGraphic(0,0,0,0, Image1.picture.graphic);
WPPDFExport1.EndDoc;

PDF document is created (and size is about same as jpg file), but when I load pdf document in acrobat, it's blank. What am I doing wrong?

Thanks for help.

Regards

Matej Golob

support

Hi,

maybe the JEPG support is not enabled in wPDF - the define JPEGDATA should be active. (Define in project options and do a BuildAll)

Instead of you code you can also use the procedure DrawGraphicFile - but that internally does entirely the same.

Julian

matejgolob

It still doesn't work for me. I've sent you files (jpg and produced pdf) two times to support e-mail and I didn't get any answer from you.
Can you please give me some advice what else should be wrong (I have JPEGDATA enabled).

Matej

support

This code will export a JPEG file:

Code

uses WPPDFR1, WPPDFr2, JPEG;


procedure TForm1.Button1Click(Sender: TObject);
var pdf  : TWPPDFPrinter;
    jpeg : TJPEGImage;
begin
  OpenDialog1.Filter := 'JPEG|*.JPG';
  if OpenDialog1.Execute then
  begin
    jpeg := TJPEGImage.Create;   
    pdf  := TWPPDFPrinter.Create(Self);
    try
     jpeg.LoadFromFile(OpenDialog1.FileName);
     pdf.FileName := 'c:\scan.pdf';
     pdf.AutoLaunch := TRUE;
     pdf.BeginDoc;
     pdf.StartPage( jpeg.Width, jpeg.Height, Screen.PixelsPerInch,Screen.PixelsPerInch,0 );
     pdf.DrawTGraphic(0,0,jpeg.Width,jpeg.Height,jpeg);
     pdf.EndPage;
    pdf.EndDoc;
    finally
     pdf.Free;
     jpeg.Free;
    end;
  end;
end;

Alles anzeigen