problème d'impression d'imageRésolu

Question

Bonjours a tous, 

Je poste ce message parce que j'ai un programme qui fonctionne mais pas &#224; tous les coups. je m'explique : 

je d&#233;sire imprimer plusieurs pages contenant des graphiques que je transforme en bitmap puis je colle ces bitmaps sur le canvas de l'imprimante

    Tmp_Fic := ExtractFileDir(Tab_Param[i,2])+'	mp_fic.bmp';
    graph := TMonGraph(pagedac_f.FindComponent('graph'+ IntToStr(i)));
    graph.SaveToBitmapFile(Tmp_Fic);
    Img_Graph := Timage.Create(pagedac_f);
    Img_Graph.Picture.LoadFromFile(Tmp_Fic);
    StretchDraw(PosGraph,Img_Graph.Picture.Graphic);
    Img_Graph.Free;
    Deletefile(Tmp_Fic);


Alors ce que je peux dire c'est que &#231;a fonctionne mais par exemple sur une feuille avec 10 graph un coup il va m'en manquer 2 un autre coup 2 autres diff&#233;rent, un coup 3 et un autre coup aucun. J'ai fais des test sur Win98, 2000, XP et sur plusieurs imprimantes en A3 et A4 et avec Win2PDF. C'est la meme partout . Et qu'en je passe tout le code en d&#233;bogage tout semble normal

Mes questions : Pourquoi &#231;a merde al&#233;atoirement ? Avez vous d&#233;ja rencontrer ce probl&#232;me ? pouvez vous m'indiquer comment le r&#233;soudre ou le contourner ?

respect robustesse

cptpingu · Answer

Essaie cette fonction:



Procedure ImprimeBitmap(Bitmap :TBitmap; Orientation :TPrinterOrientation; IndexDeLimprimante, NombreDeCopie :integer); 

begin {Les orientations sont : poPortrait, poLandScape} 

  if NombreDeCopie < 0 then NombreDeCopie := 1; 

  Printer.Copies := NombreDeCopie; 

  Printer.PrinterIndex := IndexDeLimprimante; // la premiere imprimante est l'index 0 

  Printer.Orientation := Orientation; 

  Printer.BeginDoc(); 

  Printer.Canvas.Draw(0,0, Bitmap); // on dessine le canevas du Bitmap dans celui de Printer 

  Printer.EndDoc(); 

end;

florenth · Answer

Vive CptPingu !! Il &#233;crit "essaie cette fonction" et apr&#232;s il nous pr&#233;sente une procedure !!!



Bon ,tr&#232;ve de plaisanteries.

Goloa, on a du mal &#224; s'y rep&#233;rer dnas ton code, on ne sait pas ce qu'est TMonGraph.

Je ne connais, de plus, pas de procedures se nommant StretchDraw qui s'utilisent comme ce que tu nous montre.



