2

我的应用程序是在 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 是一个指针。

  • 将打印机的尺寸分配给TGPRect 记录的实例矩形

  • 调用 DrawImage 函数：

    gp.DrawImage(bmp,rect);

但是，在进行这些更改后，打印机的输出中会显示空白图像。你能指出我是否遗漏了什么或者我的实施是错误的。你能提供任何关于这方面的指示吗？

4

1 回答 1

1

我发现以下代码演示了从 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;
于 2012-10-11T20:54:16.510 回答