Discussion :

[keusty78]

Bonsoir a tous;

j'aimerai savoir si quelqu'un saurait comment générer la suite d'un PDF avec TMSPDFLIB sous Delphi je vous explique :

mon code actuel génère un PDF le soucis c'est qu'au bout d'un moment dans mon document PDF je n'est plus de place en bas de page
alors j'aimerai démarrer sur une nouvelle page a la suite mai je ne sais pas comment faire avec TMSPDFLIB et la doc ne dis rien a ce sujet

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
begin
 //Label1.Text:='GENERER PDF';
  //txt:='';
  p:=TTMSFMXPDFLib.Create;
 
  try
 
   p.Graphics.Font.Name := 'Arial';
   p.Graphics.Font.Size := 10;
   p.Header:='HEADER';
   txt := 'teste..teste teste teste teste......';
 
  p.BeginDocument(file+'.pdf');
  p.NewPage;
  p.Graphics.Font.Name := 'Arial';
  p.Graphics.Font.Size := 10;
  p.Graphics.Fill.Color :=Null;
  r := RectF(10, 50, 980, 400);
  p.Graphics.DrawHTMLText(txt, r);
  p.EndDocument(True);
  finally
  p.Free;
  end;

[Linkin]

Un nouvel appel à p.NewPage ne fonctionne pas ?

[keusty78]

Un nouvel appel à p.NewPage ne fonctionne pas ?

j'ai essayer mai non sa ne marche pas,
au lieu de me crée une nouvel page a la suite sa écrase la première du coup je me retrouve toujours qu'avec une seul page
c'est embêtant ce problème quand même

[tourlourou]

La doc en parle un peu ici, quand même, non ?

[keusty78]

La doc en parle un peu ici, quand même, non ?

Non ils n'en parle pas, la doc de ce composant est très limite

[SergioMaster]

Bonjour,

Je n'ai jamais testé. Il faut dire que pour faire mes PDF j'utilise plutôt FastReport .
Par curiosité toutefois, je vais faire quelques essais. Mais déjà je remarque qu'aucune indication de taille n'est indiqué pour la/les pages mais peut-être que l'initialisation propose des valeurs par défaut.
EN tout cas, moi aussi, j'aurais tendance à écrire que NewPage est l'instruction à utiliser.

[Edit]
je confirme NewPage, ça le fait.
Voilà mon programme test (un simple bouton sur une forme)

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
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
 
unit UnitTMSPDF;
 
interface
 
uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
  FMX.Controls.Presentation, FMX.StdCtrls;
 
type
  TForm67 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form67: TForm67;
 
implementation
 
{$R *.fmx}
 
uses  FMX.TMSPDFLib, FMX.TMSPDFCoreLibBase ,FMX.TMSGraphicsTypes;
 
procedure TForm67.Button1Click(Sender: TObject);
var p : TTMSFMXPDFLib;
begin
  p:=TTMSFMXPDFLib.Create;
  try
  p.BeginDocument('test.pdf');
  p.NewPage;
  p.Graphics.Stroke.Color := gcRed;
  p.Graphics.Stroke.Width := 3;
  p.Graphics.Stroke.Kind := gskDashDotDot;
  p.Graphics.DrawRectangle(RectF(10, 50, 100, 150));
  p.NewPage;
  p.Graphics.Font.Name := 'Segoe UI';
  p.Graphics.Font.Size := 16;
  p.Graphics.Font.Color := gcRed;
  p.Graphics.Font.Style := [TFontStyle.fsBold];
  p.Graphics.DrawText('Hello World !', PointF(10, 50));
  p.EndDocument(True);
  finally
  p.Free;
  end;
end;
 
end.

Et j'obtiens bien deux pages

[keusty78]

Bonjour,

Je n'ai jamais testé. Il faut dire que pour faire mes PDF j'utilise plutôt FastReport .
Par curiosité toutefois, je vais faire quelques essais. Mais déjà je remarque qu'aucune indication de taille n'est indiqué pour la/les pages mais peut-être que l'initialisation propose des valeurs par défaut.
EN tout cas, moi aussi, j'aurais tendance à écrire que NewPage est l'instruction à utiliser.

bonjour SergioMaster,

pour ce qui est de l'indication de taille je ne le suis pas encore pencher dessus mai c est a voir merci .

par contre pour l'ajout d'une suite au fichier pdf le NewPage ne donne rien à moins que je ne l'utilise mal mai bon je cherche encore si quelqu'un a la solution je lui en serai infiniment reconnaissant

[keusty78]

bonjour SergioMaster,

pour ce qui est de l'indication de taille je ne le suis pas encore pencher dessus mai c est a voir merci .

par contre pour l'ajout d'une suite au fichier pdf le NewPage ne donne rien à moins que je ne l'utilise mal mai bon je cherche encore si quelqu'un a la solution je lui en serai infiniment reconnaissant

excuse moi je n avais pas vue le fichier joint dans ton message je vais y jeter un œil merci

[keusty78]

Un grand merci à toi SergioMaster,
ça fonctionne parfaitement, mon problème était que je m'y prenais vraiment comme un manche
en fait je rajoutais juste le NewPage sans rentrer les autre paramètre du document c'est pour ça que je me retrouvais toujours avec une page blanche.

Donc je mets ce sujet en résolu tout en remerciant les autres participants.

[SergioMaster]

excuse moi je n avais pas vue le fichier joint dans ton message

c'est que je l'ai rajouté après test (d'où la "balise" [Edit]) les posts se sont donc croisés

À remarquer, j'ai supprimé la citation inutile de mon post (et corrigé quelques fautes) un sur ma réponse est plus efficace pour indiquer aux autres lecteurs que la solution était bonne et appréciée