Peux-tu commenter ton code et nous donner un code qui est compilable (ceui que tu as dans ton &#233;diteur)?

Apr&#232;s cela, on pourra peut-&#234;tre t'aider mieux.

<hr size="2" width="100%">Mais c'est vrai que la m&#233;thode de CptPingu me parrait plus claire.

Tu dis que tu imprime mais on ne voit de "Printer" pas plus que dans mon oeil.



@ ++

Florent


Si tu ne te plantes pas ......
tu ne poussera jamais

goloa · Answer

"TMonGraph" correspond a un Tchart que j'ai param&#233;tr&#233;.

StretchDraw est une m&#233;thode de Tcanvas :
procedure StretchDraw(const Rect: TRect; Graphic: TGraphic );

L'utilisateur de mon programme veut afficher 'n' mesures qui sont repr&#233;sent&#233;es dans les n TeeChart (1courbe par TeeChart). Quand il veut imprimer, il va passer dans ma boucle :

WITH Printer.Canvas DO

   For i := 0 to n do
      Tmp_Fic := ExtractFileDir(Tab_Param[i,2])+'	mp_fic.bmp';
      
      //Recherche de mon TeeChart n&#176; "n"
      graph := TMonGraph(pagedac_f.FindComponent('graph'+ IntToStr(i)));

      //Sauvegarde de mon teechart dans un fichier
      graph.SaveToBitmapFile(Tmp_Fic);

      //Chargement de mon fichier image contenant l'image du teechart dans une variable      
      Img_Graph := Timage.Create(pagedac_f);
      Img_Graph.Picture.LoadFromFile(Tmp_Fic);
      
     //Positionnement du graphique sur le canvas de l'imprimante
     //coeff_width = largeur du canvas de l'imprimante / largeur du canvas o&#249; j'affiche mon graphique
      //coeff_height est la meme chose pour la hauteur

      PosGraph.Left := round(152 * coeff_width);      
      PosGraph.Right := pagewidth;
      PosGraph.Top := round(PageHeight * 0.07335) + round(StrToInt(Tab_param[i,10])*coeff_Height);
      PosGraph.Bottom := round(PageHeight * 0.07335) + round((StrToInt(Tab_param[i,10])+ StrToInt(Tab_param[i,11]))*coeff_Height);
      
      StretchDraw(PosGraph,Img_Graph.Picture.Graphic);

      //Je lib&#232;re a chaque fois les variables si je repasse encre dans la boucle elle seront recr&#233;&#233;es
      Img_Graph.Free;
      Deletefile(Tmp_Fic);
   End;
End;

mon EndDoc viens apres le tra&#231;age de l'entetes et du pied de page

Ce que je ne comprend pas c'est que je passe "n" fois dans cette boucle et que sur ces "n" fois les graphiques vont bien &#234;tre enregistrer dans le fichiers 'tmp_fic.bmp' j'ai fais les test et meme si ils ne passent passe pas &#224; l'impression ils sont dans les fichiers donc pas de probl&#232;me avec la fonction 'SaveToBitmapFile' Maintenant il faut que je test si le 'LoadFromFile' fonctionne correctement et surtout &#224; tous les coups.

A mon avis il ne faut pas aller chercher d'erreur dans mon code puisqu'il fonctionne (Ok pas a tout les coups) mais je me pose des questions sur le buffer des imprimantes ou des chose du style.

la boucle est travers&#233;e a chaque fois c'est sur ! et en d&#233;bogage &#231;a passe aussi sur le stretchDraw... 

Je pense que CptPingu parle de la fonction "Draw" je fais le test et je reviens &#224; la charge


respect robustesse

exae · Answer

Il ne faut jamais utiliser StrechDraw avec le canvas d'une imprimante.




Alors voici la fonction qui marche &#224; tous les coups :





Procedure PrintBitmap(Canvas:  TCanvas; DestRect:  TRect;  Bitmap:  TBitmap);

Var

  BitmapHeader:  pBitmapInfo;

  BitmapImage :  POINTER;

  HeaderSize  :  DWORD;    // Use DWORD for D3-D5 compatibility

  ImageSize   :  DWORD;

BEGIN

  GetDIBSizes(Bitmap.Handle, HeaderSize, ImageSize);

  GetMem(BitmapHeader, HeaderSize);

  GetMem(BitmapImage,  ImageSize);

  Try

    GetDIB(Bitmap.Handle, Bitmap.Palette, BitmapHeader^, BitmapImage^);

    StretchDIBits(Canvas.Handle,
                 
DestRect.Left, DestRect.Top,     // Destination
Origin

                 
DestRect.Right  - DestRect.Left, // Destination Width

                 
DestRect.Bottom - DestRect.Top,  // Destination Height

                 
0,
0,                           
// Source Origin

                 
Bitmap.Width, Bitmap.Height,     // Source Width
& Height

                  BitmapImage,

                 
TBitmapInfo(BitmapHeader^),

                  DIB_RGB_COLORS,

                  SRCCOPY)

  Finally

    FreeMem(BitmapHeader);

    FreeMem(BitmapImage)

  End;

END;




 Apparement personne n'imprime d'image avec DELPHI !

goloa · Answer

Merki


respect robustesse

Problème d'impression d'image

5 réponses

Votre réponse

Discussions similaires