Delphi - Ako tlačiť TImage?

TImage preeses z Canvasu TImage na Canvas tiskarny.
Treba pomoci

Printer.BeginDoc;
{ tady pomoci funkce CopyRect() zkopirujes na canvas tiskarny.
  CopyRect resi i zmenu velikosti }
Printer.EndDoc;

Dalsi moznosti je pouzit nejaky navrhar sestav (QuickReport).

U velkých obrázků (>4MPix) toto selže, protože se zhroutí API funkce BitBlt a StretchBlt, které na to Delphi použije. Pro větší obrázky je třeba nějaký takovýto postup - např. tisk fotky - předpokládám, že Bitmapu z TImage umíš vydojit :

// Printer := objekt TPRinter z unity Printers
// PrintBMP := TBitmap k tisku
Printer.BeginDoc ();
// Tisk s přispůsobením na celou stránku - například fotka:
DrawBitMap (PrintBMP, Printer.Canvas, Rect (0, 0, Printer.PageWidth, Printer.PageHeight));
// Kdybys to nechtěl roztáhnout na celou stránku (tisk obrázku 1:1), použije se to třeba takto:
// DrawBitMap (PrintBMP, Printer.Canvas, Rect (0, 0, PrintBMP.Width, PrintBMP.Height));
Printer.EndDoc ();


//A ještě procedura DrawBitMap:

{---------------------- Nakreslení velkých bitmap na Canvas (třeba tiskárny) -------------------------------------}
{ 1. verze, dne  2.  7. 2003                                                                                      }
{                                                                                                                 }
procedure DrawBitMap (const ABitmap: TBitmap; const ACanvas: TCanvas; const ARect: TRect);
{	ABitmap	:= Bitmapa								}
{	ACanvas	:= Canvas, kam to chceme nakreslit					}
{	ARect	:= Rectangle v Canvasu, kam to nakreslit				}
var BitmapHeader: pBitmapInfo; BitmapImage: Pointer; HeaderSize, ImageSize: dword;    // DWORD je pro D3-D5 kompatibilitu
begin
	GetDIBSizes	(ABitmap.Handle, HeaderSize, ImageSize);
	GetMem		(BitmapHeader,  HeaderSize); GetMem (BitmapImage, ImageSize);
	try
		GetDIB (ABitmap.Handle, ABitmap.Palette, BitmapHeader^, BitmapImage^);
		StretchDIBits (ACanvas.Handle, ARect.Left, ARect.Top, ARect.Right - ARect.Left, ARect.Bottom - ARect.Top, 0, 0, ABitmap.Width, ABitmap.Height, BitmapImage, TBitmapInfo (BitmapHeader^), DIB_RGB_COLORS, SRCCOPY);
	finally 
		FreeMem (BitmapHeader); FreeMem (BitmapImage) 
	end
end;

Ja našťastie tlačím len obrázok s veľkosťou okolo 800x1024, ale dobre vedieť. Lenže ako nastaviť DPI, ak to náhodou nebude na šírku stránky?

DPI nech na pokoji, změň jen velikost obrázku. V CopyRect nebo v té mojí proceduře určuješ velikost cílového obrázku záznamem typu TRcet.

Čiže ak tomu rozumiem správne, tak aký veľký priestor alokujem pre Canvas (Height a Width), tak sa to vždy zobrazí na celej strane? Teda ak alokujem 2100x2950 bodov, bude jedna strana, ak alukujem 1050x1475 a zakreslím len 500x500, tak to bude len v časti strany. Ak sa mýlim, tak ma oprav, prípadne pouč. Ešte k tomu alokovaniu. Ja som totiž TBitmap alokoval tak, že som mu určil Width a Height a bolo.

Canvas tiskárny je daný. Je dle velikosti papíru do ní strčeného. Na něj obrázek prostě nakopíruješ. Třeba s pomocí Canvas.CopyRect nebo Canvas.StretchDraw (nebo tou mojí rutinou). Kam (LEFT, TOP) to nakopíruješ, tam to na stránce bude a bude to veliké (Right - Left) x (Bottom - Top).
DPI fotky je obvykle 72 ať je 1MPix nebo 5MPix a změna DPI obvykle vede k těžké degradaci obrázku. Viz 040908dpi.html .

Aha, tak potom by som sa mal opýtať, aké sú rozmery Canvas pri štandardnom A4?

Edit: Áno, to som si už dávno všimol, že CopyRect dokáže zázraky (zväčšovanie, zmenšovanie).

To lze těžko říci, záleží, v jakém DPI (právě) tiskne tiskárna . Většinou bývá 300DPI, takže rozměr A4 v palcích násob 300 . Nejlépe je velikost stránky zpracovávat programově. V mém výše uvedeném příkladu je vidět, že velikost stránky zjistíme "Delfáckým" způsobem z Printer.PageWidth a Printer.PageHeight - bacha, je to velikost stránky od kraje do kraje (tedy včetně technicky netištitelné oblasti). "Windowsáckým" způsobem - API funkcí Windows GetDeviceCaps (Printer.Handle, co-chceme) lze o nastavení tiskárny zjistít téměř všechno (velikost netištitelných okrajů je GetDeviceCaps (Printer.Handle, PHYSICALOFFSETX) a GetDeviceCaps (Printer.Handle, PHYSICALOFFSETY)).

Takže ďakujem za cenné informácie. Urobil som tlač a potreboval som približne 100 dpi (vypočítané z hlavy). No a keď som to vytlačil, tak som to musel zväčšiť 6x, takže mi asi tlačí 600 dpi. Dobre, že píšeš o rozmeroch stránky, dám prepočítať koeficienty pred tlačou a bude to v poriadku (dúfam).

Tak urobil som ako som napísal a pasuje to ako riťka na šerbel.

Mas pravdu, z vestimi obrazky si StretchDraw neporadi a skoci na velikosti pameti. Pak se to da resit rozdelenim prenosu obrazku na cavas napr. na 4x

Takže problém nie je v CopyRect, ale v zabratí pamäte, ktorej bude málo na danú operáciu?

Podivej se do zdroju, jak je implementovana funkce CopyRect a StretchDraw. Obe pacuji nad bitmapami a pri velkem obazku a velke barevne hloubce to nezvladnou

Dost zajimavy poznatek s tiskem.

Ďakujem zúčastneným, funguje to presne ako bolo treba, vyriešené.