我定义了以下变量
type
Byte_Array = Array of Byte;
PBtye_Array = ^Byte_Array; PFXImage = ^TFXImage;
TFXImage = record
iWidth,iHeight: Integer;
iPitch: Integer;
bBW: Integer;
color_map: Byte_Array;
iComponents: Integer;
components_offsets: Array of Byte_Array;
pData: Byte_Array;
iDPI_W,iDPI_H: Integer;
end;在程序使用过程中,
var
FXImage:PFXImage;
begin
new(FXImage)
......
......
Dispose(PFXImage(FXImage))
end;FXImage存储的是大容量的bmp信息,当返回new,dispose之后,发现系统内存是逐渐上涨的,也就是说Dispose(PFXImage(FXImage))没有完全释放开辟的内存。请大家看看如何才能完全释放开辟的内存
type
Byte_Array = Array of Byte;
PBtye_Array = ^Byte_Array; PFXImage = ^TFXImage;
TFXImage = record
iWidth,iHeight: Integer;
iPitch: Integer;
bBW: Integer;
color_map: Byte_Array;
iComponents: Integer;
components_offsets: Array of Byte_Array;
pData: Byte_Array;
iDPI_W,iDPI_H: Integer;
end;在程序使用过程中,
var
FXImage:PFXImage;
begin
new(FXImage)
......
......
Dispose(PFXImage(FXImage))
end;FXImage存储的是大容量的bmp信息,当返回new,dispose之后,发现系统内存是逐渐上涨的,也就是说Dispose(PFXImage(FXImage))没有完全释放开辟的内存。请大家看看如何才能完全释放开辟的内存
解决方案 »
- 关于手持终端机(数据采集器Symbol)的若干问题
- delphi 类的继承的问题
- 初学者初次开发Delphi程序(代理软件),恳求高手能给些思路
- GBK编码如何转换成十六进制 ?
- 有关TListView控件的问题:在一行固定显示17项。请指教
- delphi能调用EXPECT脚本么?
- 我在用FASTREPORT的时候,发现中文有些难看,还有些是英文的.
- delphi中有类似c中的fflush函数吗?
- 请问如何向一个TDbEdit发送一个双击的消息
- 紧急求救??????????????!!!!!!!!!!
- 难题: TWebBrowser页面编辑问题? (急!!!)
- ora00907 缺少右括号的问题,pl/sql没问题,delphi调用出错
这个是动态数组,结构体只存了打针,实际占用的空间要自己释放
SetLength(FXImage.color_map, 0)
释放动态数组占用的内存
pData域同上
components_offsets更是二维数组,还要一个个setlength