canvas dose not allow drawing错误

[win2000pega]

我在使用RAVE打印的时候，产生了canvas dose not allow drawing错误。
请问canvas dose not allow drawing错误是由于什么原因产生的。

[nwpulipeng]

关注

[zhaozhen2004]

没有遇到过。

[cdsgajxlp]

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

[hqhhh]

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

不是太清楚！

[win2000pega]

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

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

[flyinwuhan]

估计又是多线程出的问题

[lovendII]

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

[cdsgajxlp]

//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;

[win2000pega]

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

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

能解决一下吗？

[win2000pega]

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

[hqhhh]

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

[chw_csdn_chw]

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

[win2000pega]

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

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

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

[win2000pega]

TO: chw_csdn_chw(chw)

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

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

[zhushudo]

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

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

[win2000pega]

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

[win2000pega]

希望大家踊跃发言。