Problème d'impression de Bitmap

**geocad** · 13/09/2007, 16h34

Le code ci-dessous ne fonctionne que sur certaines imprimantes. Quelqu'un peut-il déceler pourquoi? Je veux imprimer une fenetre d'un fichier-rasteur de grande taille (12289*8880 pixels)

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
 
-------------------------------------------------------------------
implementation
uses printers;
 
procedure PrintPrinterWindow;
var
    Bitmap : TBitMap; // BitMap intermédiaire
begin
 
    Bitmap := TBitmap.Create;
    Bitmap.canvas.CopyMode := cmSrcCopy;
    Bitmap.Width  := PrintVueWidth;
    Bitmap.Height := PrintVueHeight;
 
    // Copie dans le bitmap intermédiaire
    Bitmap.Canvas.CopyRect(
        // Rectangle de destination
        Rect(0,0,Bitmap.Width,Bitmap.Height),
        // Canevas d'origine: (le raster)
        PlanRaster.Bitmap.Canvas,
        // Rectangle du canevas d'origine à tracer dans le rectangle de destination:
        Rect(PrintVueLeft,PrintVueTop,PrintVueWidth+PrintVueLeft,PrintVueHeight+PrintVueTop));
 
    Printer.orientation := poPortrait;
    Printer.BeginDoc;
try
        // copie dans le canvas imprimante
 
{ Ne marche que sur certaines imprimantes...???
        Printer.Canvas.CopyRect(
            // Rectangle de destination (canevas imprimante)
            Rect(PixMargeGauche,PixMargeHaute,PixFenWidth+PixMargeGauche,PixFenHeight+PixMargeHaute),
            // Canevas d'origine
            Bitmap.Canvas,
            // Rectangle du canevas d'origine à tracer
            Rect(0,0,Bitmap.Width,Bitmap.Height));
}
 
        Printer.Canvas.StretchDraw({ idem CopyRect: Ne marche que sur certaines imprimantes...???}
            // Rectangle de destination (canevas imprimante)
            Rect(PixMargeGauche,PixMargeHaute,PixFenWidth+PixMargeGauche,PixFenHeight+PixMargeHaute),
            Bitmap );
 
finally
    Printer.EndDoc;
    Bitmap.Free;
end;
 
end;

**Jipété** · 13/09/2007, 16h50

Le code ci-dessous ne marche que sur certaines imprimantes

Et quand il ne fonctionne (ce sont les humains qui marchent...) pas, il fait quoi (where is my boule of cristal...) ?

