Скриншот в Image

[Florento]

Программа работает в цикле и каждую секунду делает скриншот из WebBrowser, сохраняет на жесткий диск, потом загружает в Image. Зашел в процессы, и увидел что программа постоянно увелечивает расход оперативной памяти. Начиная с 200 мб доходило до 1 гб. Чем больше работает, тем больше грузит.

Как можно почистить оперативную память? Сделать так, чтобы после очердного скриншота и загрузки его в image, программа освобождала память, которую использовала? Скриншот делается функцией:

procedure WebBrowserScreenShot(const wb: TWebBrowser; const fileName: TFileName);
var
viewObject : IViewObject;
r : TRect;
bitmap : TBitmap;
begin
if wb.Document <> nil then
  begin
    wb.Document.QueryInterface(IViewObject, viewObject) ;
    if Assigned(viewObject) then
      bitmap := TBitmap.Create;
      r := Rect(0, 0, wb.Width, wb.Height) ;
      bitmap.Height := wb.Height;
      bitmap.Width := wb.Width;
      viewObject.Draw(DVASPECT_CONTENT, 1, nil, nil, Application.Handle, bitmap.Canvas.Handle, @r, nil, nil, 0) ;
      bitmap.SaveToFile(filename);
      bitmap.Free;
      viewObject._Release;
end;
end;

[volod3000]

Попробуйте эту процедуру:

uses Windows, SysUtils;

procedure TrimWorkingSet;
var
MainHandle: THandle;
begin
if Win32Platform = VER_PLATFORM_WIN32_NT then
begin
MainHandle := OpenProcess(PROCESS_ALL_ACCESS, false, GetCurrentProcessID);
SetProcessWorkingSetSize(MainHandle, DWORD(-1), DWORD(-1));
CloseHandle(MainHandle);
end;
end;

[Florento]

а когда ее вызывать?

[volod3000]

Сообщение от Florento

а когда ее вызывать?

Можно попробовать в конце Вашей процедуры .

[Florento]

Спасибо, помогло.