发信人: redfox (Z掉了几乎所有的版...), 信区: BorlandDev
标 题: Delphi编程 -- 11.1 图形VCL中Bug修改方案
发信站: 哈工大紫丁香 (2000年09月01日16:54:05 星期五), 站内信件
图形控制技巧
Delphi 3 图形VCL中Bug修改方案:
傅贵
所有用Delphi 3的TJpegImage开发过Web ISAPI程序的人都知道:刚开始程序运
行是正
确的,但是运行不出几次,程序就会出问题:Web Server产生页面错误! 但是仔
细检查自己的程序,发现还是没有问题,到底为什么?
经仔细检查Delphi 3 VCL 的源程序,发现实际上错误发生在Delphi 3的图形处
理文件
Graphics中,Borland公司的开发人员锁住了BitmapCanvasList但是未解锁,使得
程序在多线程的程序中会产生错误。
具体如下:(下面的程序在Delphi 3\Source\VCL\Graphics.pas中)
procedure FreeMemoryContexts;
var I: Integer; begin with BitmapCanvasList.LockList do begin
try for I := Count-1 downto 0 do
with TBitmapCanvas(Items[I]) do if TryLock then try
FreeContext; finally Unlock; end; finally
BitmapCanvasList.UnLockList; end end; end; ...
procedure DeselectBitmap(AHandle: HBITMAP); var I: Integer; begin
if AHandle = 0 then Exit; with BitmapCanvasList.LockList do try
for I := Count - 1 downto 0 do with TBitmapCanvas(Items[I]) do
if (FBitmap <> nil) and (FBitmap.FImage.FHandle = AHandle) then
FreeContext; finally BitmapCanvasList.UnLockList; end end;
在以上的程序中红色为补充的程序,桔红色为发生错误的程序。 修改的方法
为修改以上的程序,然后编译生成DCU文件,覆盖在Lib中的DCU文件,重
新编译你所有用到图形的程序。
--
※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.227.107]
Powered by KBS BBS 2.0 (http://dev.kcn.cn)
页面执行时间:3.017毫秒