Par ailleurs, ça serait cool que tu reprennes ton post ("éditer"), que tu sélectionnes ton code et que tu lui appliques la balise "code" (celle avec le dièse [#]), parce que là, c'est passablement indigeste. Merci.

--
jp

**LadyWasky** · 13/09/2007, 16h54

Non, ce code fonctionne sur toutes les imprimantes (si, si...).

Maintenant, ça ne fait pas ce que tu veux sur toutes les imprimantes.
Pour que l'on puisse t'aider, il faudrais que tu expliques ce qui cloche : image trop petite ? Bordure d'image rognée ? Image mal centrée ? tout ça à la fois ?

Edit : c'est bien cow-boy, tu dégaines vite

**geocad** · 13/09/2007, 16h58

Ce code fonctionne très bien sur certaines imprimantes, et ne donne rien sur d'autres. Du blanc, quoi. (si le papier n'est pas trop sale)

**LadyWasky** · 13/09/2007, 16h58

Question comme ça : pourquoi passes tu par un bitmap intermédiaire ?

**geocad** · 13/09/2007, 17h03

Je passe par un bitmap intermédiaire, car j'avais pensé que le pb venait d'un pb de résolution ou de taille de bitmap. Cet intermédiaire servait à diviser par deux la résolution, mais ca n'a rien donné de probant, alors je l'ai remis taille 1.
En tout cas, je pense que le pb ne vient pas de lui.

**Jipété** · 13/09/2007, 17h14

Ce code marche très bien sur certaines imprimantes, et ne donne rien sur d'autres.

Question : tu as plusieurs imprimantes sur ta machine, pour tester ?
Ou bien tu trimballes ton exe de machine en machine, et selon le cas ça fonctionne (si si, j'insiste ! d'accord, c'est plus long à taper...) ou pas ?

Par ailleurs, on dirait qu'il n'y a pas de manière de sélectionner le printer qui sera utilisé (enfin, y a p'têt pas tout).
Plus un pb d'environnement que de code, on dirait...
--
jp

**LadyWasky** · 13/09/2007, 17h14

Bon, Ce que j'entrevois à première vue...
c'est que ça imprime quelque chose de tellement petit sur ta page que tu ne le vois pas. Si sur ta feuille tu réussi à apercevoir une tâche d'encre, c'est que c'est ça...

C'est du à la résolution du canevas de l'imprimante

Là, tout de suite, si je regarde les la résolution de mon imprimante, c'est : 29700x21000.

Enfin bon 1200 dpi, c'est 12000 pts par tranche de 2,54 cm....

si ton bitmap fait 800x600 comme sur ton écran, imagines la taille de ton image sur le canevas de ton imprimante.

Donc normalement, tu devrais pouvoir coller ton raster directement sur l'imprimante...

**geocad** · 13/09/2007, 17h48

Mon pb c'est que ça a fonctionné sur toutes les imprimantes que j'ai testé. Mais certaines personnes qui utilisent des grosses imprimantes de bureau, m'ont signalé cette absence de bitmap. Pour être complet, je dois dire que l'impression de textes d'habillage fonctionne dans tous les cas.

Bon, voici du code complémentaire pour essayer de comprendre, mais ce code , je l'ai retourné plusieurs fois dans tous les sens sans succès.
En développant mon appli, j'avais constaté un pb lié au rapport entre la taille du bitmap et la taille de la fenêtre à l'écran. L'image ne s'affichait pas dans tous les cas en fonction du zoom. On m'avait parlé d'un bug windows à l'époque (c'était sous w98) mais là je suis sous XP. Comprenne qui pourra...

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
 
procedure PresentePrinterWindow;
begin 
        // COPIER DANS UNE FENÊTRE PROPORTIONELLE
        ImagePlan.Canvas.CopyRect(
        ImagePlan.ClientRect,
        PlanRaster.Bitmap.Canvas,
        Rect(VueLeft,VueTop,VueWidth+VueLeft,VueHeight+VueTop));
        EdEche.text := IntToStr(round( RasterScale*CoefEch/VueScale));
 
    // Raster->Ecran
    // fenêtre imprimante dans le Raster
    PrintVueWidth  := round(FenWidth*mmResolution * CoefEch/(VueScale*1000));
    PrintVueHeight := round(FenHeight*mmResolution * CoefEch/(VueScale*1000));
    PrintVueLeft := round(VueLeft+VueWidth/2 - (PrintVueWidth/2));
    PrintVueTop  := round(VueTop+VueHeight/2 - (PrintVueHeight/2));
 
    Form1.ImagePlan.canvas.Rectangle(
    round((PrintVueLeft-VueLeft)*VueScale),
    round((PrintVueTop-VueTop)*VueScale),
    round((PrintVueLeft-VueLeft+PrintVueWidth)*VueScale),
    round((PrintVueTop-VueTop+PrintVueHeight)*VueScale));
end;
 
function mm2pr(mm:double):integer;
begin
    result := MulDiv(PrPPI, round(10*mm), 254);
end;
 
Function AppercuPrinterWindow: boolean;
begin
  result := Form1.PrintDialog1.execute;
  if result then begin
 
    Cap  := GetDeviceCaps(Printer.Handle, TECHNOLOGY);
    if Cap <> DT_RASPRINTER	then begin
        showmessage ('Imprimante non graphique !');
        result := false;
        exit;
    end;
 
    prPPI:=GetDeviceCaps(Printer.Handle, LOGPIXELSX); // Nb de pixels par pouce
 
    // fenêtre imprimante en pixels imprimante
    PixMargeGauche := mm2pr(MargeGauche);
    PixMargeHaute  := mm2pr(MargeHaute);
    PixFenWidth    := mm2pr(FenWidth);
    PixFenHeight   := mm2pr(FenHeight);
  end;
end;

**Jipété** · 13/09/2007, 17h56

Jette un oeil à cette discussion (c'est tout frais), il y a peut-être un rapport, et peut-être aussi une source d'inspiration,

Et ça

des grosses imprimantes de bureau

c'est quoi ? Des grosses matricielles rapides ? À tambour ? Savent-elles faire du bitmap ? (enfin, là, je dis sans doute n'importe quoi, ce sont ces bestiaux que j'ai quitté il y a looooooongtemps...)
--
jp

**geocad** · 13/09/2007, 18h18

La technologie des imprimantes est testé par:

Code :

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

1
2
3
4
5
6
    Cap  := GetDeviceCaps(Printer.Handle, TECHNOLOGY);
    if Cap <> DT_RASPRINTER	then begin
        showmessage ('Imprimante non graphique !');
        result := false;
        exit;
    end;

mais aucun message n'apparait...

**LadyWasky** · 13/09/2007, 18h42

As tu essayé d'imprimer ton image avec les composants de la JVCL ??
(TJVPreviewPrinter, TJVPreviewRenderGraphics, etc... c'est l'onglet "JV Print Preview").

Comme je les ai débuggué il y a 3-4 ans, et que je les ai testé dans plusieurs situations, on sera vite fixé de savoir si celà vient de ton code ou d'ailleurs....

Parce que ce que tu nous présente là me parait correct (enfin, pour l'instant, je n'ai pas trouvé ce qui clochait)

**geocad** · 13/09/2007, 18h56

Je veux bien, mais le la trouve où la JVCL ?

**Jipété** · 13/09/2007, 19h15

Cap := GetDeviceCaps(Printer.Handle, TECHNOLOGY);

Chez moi sur 2 imprimantes différentes ça me retourne "2" (DT_RASPRINTER).
Ton code semble bon mais tu ne réponds pas aux questions qu'on te pose... Donc, again, :

des grosses imprimantes de bureau

c'est quoi ? Des grosses matricielles rapides ? À tambour ? Savent-elles faire du bitmap ?

Tu devrais p'têt' chercher DeviceCapabilities dans le SDK, par exemple :

DC_DATATYPE_PRODUCED : The return value is the number of datatypes supported by the printer driver. If the function returns -1, the driver understands the "RAW" datatype only. The names of the supported datatypes are copied to an array. Use the names in the DOCINFO structure when calling the StartDoc function to specify the datatype.

Si j'avais le 'blème c'est là que je chercherais.
--
jp

**geocad** · 13/09/2007, 19h23

Mes réponses aux questions sont à lire et éventuellement à comprendre. Je précise donc que quand je teste les capacités de l'imprimante par GetDeviceCaps(Printer.Handle, TECHNOLOGY); je répond à la question "Savent-elles faire du bitmap"

ps: J'ai trouvé la JVCL ici: http://sourceforge.net/project/showf...group_id=45786

**Jipété** · 13/09/2007, 23h45

Parmi la foultitude d'infos concernant une imprimante (et son pilote), y a p'têt' un truc en rapport avec ton 'blème, un flag qui s'appelle "RC_BITMAP64 : Capable of supporting bitmaps larger than 64K".
Et quand je fais 12 289 x 8 880, je trouve 109 126 320...

Je reviens à mon interrogation existentielle : des grosses imprimantes de bureau c'est quoi ? Des grosses matricielles rapides ? À tambour ? Vieilles ? Ou des lasers "départementales" networkées ?

Parce qu'on ne m'enlèvera pas de l'idée que si le code fonctionne sur plein de machines (c'est toi qui le dit), c'est qu'il est bon, et s'il ne passe pas sur certaines, faut creuser là, sur elles et leurs possibilités.

Mes 2 cts,
--
jp

**Gilbert Geyer** · 14/09/2007, 12h43

Bonjour,

Si cela peut rassurer partiellement geocad je peux lui signaler que le code d'impression d'une appli que j'avais faite au départ pour ma soeur soeur et moi fonctionnait à merveille chez moi et n'a jamais voulu fonctionner avec son imprimante alors que son imprimante lui sortait parfaitement bien des images et/ou du texte qui lui étaient envoyées par d'autres logiciels.

Je n'en ai jamais pigé la raison. J'étais d'autant plus embarassé que le code d'impression en question n'était pas un truc que j'avais bidouillé moi-même (sinon j'aurais eu un os à ronger pour chercher la cause) vu qu'il s'agissait tout bonnement de la méthode Print associée au tRichEdit et qui a été codée par des professionnels. (Mais comme son imprimante fonctionnait bien avec Word je m'en suis sorti en pilotant son impression depuis mon appli avec du code de pilotage de Word).

Par contre la parade que j'ai utilisée n'est peut-être pas adaptée au problème soulevé par geocad ... à moins que.

A+

**geocad** · 14/09/2007, 17h06

Merci à Gilbert, son message confirme bien le blème rencontré.

Le précédent code faisait appel aux capacités de stretch de l'imprimabte,
Je l'ai modifié pour faire une préparation en amont, et juste faire un transfert simple par Printer.Canvas.Draw( 0,0,Bitmap);
J'ai aussi rajouté un test de l'imprimante.
Je ne sais pas s'il fonctionnera sur plus de printers, ou si un message sortira.
J'ai envoyé mon bidule à quelqu'un qui a accès à plusieurs bécanes ... wait & see..
Je vous tiens au courant... mais continuons à réfléchir, ça me tarabuste quand même...

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
 
    Cap  := GetDeviceCaps(Printer.Handle, RASTERCAPS);
    if (Cap and RC_BITMAP64)  =0 then begin
        showmessage ('Les capacités de l''imprimante ne permettent pas l''impression du plan.');
        result := false;
        exit;
    end;
{
    if (Cap and RC_BITBLT)      <>0 then showmessage ('Capable of transferring bitmaps.');
    if (Cap and RC_BANDING)     <>0 then showmessage ('Requires banding support.');
    if (Cap and RC_SCALING)     <>0 then showmessage ('Capable of scaling.');
    if (Cap and RC_BITMAP64)    <>0 then showmessage ('Capable of supporting bitmaps larger than 64K.');
    if (Cap and RC_GDI20_OUTPUT)<>0 then showmessage ('Capable of supporting features of Windows 2.0.');
    if (Cap and RC_DI_BITMAP)   <>0 then showmessage ('Capable of supporting the SetDIBits and GetDIBits functions.');
    if (Cap and RC_PALETTE)     <>0 then showmessage ('Specifies a palette-based device.');
    if (Cap and RC_DIBTODEV)    <>0 then showmessage ('Capable of supporting the SetDIBitsToDevice function.');
    if (Cap and RC_STRETCHBLT)  <>0 then showmessage ('Capable of performing the StretchBlt function.');
    if (Cap and RC_FLOODFILL)   <>0 then showmessage ('Capable of performing flood fills.');
    if (Cap and RC_STRETCHDIB)  <>0 then showmessage ('Capable of performing the StretchDIBits function.');
}
 
    mmprWidth   := GetDeviceCaps(Printer.Handle, HORZSIZE);// largeur imprimable en mm
    pixprWidth  := GetDeviceCaps(Printer.Handle, HORZRES); // largeur imprimable en pixels (Printer.PageWidth)
    pixprHeight := GetDeviceCaps(Printer.Handle, VERTRES); // hauteur imprimable en pixels
 
procedure PrintPrinterWindow;
var
    Bitmap : TBitMap; // BitMap intermédiaire
begin
 
    Bitmap := TBitmap.Create;
    Bitmap.canvas.CopyMode := cmSrcCopy;
    Bitmap.Width  := pixprWidth; // taille de l'imprimante
    Bitmap.Height := pixprHeight;
 
    // Copie dans le bitmap intermédiaire
    Bitmap.Canvas.CopyRect(
        // Rectangle de destination: la fenètre visée sur l'imprimante
        Rect(PixMargeGauche,PixMargeHaute,PixFenWidth+PixMargeGauche,PixFenHeight+PixMargeHaute),
        //Rect(0,0,Bitmap.Width,Bitmap.Height),
        // Canevas d'origine: (le raster)
        PlanRaster.Bitmap.Canvas,
        // Rectangle du canevas d'origine à tracer dans le rectangle de destination:
        Rect(PrintVueLeft,PrintVueTop,PrintVueWidth+PrintVueLeft,PrintVueHeight+PrintVueTop));
 
    Bitmap.HandleType:= bmDIB;
    Bitmap.Pixelformat:= pf24bit; // on assure le coup au cas ou... (c'est là qu'on voit que ça hésite un max)
 
    Printer.orientation := poPortrait;
    Printer.BeginDoc;
    try
        Printer.Canvas.Draw( 0,0,Bitmap);
    finally
        Printer.EndDoc;
        Bitmap.Free;
    end;
 
end;

**geocad** · 14/09/2007, 20h13

Bon, ben il parait que cette version provoque un débordement de mémoire sur un serveur WIndows 2000. Mais je ne connais pas les conditions de test.

Est-ce que tout ça peut provenir des drivers installés quand on capture une imprimante réseau?