Discussion :

[Oscar02]

Salut à tous,

Est-t-il possible de créer un fichier pdf à partir de plusieurs fichiers pdf ? Mon projet serait le suivant, cocher une case qui correspond à un fichier pdf (exemple une fiche technique d'un produit), pour choisir les fichiers que je veux intégrer dans mon pdf final puis l'imprimer.

Je suis à la recherche d'exemples de code en Delphi et tous conseils.

Par avance merci.

Cordialement.

Oscar

[SergioMaster]

Bonjour,

un peu de recherche dans ce même forum https://www.developpez.net/forums/d1...-fichiers-pdf/ donne déjà une première réponse si vous n'êtes pas allergique aux lignes de commandes dans un programme. Ensuite il y a quelques composants (payants) je pense par exemple à QuickPDF qui propose ce genre de service

[Galet]

Bonjour,
Tu as aussi PdfBlender (gratuit) qui fonctionne plutôt bien...
Cordialement,

[Papy214]

https://www.debenu.com/products/deve...-library-lite/

[anapurna]

salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
Function TMaForm.ConverttoOnePdf(LstPdfFile : TStringList;StrOutPutFileName : String) : String;
var
 StParam,aStrFilesIn,StrFileOut : string;
 i : Integer;
TempDirectory : string;
begin
  Result := '';
  aStrFilesIn := '';
  TempDirectory 'C:\Temps\';
  StrFileOut := TempDirectory+'StrOutPutFileName'+'.PDF';
  if assigned(LstPdfFile) Then
  begin 
    if  LstPdfFile.count = 1 Then
      Result := LstPdfFile[0]
    else
    begin
      For i:= 0 To Pred(LstPdfFile.count) do
        aStrFilesIn := aStrFilesIn + LstPdfFile[i] +' ' ;
      StParam := Format('%s cat output %s',[aStrFilesIn,StrFileOut]);
      Shellexecute(TForm(self.Owner).Handle,nil,Pchar('C:\pdftk\pdftk.exe'),Pchar(StParam), nil, SW_SHOWNORMAL);
      Application.ProcessMessages;
      Result := StrFileOut
    end;
  end;
end;