PrtScSysRq vs Memory

[JoanM]

Хай всем! Проблема такова:
Я с помощью программки (естественно своей) фотаю экран и сохраняю его в файл с интервалом в 3 сек (как бы самообновляемый файл), но после 5-7 (иногда 3) разов [фотанья] Дельфя орёт, что память перегружена (что-то вроде этого). Кто знает, как после каждого сохранения файла экрана "освобождать память от мусора" - чтобы не перегружалась?

P.S. Памяти у меня на компе 1 GB

[Карась]

.Free; очистка памяти...

[JoanM]

А чему .free передавать

[Карась]

Хм.. а чево у тебя есть? исходничек чтоль кинь...

[JoanM]

Исходник у меня где-то далеко лежит, подскажи так, на словах. Я могу рассказать структуру программы:

Есть таймер. Он через n-интервал фотает экран с помощью какой-то там функции. Потом он рисует (отображает) сфотанный экран на компоненте image и после я Imag`у говорю, чтобы он сохранил (SaveToFile) картинку в файл.

Я уже и картинку разрешением 1280х1024 (мой экран) сжимал до 640х480 - перегрузка пямяти всё равно.

[Карась]

Тогда:

Image1.Free;

[Stilet]

Image1.Free;

А потом заново создавать??
Джон, покажи код.

[JoanM]

procedure TForm1.Timer1Timer(Sender: TObject);
begin
image1.Picture.Bitmap:=scrncap.Capt ureScreen;
application.ProcessMessages;
image1.picture.SaveToFile('M:\scree n.gif');
end;

Вот что обрабатывает таймер.

Могу кинуть мой модуль ScrnCap на e-mail, а то что-то не нашёл, как прикрепить файл к моему сообщению.

[Stilet]

Друг, мой, Джон, я не знаю че там ты зарулил в том модуле, и мыла у меня нет, посему мне проще тебе показать как экран фотографировал бы я.
Итак:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var    h:hdc; i:TBitmap;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin

 StretchBlt({Form1.Canvas.Handle}i.Canvas.Handle,0,0,Width,Height,h,0,0,Screen.Width,Screen.Height,SRCCOPY);
 StretchBlt(Form1.Canvas.Handle,0,0,Width,Height,h,0,0,Screen.Width,Screen.Height,SRCCOPY);
 i.SaveToFile('c:\temp\img'+inttostr(Form1.tag)+'.bmp');
 Form1.tag:=Form1.tag+1;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
h:=GetDC(GetDesktopWindow);i:=TBitmap.Create;
i.Width:=Screen.Width;i.Height:=Screen.Height;
end;

end.

Этот код каждую секунду будет создавать файлы в папке c:\temp

Если что спрашивай.

P.S. Ах да чуть не забыл, файлы эти ну уж очень большого рамера, посему нуна бы по хорошему их сжимать, это можно сделать используя возможности модуля JPEG. Я его показывать уж не буду ты поиском если что...

[JoanM]

Мне нужно замещать файл JPEG`овский. Может быть в процессе замещения память сильно грузится.