关注

没有遇到过。

canvas dose not allow drawing说明不能使用canvas
具体看canvas帮助

是不是你的报表中放了一些图，而没有加相应的控件

不是太清楚！

我打印机械序号的条码，可能是有一些图形的。

但是在报表里面我已经增加这些控件。

估计又是多线程出的问题

提示不能重画canvas ,估计需要设置什么属性才可以吧。去查查资料

//canvas dose not allow drawing
procedure TForm1.Button1Click(Sender: TObject);
Var
  FCanvas : TCanvas;
begin
  FCanvas := TCanvas.Create;
  FCanvas.MoveTo(10,10);
  FCanvas.LineTo(200,200);
  FCanvas.Free;
end;


OK
procedure TForm1.Button1Click(Sender: TObject);
var
  rect1, rect2: trect;
  mCanvas: TCanvas;
  mHDC: HDC;
  bitmap : tbitmap;
begin
  bitmap := tbitmap.create;
  bitmap.loadfromfile('C:\Documents and Settings\Administrator\My Documents\first.bmp');
  mCanvas := TCanvas.Create;
  mHDC := GetDC(button1.Handle);
  mCanvas.Handle := mHDC;
  rect1 := bitmap.Canvas.ClipRect;
  rect2 := Rect(0, 0, button1.Handle, button1.Handle);
  mCanvas.copyrect(rect2, bitmap.canvas, rect1);

  bitmap.free;
  mCanvas.Free;
  ReleaseDC(button1.Handle, mHDC);
end;

TO: flyinwuhan(制怒·三思而后行)

确实是多线程出的问题，我在一个线程调用RAVE进行打印。

能解决一下吗？

是不是线程同步，或者调用RAVE控件的问题？

你最好试一下不用线程处理，会不会错，如果没有错，则说明你的报表中有图的问题，
然后你再把报表中的图去掉试试，我样可以查出原因！

部用线程我已经试过了，程序可以正常运行。我的报表中确实有图形，可是把图形去掉也是一样的错误。

部用线程是部可以的，因为我的程序是扫描打印的，扫描后打印条码标签，有的时候扫描的时候是特别的快，用单线程处理的时候，又查数据库，又需要打印，这样的话打印和扫描部能同步，致使打印出的标签是错误的。

为什么线程会出此类的问题？

vcl不是线程安全的.
你可以在线程中postmessage(wm_print)给一个窗体(例如创建线程的窗体),然后再这个窗体中截取wm_print消息,并进行处理(打印)

TO: chw_csdn_chw(chw)

——————————————————————————————————————

你说的又道理，我试一下，希望能好用。

大家没有什么好的办法了吗？

希望大家踊跃发言。

应该是VCL同步问题，使用下面的方法看看。

procedure TMyTreadPrint.Execute;
begin
  inherited;
  try
     Synchronize(自己写的过程);
  except
    on Ex:exception do
      fExceptionMessage:=Ex.Message;
  end;
end;