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
|
var source : TBitmap;
BitmapHeader: pBitmapInfo;
BitmapImage : POINTER;
HeaderSize : LONGWORD;
ImageSize : LONGWORD;
begin
try
source:=TBitmap.Create;
source.HandleType:= bmDIB;
source.LoadFromFile('C:\mon bitmap.bmp');
source.PixelFormat:= pf24Bit;
Printer.BeginDoc;
GetDIBSizes(source.Handle, HeaderSize, ImageSize);
GetMem(BitmapHeader, HeaderSize);
GetMem(BitmapImage, ImageSize);
try
GetDIB(source.Handle, source.Palette, BitmapHeader^, BitmapImage^);
Printer.Canvas.Lock;
SetStretchBltMode(Printer.Canvas.Handle,HALFTONE);
StretchDIBits(Printer.canvas.Handle,
0, 0,
Printer.PageWidth,
Printer.PageHeight,
0, 0,
source.Width, source.Height,
BitmapImage,
TBitmapInfo(BitmapHeader^),
DIB_RGB_COLORS,
SRCCOPY);
Printer.Canvas.Unlock;
Pinter.EndDoc;
finally
FreeMem(BitmapHeader);
FreeMem(BitmapImage)
end;
finally
source.Free;
end; |
