1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:

unit mImgToPdf;

interface

uses
  SysUtils, Classes,
  PReport, ExtCtrls, StdCtrls, Buttons, PRJpegImage, PdfDoc, ShellApi, Graphics;

type  TImgToPdf=class(TComponent)

private
PRPage: TPRPage;
PRLayoutPanel: TPRLayoutPanel;
PRJpegImage: TPRJpegImage;
PReport: TPReport;
public
constructor Init;
function    AddPage (APicture  : TPicture) : Boolean;
procedure PRPagePrintPage(Sender: TObject; ACanvas: TPRCanvas);
destructor  SaveClose(FileName: String);

end;
VAR
  Owner : TImgToPdf;

implementation

constructor TImgToPdf.Init;
begin
  PReport :=  TPReport.Create(Owner);
  PRPage  :=  TPRPage.Create(Owner);
  PRLayOutPanel  :=  TPRLayoutpanel.Create(PRPage);
  PRJpegImage  :=  TPRJpegImage.Create(PRLayoutPanel);
  PRJpegImage.Stretch:=True;
  PReport.BeginDoc;
  PRPage.OnPrintPage:=PRPagePrintPage;

end;

procedure TImgToPdf.PRPagePrintPage(Sender: TObject; ACanvas: TPRCanvas);
VAR Dest: TPRDestination;
begin

    Dest := PReport.CreateDestination;
  with Dest do
    begin
      DestinationType := dtXYZ;
      Left := -10;
      Top := -10;
      Zoom := 1;
    end;
    PReport.OpenAction := Dest;

end;

function    TImgToPdf.AddPage (APicture  : TPicture) : Boolean;
begin
  try

    PRJpegImage.Picture:=APicture;
    PrJpegImage.Repaint;
    PReport.Print(PRPage);
    result:=True;
  except
    result:=False;
  end;
end;
destructor  TImgToPdf.SaveClose(FileName: String);
begin
  PReport.FileName:=Filename;
  PReport.EndDoc;
end;


end.					

1:

PRJpegImage.Picture.LoadFromFile('C:/Test.jpg');					

1:
2:
3:
4:
5:
6:
7:
8:
9:

 {...} 
  object Label2: TLabel
    Left = 104
    Top = 584
    Width = 164
    Height = 13
    Anchors = [akLeft, akBottom]
  end
{...}					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:

  object ScrollBox1: TScrollBox
    Left = 0
    Top = 29
    Width = 760
    Height = 575
    Align = alClient
    Color = clGray
    ParentColor = False
    TabOrder = 1
    object PRPage1: TPRPage
      Left = 14
      Top = 14
      Width = 700
      Height = 873
      OnPrintPage = PRPage1PrintPage
      MarginTop = 32
      MarginLeft = 32
      MarginRight = 32
      MarginBottom = 20
      object PRLayoutPanel1: TPRLayoutPanel
        Left = 33
        Top = 55
        Width = 634
        Height = 797
        Align = alClient
        object PRJpegImage1: TPRJpegImage
          Left = 16
          Top = 6
          Width = 603
          Height = 780
          SharedImage = True
        end
      end
    end
  end
  object PReport1: TPReport
    FileName = 'JpegImageExample.pdf'
    Author = 'Takeshi Kanno'
    CreationDate = 37085.524204004630000000
    Creator = 'JpegImageExample'
    UseOutlines = False
    Left = 386
    Top = 6
  end					

1:
2:
3:
4:
5:

  PRLayOutPanel  :=  TPRLayoutpanel.Create(PRPage);
  PRJpegImage  :=  TPRJpegImage.Create(PRLayoutPanel);
  PRJpegImage.Stretch:=True;
  PReport.BeginDoc;
  PRPage.OnPrintPage:=PRPagePrintPage;