Exporter une form en Bmp ET Impression

**Baxter67** · 21/02/2008, 11h59

bonjours,

Jai regardé plusieur topic sur le forum a ce suget mais aucun na fonctionné dans mon cas.

Voila, jai une form contenant un TChart et plusieur autre objet.
Je souhaiterais limprimé, etant donné que jai plusieur form contenant a peu pré les meme info, jai créer une form qui me sert a limpresion

Voila mon code d'impression :

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
 
void __fastcall TForm3::BitBtn1Click(TObject *Sender)
{
        FormImpre->LabelDate->Caption = FormatDateTime("ddd ' le ' d MMMM  yyyy", Now());
        FormImpre->Series1->Assign(Form3->Series1);
        FormImpre->Chart1->Title = Form3->Chart1->Title;
        FormImpre->LabelHeure->Caption = FormatDateTime("HH : mm",Now());
        FormImpre->Panel2->Visible = true;
        FormImpre->PanelPdTF1->Caption = Form3->PanelPdTF1->Caption;
        FormImpre->PanelPfTF1->Caption = Form3->PanelPfTF1->Caption;
        FormImpre->PanelDiffTF1->Caption = Form3->PanelDiffTF1->Caption;
        FormImpre->PrintScale = poPrintToFit;
        FormImpre->Print();
        FormImpre->Panel2->Visible = false;
}

donc sa, sa fonctionne nikel

