发信人: liudq()
整理人: windfire(2000-12-05 20:06:27), 站内信件
|
发信人: icefh (冰原)
信 区: RAD
标 题: Delphi的Tips(七)
发信站: '紫金飞鸿' (Fri May 1 13:38:01 1998) , 转信
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文
件，重
新编译你所有用到图形的程序。
傅贵
--
/\
我在冰雪原中 // /\ \\
跋涉 / / / | \ \ \
远方的路啊 /^^^^--冰原--^^^^\
在哪里？ /__________________\
※ 修改:·icefh 於 May 1 13:39:08 修改本文·[FROM: 202.119.236.104]
※ 来源:·紫金飞鸿 bbs.njupt.edu.cn·[FROM: 202.119.236.104]
----------------------------------------------------------------------
----------
[返回首页] [分类讨论区] [全部讨论区]
--
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.96.167.200]
|
|