Delphi 将StretchDIBits替换为GDI+;(在打印机的画布上绘制图像时)
我的应用程序是在Delphi6中开发的。由于后台处理和大量数据(它消耗大约60MB-120MB的物理内存),这是一个资源密集型应用程序。此应用程序的功能之一是创建条形码图像并打印它们。如果用户继续生成条形码,那么十个条形码中至少有一个缺少行 我能够使用TExcellenImagePrinter组件解决此问题。但是,它大大降低了性能。该解决方案被我的客户端拒绝,因此,现在我尝试用GDI+替换WinAPI StretchDIBits调用 原始源代码如下所示:Delphi 将StretchDIBits替换为GDI+;(在打印机的画布上绘制图像时),delphi,winapi,image-processing,gdi+,delphi-6,Delphi,Winapi,Image Processing,Gdi+,Delphi 6,我的应用程序是在Delphi6中开发的。由于后台处理和大量数据(它消耗大约60MB-120MB的物理内存),这是一个资源密集型应用程序。此应用程序的功能之一是创建条形码图像并打印它们。如果用户继续生成条形码,那么十个条形码中至少有一个缺少行 我能够使用TExcellenImagePrinter组件解决此问题。但是,它大大降低了性能。该解决方案被我的客户端拒绝,因此,现在我尝试用GDI+替换WinAPI StretchDIBits调用 原始源代码如下所示: procedure PrintBitma
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;
根据Joe在embarcadero论坛()中的建议,我从()中获得了GDI+标题
我修改了我的源代码如下:
- 创建了TGPGraphics类的对象,并为其指定了打印机句柄 gp:=TGPGraphics.Create(Printer.Canvas.Handle)
- 创建了TGPBitmap类的onject,并将条形码图像分配给它 bmp:=TGPBitmap.Create(信息^,图像) Info是TBitmapInfo,Image是指针
- 将打印机的维度分配给TGPRect记录的an实例rect
- 调用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;
我问了一个类似的问题@stackoverflow查看你之前的q,你是否确保绘制原始位图的代码是正确的?打印机的分辨率通常比屏幕高,所以我不希望线条消失,可能会变宽,但不会消失,除非它们是1像素宽,用现代打印机分辨率无论如何都无法扫描。。。对于任何需要精确性的东西,比如条形码,我都不相信任何通用位图缩放功能。它们在图片上很好,但在文字上却很糟糕。@Dispatcher:是的。我已检查生成条形码图像的原始代码是否正常工作。除了StretchDIBits之外,我还尝试使用TExcellentImagePrinter组件,但是性能降低了10倍。关于与Delphi 6兼容的第三方工具有什么建议吗?正如我暗示的那样-我认为您应该缩放绘图例程,以便它可以直接绘制到打印机画布上。。。这就是我最终为类似的事情所做的。因此,您可能需要调用类似于牵引代码(ACanvas、X、Y、宽度、高度、水平分辨率、垂直分辨率)的例程。@TLama:是的,我的实现与提供的示例类似。坐标有点问题,我能解决。但是,我在中所述的问题没有得到解决:(这并没有回答提出的问题,即如何使用GDI+将位图绘制到Printer.Canvas.Yep,但它给出了如何避免第三方商业组件(如所述TExcellenImagePrinter)使用与设备上下文兼容的位图DDB打印位图的答案。我在打印时也遇到了同样的问题(Blank page),StretchDIBits也不起作用。DDB是一个似乎适用于大多数打印机驱动程序的选项。