Discussion :

[Hamza]

Je souhaite enveloppez une application qui permet de :
1- Consulter un fichier PDF tout en gardant les lien déjà crée dans le fichier PDF
2- en cas de besoin l'utilisateur peux saisir dans un champ (Edit.text par exemple) un numéro qui correspond a une page X et lors de la validation le fichier pdf se pointe automatiquement a la page correspondante

ci-dessous un aperçu



Merci

[Charly910]

Bonjour,
tu as la library Synopse en open source qui peut générer du PDF et aussi le lire. Regarde ici :

Synopse

Je l'ai déjà utilisé pour générer du PDF, il y a quelques temps.

A+
Charly

A vérifier si synopse peut ouvrir un fichier existant ! (en génération ça marche bien)

[Hamza]

Bonsoir,

je n'arrive pas a installer Synopse ou l'ajouter dans delphi, je n'ai jamais utilisée sa.

[Charly910]

Bonjour,
regarde sur le site, il y a des exemples et un forum.

de mémoire :
il faut ajouter à ton projet toutes les unités Synopse (SynGDIPlus, SynCommons, SynPDF, ...)
puis tu peux créer un document PDF par :

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
procedure TForm1.Button1Click(Sender: TObject);
var
 lPdf   : TPdfDocument;
 lPage  : TPdfPage;
begin
  lPdf := TPdfDocument.Create;
  try
    lPdf.Info.Author        := 'Tester';
    lPdf.Info.CreationDate  := Now;
    lPdf.Info.Creator       := 'Tester';
    lPdf.DefaultPaperSize   := psA4;
    lPage := lPDF.AddPage;
    lPDF.Canvas.SetFont('Helvetica',10.0,[]);
    lPDF.Canvas.SetLeading(lPDF.Canvas.Page.FontSize);
    lPDF.Canvas.SetLineWidth(0.1);
 
    lPdf.Canvas.BeginText;
    lPdf.Canvas.TextOut( 300, 700,  'This is some text.');
    lPdf.Canvas.EndText;
    lPdf.SaveToFile('c:\temp\test.pdf');
  finally  
    lPdf.Free;
  end;
end;

(exemple pris dans le forum)

il faut écrire dans le canvas du document, comme pour une imprimante.

mais, comme je te l'ai déjà dit, je ne sais pas si on peut ouvrir un PDF existant.


A+
Charly

[Charly910]

Sinon, regarde les pistes données par Rayek dans ce post :

Afficher un PDF

A+
Charly

[elootam]

Bonjour Bonjour

Je suis encore sous Delphi 6 car.. J'aime, je trouve tout ce dont j'ai besoin pour développer des petits "add-on" pour d'autres logiciels et ça m'éclate

Bref, j'ai besoin de scanner des documents et les convertir en "Pdf" à la volée.

Le scan, c'est bon, j'ai trouvé des composants qui font ça très bien mais ensuite, générer le pdf... En utilisant justement le composant de synapse, j'arrive à générer un pdf avec mon jpge dedans mais...

C'est troooop grand

Je voudrais que le jpeg "remplisse" l'intégralité du A4 du Pdf mais là.. ça ne le fait pas.. Je lis qu'il faut jouer avec le Canvas et là.. Ca dépasse mes compétences donc.. Si vous pouvez me filer un coup de main, je suis preneur