mORMot Open Source

procedure TForm1.Button2Click(Sender: TObject);
var
pdfDoc:TPdfDocument;
pdfDocProtect:TPdfDocument;
pdfpage:TPdfpage;
JpegImage:TJPEGImage;
pdfImage:TPdfImage;
fs: TFileStream;
i:integer;
begin
Qualitapdf:=SpinEdit1.value;

//Make protect document
if length (LabeledEditPdfPw.text)>0 then
pdfDoc := TPdfDocument.Create(false,0,false,TPdfEncryption.New(elRC4_128,LabeledEditPdfPw.text,LabeledEditPdfPw.text,PDF_PERMISSION_NOCOPYNORPRINT))
else
pdfDoc :=TPdfDocument.Create;
JpegImage:= TJPEGImage.Create;
Nomefilepdf := percorso+'PdfFile\' + FormatDateTime( 'dd_mm_yy_hhnnss' , Now() ) +'_.pdf';
fs:= TFileStream.Create(nomefilepdf,fmCreate);

try
pdfDoc.NewDoc;
pdfDoc.Info.Author:='';
pdfDoc.Info.Creator:='';
pdfDoc.DefaultPaperSize:= psA4;
pdfDoc.DefaultPageLandscape:=PdfLandscape;
pdfDoc.CompressionMethod:=cmFlateDecode;
pdfDoc.ForceJPEGCompression:=Qualitapdf;
pdfDoc.SaveToStreamDirectBegin(fs);
Sb.Panels[0].Text:='Create pdf wait...';

for i := 0 to FileListBox1.Count - 1 do
begin
FileListBox1.Selected[i] := true;
JpegImage.LoadFromFile(FileListBox1.Items.Strings[i]);
pdfpage:= pdfDoc.AddPage;
pdfImage := TPdfImage.Create(pdfDoc, JpegImage, true);
pdfDoc.AddXObject('image' + IntToStr(i), pdfImage);
pdfDoc.Canvas.DrawXObject(0, 0, pdfpage.PageWidth, pdfpage.PageHeight, 'image' + IntToStr(i));
pdfDoc.SaveToStreamDirectPageFlush(True);
end;
pdfDoc.SaveToStreamDirectEnd;
//pdfDoc.SaveToFile(nomefilepdf);
finally
fs.Free;
pdfDoc.Free;
JpegImage.Free;
ShowMessage('Pdf Create!!');
ShellExecute(Application.MainForm.Handle,'open',Pchar(nomefilepdf),nil,nil,SW_NORMAL);
  end;

end;

procedure TForm1.MakePdf;
var
 pdf: TPdfDocumentGDI;
  i: Integer;
  pict: TPicture;
   FileImmagine:string;
   terminato:boolean;

 begin

   pdf:=TPdfDocumentGDI.Create;

     pdf.Info.Author:='';
      pdf.Info.Creator:='';
      pdf.DefaultPaperSize:=psA4;

    pdf.ForceJPEGCompression:=80;
   pdf.CompressionMethod:=cmFlateDecode;
   pict:= TPicture.Create;
   for i := 0 to FileListBoxEx1.Count - 1 do
     begin
     FileImmagine:= FileListBoxEx1.Items.Strings[i];
     pict.LoadFromFile(FileImmagine);
        with pdf.AddPage do
         begin
           PageWidth:=Round(pict.Width *0.73);
             PageHeight:=Round(pict.Height * 0.73);
         end;
       pdf.VCLCanvas.Draw(0,0,pict.Graphic);
        FileListBoxEx1.Selected[i] := true;
 StatusBar1.Panels[0].Text:='Process page '+inttostr(i)+' of '+inttostr(FileListBoxEx1.Count)+' wait...';
 Application.ProcessMessages;
           end;

     try

   pdf.SaveToFile('C:\Test.pdf');

   StatusBar1.Panels[0].Text:='Create pdf wait...';
   finally
    pict.Free;
   pdf.Free;
   StatusBar1.Panels[0].Text:='Pdf document is created...';
   end;
      ShellExecute(Application.MainForm.Handle,'open',Pchar(nomefilepdf),
        nil,nil,SW_NORMAL);
     end;