$$$$$$ BMP 转 JPG 然后SAVETOFILE的问题 在线等待$$$$$$

[LWWL]

use
jpeg;
procedure TFmain.Timer1Timer(Sender: TObject);
Var
jpeg: TJPEGImage;
bmp: TBitmap;
i:integer;
begin
bmp:= TBitmap.Create;
try
bmp.Assign(Fmain.GetFormImage);
jpeg:= TJPEGImage.Create;
try
jpeg.Assign( bmp );
jpeg.compress;
jpeg.SaveTofile('d:\1.jpg');
finally
jpeg.free;
end;
finally
bmp.free;
end;
end;
这是个很简单的BMPTOJPG的代码 .
存文件的时候 在执行N次后 内存涨 直到内存耗尽 怎解决？
timer1.time.Interval:=1000;
能给个具体解决例子么?谢谢!
大家可已把这段代码复制到DELPHI中调试 2分钟后 看着内存就知道了

[LWWL]

gpwyfgaopo(流年) 跟时间没关系 我定时1个小时执行一次N次后 结果也是一样
jinjazz(近身剪（N-P攻略）) GetFormImage是取当前窗口图片 具体这个函数内部怎么运转的不知道
但我确定的是 SAVETOFILE的时候有问题.

[LWWL]

不知道寸成流后 在把流寸成文件怎么样 哪位老兄给个例子?

[jinjazz]

Var
jpeg: TJPEGImage;
bmp: TBitmap;
i:integer;
begin
bmp:= GetFormImage;
try
jpeg:= TJPEGImage.Create;
try
jpeg.Assign( bmp );
jpeg.compress;
jpeg.SaveTofile('d:\1.jpg');
finally
jpeg.free;
end;
finally
bmp.free;
end;
end;

[jinjazz]

就是GetFormImage得问题,这个函数的返回值是Tbitmap
function TCustomForm.GetFormImage: TBitmap;
...
begin
Result := TBitmap.Create;
try
...
except
Result.Free;
...
end;
end;

你每次调用的时候只是用assign复制了一下，并没有释放这个结果

直接用bmp:= GetFormImage;就可以了

[jinjazz]

GetFormImage里面干什么了

[gpwyfgaopo]

jpeg,bmp的内存资源还没有完全释放你就又创建了,时间比较短

[gpwyfgaopo]

jpeg,bmp的内存资源还没有完全释放你就又创建了,时间比较短