Maintenant je voudrais exporté limage de la form, exactement ce que jai imprimé, juste en metant masquant 2 label (mais sa c'est pas un prob lol)

Jai esseyé avec la fonction ImprimEcran que jai trouvé dans les sources, mais linconvéniant c'est qu'il faut que jaffiche la form, et meme parfois limage qui est généré na pas certain label :s
Jai eseyé avec un Tbitmap mais jai pas réusi

Je voudrais créer limage de la form , mais sans devoir l'affiche pff

sa fais 2h que je me casse la tete desus

Cordialement Baxter

**Baxter67** · 21/02/2008, 12h07

jai trouvé une solution je croie que c'est la bonne

Code :

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

1
2
3
4
5
 
Graphics::TBitmap *Bitmap = new Graphics::TBitmap;
        Bitmap = FormImpre->GetFormImage();
        Bitmap->SaveToFile("salut.bmp");
        delete Bitmap;

vous en pensez quoi ?

**Baxter67** · 21/02/2008, 17h05

Quelqu'un connaitrais t'il une meileur méthode pour imprimé une form contenant un tchart et dautre objet

Jai en tous 4 form donc 4 courbe (TChart un sur chaque form)

Un coup sa imprime nikel un coup Je ne vois pas le TChart de la FormImpre sur ce qui sortt a limprimante ni sur le bpm que jai exporté
pff je galére, aidez moi sil vous plait

code pour limpression par bouton :

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
 
void __fastcall TForm3::BitBtn1Click(TObject *Sender)
{
        FormImpre->LabelDate->Caption = FormatDateTime("ddd ' le ' d MMMM  yyyy", Now());
        FormImpre->Series1->Clear();
        FormImpre->Series1->Assign(Form3->Series1);
        FormImpre->Chart1->Title = Form3->Chart1->Title;
        FormImpre->LabelHeure->Caption = FormatDateTime("HH : mm",Now());
        FormImpre->Panel2->Visible = true;
        FormImpre->PanelPdTF1->Caption = Form3->PanelPdTF1->Caption;
        FormImpre->PanelPfTF1->Caption = Form3->PanelPfTF1->Caption;
        FormImpre->PanelDiffTF1->Caption = Form3->PanelDiffTF1->Caption;
        FormImpre->PrintScale = poPrintToFit;
        FormImpre->Print();
        FormImpre->Panel2->Visible = false;
}

code pour limpression en automatique commandé par l'automate en openmodbus :
(c'est dans un thread indépendant)

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
 
while(Form1->bFinThread)
        {
            //GESTION COURBE TEMPERATURE FILTRE 1
                if(AccesDataRead(4010,2)==1)       //Effacement des valeur
                        Form3->Series1->Clear();
                if(AccesDataRead(4011,2)==1  &&  Form1->TabFrontPourImpression[cTempFiltre1] == 0)
                {
                        //exportation de la courbe  et impression
                        FormImpre->LabelDate->Caption = FormatDateTime("ddd ' le ' d MMMM  yyyy", Now());
                        FormImpre->Series1->Clear();
                        FormImpre->Series1->Assign(Form3->Series1);
                        FormImpre->Chart1->Title = Form3->Chart1->Title;
                        FormImpre->LabelHeure->Caption = FormatDateTime("HH : mm",Now());
                        FormImpre->Panel2->Visible = true;
                        FormImpre->Chart1->Visible = true;
                        FormImpre->PanelPdTF1->Caption = Form3->PanelPdTF1->Caption;
                        FormImpre->PanelPfTF1->Caption = Form3->PanelPfTF1->Caption;
                        FormImpre->PanelDiffTF1->Caption = Form3->PanelDiffTF1->Caption;
                        FormImpre->PrintScale = poPrintToFit;
                        FormImpre->Print();
                        FormImpre->LabelDate->Caption = "";
                        FormImpre->LabelHeure->Caption = "";
                        ExporterFormImpre("TempFiltre1/TF1"+FormatDateTime("ddmmyy'_'hhmm",Now())+".bmp");
                        FormImpre->Panel2->Visible = false;
                        Form1->TabFrontPourImpression[cTempFiltre1] = 1;
                }
                if(AccesDataRead(4011,2)==0 && Form1->TabFrontPourImpression[cTempFiltre1] == 1)
                        Form1->TabFrontPourImpression[cTempFiltre1] = 0;
}

Code :

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

1
2
3
4
5
6
7
8
 
void ExporterFormImpre(AnsiString Nom)
{
  Graphics::TBitmap *Bitmap = new Graphics::TBitmap;
        Bitmap = FormImpre->GetFormImage();
        Bitmap->SaveToFile(Nom);
        delete Bitmap;
}

Cordialement baxter

**Baxter67** · 21/02/2008, 17h27

apperement en fesant sa, sa marche mieux, mais bon c'est pas sur encore, parceque avant sa marchais aussi parfois.

Code :

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

1
2
 
FormImpre->Series1->AssignValues(Form3->Series1);

A des moment la page qu'il m'imprime est entierement grise :s
et le coup d'apres sa marche nikel

pfff prise de tete ce truc

Mais si quelqu'un a une meilleur idée je suis ouvert a toute suggestion

COrdialement Baxter

**say** · 21/02/2008, 17h53

**blondelle** · 21/02/2008, 18h20

Salut Baxter67
Pour imprimer une Form avec tout ce qui est pose dessus tu peut essayer ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
TRect rd;
TPrinter *Prntr = Printer();
rd = Rect(0, 0, Prntr->PageWidth, Prntr->PageHeight);
  Graphics::TBitmap *Bitmap = new Graphics::TBitmap;
        Bitmap = Form1->GetFormImage();
// pour eviter une page blanche ajouter la ligne suivante
        Bitmap->PixelFormat = pf24bit; // a adapter
//TPixelFormat {pfDevice, pf1bit, pf4bit, pf8bit, pf15bit, pf16bit, pf24bit, pf32bit, pfCustom}
Prntr->BeginDoc();
Prntr->Canvas->StretchDraw(rd, Bitmap);
Prntr->EndDoc();
        delete Bitmap;

**Baxter67** · 26/02/2008, 16h52

J'ai esseyé comme sa :

Code du bouton Imprimé :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
        FormImpre->LabelDate->Caption = FormatDateTime("ddd ' le ' d MMMM  yyyy", Now());
        Form3->Chart1->SaveToBitmapFile("FichierRessource/ImgImprim.bmp");
        FormImpre->Image2->Picture->LoadFromFile("FichierRessource/ImgImprim.bmp");
        DeleteFile("FichierRessource/ImgImprim.bmp");
        FormImpre->LabelHeure->Caption = FormatDateTime("HH : mm",Now());
        FormImpre->Panel2->Visible = true;
        FormImpre->PanelPdTF1->Caption = Form3->PanelPdTF1->Caption;
        FormImpre->PanelPfTF1->Caption = Form3->PanelPfTF1->Caption;
        FormImpre->PanelDiffTF1->Caption = Form3->PanelDiffTF1->Caption;
        ImprimerFormImpre();
        FormImpre->Panel2->Visible = false;

Code de l'impression automatique :

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
 
while(Form1->bFinThread)
        {
 
            //GESTION COURBE TEMPERATURE FILTRE 1
                if(AccesDataRead(4010,2)==1)       //Effacement des valeur
                        Form3->Series1->Clear();
                if(AccesDataRead(4011,2)==1  &&  Form1->TabFrontPourImpression[cTempFiltre1] == 0)
                {
                        //exportation de la courbe  et impression
                        FormImpre->LabelDate->Caption = FormatDateTime("ddd ' le ' d MMMM  yyyy", Now());
                        Form3->Chart1->SaveToBitmapFile("FichierRessource/ImgImprim.bmp");
                        FormImpre->Image2->Picture->LoadFromFile("FichierRessource/ImgImprim.bmp");
                        DeleteFile("FichierRessource/ImgImprim.bmp");
                        FormImpre->LabelHeure->Caption = FormatDateTime("HH : mm",Now());
                        FormImpre->Panel2->Visible = true;
                        FormImpre->PanelPdTF1->Caption = Form3->PanelPdTF1->Caption;
                        FormImpre->PanelPfTF1->Caption = Form3->PanelPfTF1->Caption;
                        FormImpre->PanelDiffTF1->Caption = Form3->PanelDiffTF1->Caption;
                        ImprimerFormImpre("TempFiltre1/TF1"+FormatDateTime("ddmmyy'_'hhmm",Now())+".bmp");
                        FormImpre->Panel2->Visible = false;
                        Form1->TabFrontPourImpression[cTempFiltre1] = 1;
                }
                if(AccesDataRead(4011,2)==0 && Form1->TabFrontPourImpression[cTempFiltre1] == 1)
                        Form1->TabFrontPourImpression[cTempFiltre1] = 0;
}

Fonctions d'impression :

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
 
void ImprimerFormImpre(AnsiString Nom)
{
  TRect rd;
  TPrinter *Prntr = Printer();
 
        rd = Rect(0, 0, Prntr->PageWidth, Prntr->PageHeight);
        Graphics::TBitmap *Bitmap = new Graphics::TBitmap;
 
        Bitmap = FormImpre->GetFormImage();
        // pour eviter une page blanche ajouter la ligne suivante
        Bitmap->PixelFormat = pf24bit; // a adapter
        //TPixelFormat {pfDevice, pf1bit, pf4bit, pf8bit, pf15bit, pf16bit, pf24bit, pf32bit, pfCustom}
        Prntr->BeginDoc();
        Prntr->Canvas->StretchDraw(rd, Bitmap);
        Prntr->EndDoc();
 
        Bitmap->Canvas->Brush->Color=clWhite;
        Bitmap->Canvas->FillRect(Rect(592,450,800,600));
 
        Bitmap->SaveToFile(Nom);
        delete Bitmap;
 
}
//---------------------------------------------------------------------------
void ImprimerFormImpre()
{
  TRect rd;
  TPrinter *Prntr = Printer();
 
        rd = Rect(0, 0, Prntr->PageWidth, Prntr->PageHeight);
        Graphics::TBitmap *Bitmap = new Graphics::TBitmap;
 
        Bitmap = FormImpre->GetFormImage();
        // pour eviter une page blanche ajouter la ligne suivante
        Bitmap->PixelFormat = pf24bit; // a adapter
        //TPixelFormat {pfDevice, pf1bit, pf4bit, pf8bit, pf15bit, pf16bit, pf24bit, pf32bit, pfCustom}
        Prntr->BeginDoc();
        Prntr->Canvas->StretchDraw(rd, Bitmap);
        Prntr->EndDoc();
        delete Bitmap;
}

Mais sa marche toujours pas a tous les coup
Il y a des fois le Chart de la Form3 disparais complétement (la form3 est la form que jaffiche, ou la courbe se trace)
Je précise que, quand je lance limpression la courbe ne trace plus.

Aidez moi SVP
Cordialement Baxter

**Crayon** · 28/02/2008, 09h02

Salut je ne sait pas si sa peut t'aider (j'ai pas lus toutes la discussion), mais j'ai trouvé un composant Delphi 5.0 gratuit qui imprime une form complète: http://www.efg2.com/Lab/Library/Delp...on_BDPrint.zip

Sinon, encore en Delphi, tu peux aller voir un code qui imprime un bitmap tiré d'une form: http://www.efg2.com/Lab/Library/UseNet/1999/0512f.txt

**henderson** · 28/02/2008, 22h30

Salut !

On pourrait éventuellement se dire que lorsque l'on trouve une bonne couleur pour certains pixels du bitmap le dessin est achevé.
Si on n'a pas les bonnes couleurs on attend via une boucle.
Ce que je donne ici n'est peut-être que schématique (voir si on ne peut pas faire autrement)

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
 
Graphics::TBitmap *Temp = new Graphics::TBitmap;
 
Again :
 
Temp->Assign(FormN->GetFormImage()); // ça devrait le faire mais c'est à tester
 
if( (Temp->Canvas->Pixels[...][...] != ...) || 
    (.....) ||
    (.....))
    { 
    int Start =  GetTickCount();
    while (( GetTickCount() - Start ) < 100) // 100 ms ou plus ???
        {
        //pour ne pas bloquer l'appli
        Application->ProcessMessages();
        }
    goto Again; // On reprend la photo !
    } 
//... ici l'image est dans la boite !
//On imprime.
 
delete Temp;

Autre chose : peut-être faudrait-il retirer les autres composants de la form et ne pas en rajouter.
On a, en effet, la possiblité de dessiner directement sur le bitmap, une fois que la photo est bonne !
Ca va éviter de générer en interne des messages qui pourraient retarder le dessin de l'essentiel : le graphe.
Donc ça se ferait avant d'imprimer, pour envoyer l'ensemble, d'un seul coup !

J'espère que l'idée est bonne !

A plus !

**Baxter67** · 29/02/2008, 10h57

Bon ben en m'inspirant de ta proposition j'ai esseyé ceci :

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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
 
//---------------------------------------------------------------------------
void ImprimerFormImpre(AnsiString Nom, TForm *Form)
{
  TRect rd;
  TPrinter *Prntr = Printer();
 
        rd = Rect(0, 0, Prntr->PageWidth, Prntr->PageHeight);
        Graphics::TBitmap *Temp = new Graphics::TBitmap;
 
        Temp->Assign(Form->GetFormImage());
 
        int Start =  GetTickCount();
        while (( GetTickCount() - Start ) < 100) // 100 ms ou plus ???
        {
                //pour ne pas bloquer l'appli
                Application->ProcessMessages();
        }
 
        //DESSIN DES CADRE
 
        //Enleve le bouton Imprimé
        Temp->Canvas->Brush->Color=clWhite;
        Temp->Canvas->FillRect(Rect(592,450,800,600));
 
        //Enleve le bouton Retour
        Temp->Canvas->Brush->Color = clMenuBar;
        Temp->Canvas->FillRect(Rect(8,464,185,564));
 
        Temp->Canvas->Font->Color = clBlack;
        Temp->Canvas->Font->Size = 12;
        Temp->Canvas->Font->Name = "Arial";
        Temp->Canvas->TextOutA(12, 468, "Visa Chef d'équipe :");
        Temp->Canvas->TextOutA(12, 508, "Visa Oenologue :");
 
        Temp->SaveToFile(Nom);
 
        Temp->Canvas->Brush->Color = clWhite;
        Temp->Canvas->TextOutA(595, 468, FormatDateTime("ddd ' le ' d MMMM  yyyy", Now()));
        Temp->Canvas->TextOutA(595, 508, FormatDateTime("HH : mm",Now()));
 
        // pour eviter une page blanche ajouter la ligne suivante
        Temp>PixelFormat = pf24bit; // a adapter
        //TPixelFormat {pfDevice, pf1bit, pf4bit, pf8bit, pf15bit, pf16bit, pf24bit, pf32bit, pfCustom}
        Prntr->BeginDoc();
        Prntr->Canvas->StretchDraw(rd, Temp);
        Prntr->EndDoc();
        delete Temp;
}
//---------------------------------------------------------------------------
void ImprimerFormImpre(TForm *Form)
{
  TRect rd;
  TPrinter *Prntr = Printer();
 
        rd = Rect(0, 0, Prntr->PageWidth, Prntr->PageHeight);
        Graphics::TBitmap *Temp = new Graphics::TBitmap;
 
        Temp->Assign(Form->GetFormImage());
 
        int Start =  GetTickCount();
        while (( GetTickCount() - Start ) < 100) // 100 ms ou plus ???
        {
                //pour ne pas bloquer l'appli
                Application->ProcessMessages();
        }
 
 
        //DESSIN DES CADRE
 
        //Enleve le bouton Imprimé
        Temp->Canvas->Brush->Color=clWhite;
        Temp->Canvas->FillRect(Rect(592,450,800,600));
 
        //Enleve le bouton Retour
        Temp->Canvas->Brush->Color = clMenuBar;
        Temp->Canvas->FillRect(Rect(8,464,185,564));
 
        Temp->Canvas->Font->Color = clBlack;
        Temp->Canvas->Font->Size = 12;
        Temp->Canvas->Font->Name = "Arial";
        Temp->Canvas->TextOutA(12, 468, "Visa Chef d'équipe :");
        Temp->Canvas->TextOutA(12, 508, "Visa Oenologue :");
 
        Temp->Canvas->Brush->Color = clWhite;
        Temp->Canvas->TextOutA(595, 468, FormatDateTime("ddd ' le ' d MMMM  yyyy", Now()));
        Temp->Canvas->TextOutA(595, 508, FormatDateTime("HH : mm",Now()));
 
        // pour eviter une page blanche ajouter la ligne suivante
        Temp->PixelFormat = pf24bit; // a adapter
        //TPixelFormat {pfDevice, pf1bit, pf4bit, pf8bit, pf15bit, pf16bit, pf24bit, pf32bit, pfCustom}
        Prntr->BeginDoc();
        Prntr->Canvas->StretchDraw(rd, Temp);
        Prntr->EndDoc();
        delete Temp;
}
//---------------------------------------------------------------------------

jai enlevé le test de bit parceque je ne sais pas trop quelles pixels testé

Je vais tester voir si sa marche

Cordialement Baxter

**Baxter67** · 29/02/2008, 11h14

bon bon bon,
parfois sa marche, parfois y a pas de courbe ...
parfois il exporte mais il imprime pas ... et enfin parfois l'appli freeze totalement ...

je commence a désespéré. sniffff

je met des capture d'écran si sa peut vous aidé :

Voici une capture d'ecran d'une image tel qu'elle doit etre apres exportation :

Ce qui doit etre imprimé est identique, juste avec la date et l'heure de limpresiion ecrie en bas a droite

Cordialement Baxter

Exporter une form en Bmp ET Impression

C++Builder

Vue hybride

Discussions similaires

Partager

Partager