[英]Replacing StretchDIBits with GDI+ (while drawing an Image to Printer's canvas)
我的应用程序是在Delphi 6中开发的。由于后台处理和大量数据(它消耗大约60MB-120MB的物理内存),因此这是一个资源密集型应用程序。 此应用程序的功能之一是创建条形码图像并进行打印。 如果用户继续生成条形码,则十分之十的条形码中至少有一行缺失。
我能够使用TExcellenImagePrinter组件解决此问题。 但是,它大大降低了性能。 我的客户拒绝了该解决方案,因此,现在我试图用GDI +替换WinAPI StretchDIBits调用。
原始源代码如下:
procedure PrintBitmap(ARect:TRect; Bitmap:TBitmap);
var
Info: PBitmapInfo;
InfoSize: dword{Integer};
Image: Pointer;
ImageSize: dword{ integer};
iWidth,iHeight :integer;
iReturn : integer ;
begin
GetDIBSizes(Bitmap.handle,InfoSize,ImageSize);
if (LoadDIBFromTBitmap(Bitmap,Pointer(Info),Image,iWidth,iHeight)) then
begin
SetStretchBltMode(Printer.Canvas.handle,STRETCH_HALFTONE);
SetBrushOrgEx(Printer.Canvas.handle, 0, 0, NIL);
iReturn := StretchDIBits(Printer.Canvas.Handle, ARect.Left, ARect.Top,
ARect.Right - ARect.Left, ARect.Bottom - ARect.Top,
0, 0, Info^.bmiHeader.biWidth,
Info^.bmiHeader.biHeight, Image, Info^,DIB_RGB_COLORS, SRCCOPY);
end;
FreeMemEx(Info);
FreeMemEx(Image);
end;
正如乔在embarcadero论坛( https://forums.embarcadero.com/thread.jspa?messageID=471501#471501 )所建议的那样,我从( http://www.progdigy.com/?page_id=7 )获取了GDI +标头。 )。
我修改了我的源代码,如下所示:
创建了TGPGraphics类的对象,并为其分配了打印机的句柄。
gp:= TGPGraphics.Create(Printer.Canvas.Handle);
创建了TGPBitmap类的对象,并为其分配了条形码图像。
bmp:= TGPBitmap.Create(Info ^,Image);
Info是TBitmapInfo,Image是指针。
调用了DrawImage函数:
gp.DrawImage(BMP,RECT);
但是,进行了这些更改之后,空图像将显示在打印机的输出中。 您能指出我是否错过了某些事情,或者我的实现是错误的。 您可以提供与此相关的任何指示吗?
我发现以下代码演示了如何从dib创建兼容位图(DBB)。 那应该为您工作。 也许它可以写得更好,但是总的来说,它是可行的……至少对我来说。
procedure PRPrintBitmapOnCanvas(Canvas: TMetafileCanvas; Bitmap: TBitmap; posLeft, posTop: Integer);
var
lpbmih: TBitmapInfoHeader;
lpbmi: TBitmapInfo;
aBitmap: HBITMAP;
aDC: LongWord;
begin
Fillchar(lpbmih, SizeOf(lpbmih), 0);
lpbmih.biSize := SizeOf(lpbmih);
lpbmih.biWidth := bitmap.width;
lpbmih.biHeight := bitmap.height;
lpbmih.biPlanes := 1;
lpbmih.biBitCount := 32;
lpbmih.biCompression := BI_RGB;
Fillchar(lpbmi, SizeOf(lpbmi), 0);
lpbmi.bmiHeader.biSize := SizeOf(lpbmi.bmiHeader);
lpbmi.bmiHeader.biPlanes := 1;
lpbmi.bmiHeader.biBitCount := 32;
lpbmi.bmiHeader.biCompression := BI_RGB;
aBitmap := CreateDIBitmap(Canvas.Handle, lpbmih, 0, nil, lpbmi, DIB_RGB_COLORS);
if aBitmap = 0 then RaiseLastOSError;
try
aDC := CreateCompatibleDC(Canvas.Handle);
SelectObject(aDC, aBitmap);
BitBlt(aDC, 0, 0, bitmap.Width, bitmap.Height, bitmap.Canvas.Handle, 0, 0, SRCCOPY);
BitBlt(canvas.handle, posLeft, posTop, bitmap.Width, bitmap.Height, aDC, 0, 0, SRCCOPY);
DeleteDC(aDC);
finally
DeleteObject(aBitmap)
end;
end;
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.