Куда отследить куда утекает память?

[TwiX]

Вроде всё освобождаю, но занятая память всё увеличивается и увеличивается...

Во втором сообщении выложу кусок кода...

procedure TForm1.TCPExecute(AContext: TIdContext);
var
  msg: Byte;
  mm: TMemoryStream;
  size: Int64;
  bmp: TBitmap;
begin
  msg:=AContext.Connection.IOHandler.ReadByte;

  if msg=PCM_SendingDC then
  begin
    mm:=TMemoryStream.Create;
    size:=AContext.Connection.IOHandler.ReadInt64();
    AContext.Connection.IOHandler.ReadStream(mm, size);
    mm.Position:=0;
    bmp:=TBitmap.Create;
    bmp.LoadFromStream(mm);

    frmScreen.bmp.Assign(bmp);
    Form3.Canvas.CopyRect(Form3.Canvas.ClipRect, bmp.Canvas, bmp.Canvas.ClipRect);
    Form3.Show;
    bmp.Free;
    mm.Free;
  end;
end;

procedure TForm1.TCPConnect(AContext: TIdContext);
var
  t: TDateTime;
begin
  t:=now;
    ListBox1.Items.Insert(0, FormatDateTime('[hh:mm] ', t)+AContext.Connection.Socket.Binding.PeerIP+' connected');
  ListBox1.ItemIndex:=0;
  connected:=true;
  usr:=AContext.Connection;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if connected then
  begin
    usr.IoHandler.Write(PCM_NeedDC);
  end
  else
  begin
    ShowMessage('Not Connected');
  end;
end;

А вот frmScreen:

var
  Form3: TForm3;
  bmp: TBitmap;

implementation

{$R *.dfm}

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Hide;
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
  bmp:=TBitmap.Create;
end;

procedure TForm3.FormPaint(Sender: TObject);
begin
  Canvas.CopyRect(Canvas.ClipRect, bmp.Canvas, bmp.Canvas.ClipRect);
end;

procedure TForm3.FormResize(Sender: TObject);
begin
  Self.Canvas.CopyRect(Canvas.ClipRect, bmp.Canvas, bmp.Canvas.ClipRect);
end;

В кратце: первой части я получаю поток, из него гружу картинку в frmScreen. Если много раз потыкать на Button, то память будет увеличиваеться и увеличиваться.

У нас принято пользоваться кнопочкой "Правка", дабы не плодить посты подряд, друг за другом.
Читаем правила. Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Уважайте форумчан, и они ответят вам взаимностью...
Модератор

Mihali4, я специально выложил код программы во втором посте, т.к. первый не редактируется. А кнопочкой правка я всегда пользуюсь.

[Marsel737]

А ты освобождай каждый раз память

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;

[TwiX]

Ммм... А это нормально?
Эту процедуру пихнуть в таймер или куда? Ведь мне нужно, что бы bmp в frmScreen не освобождалось.

[Marsel737]

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

Если много раз потыкать на Button, то память будет увеличиваеться и увеличиваться.

procedure TForm1.Button1Click(Sender: TObject);
begin
 if connected then
  begin
    usr.IoHandler.Write(PCM_NeedDC);
    TrimWorkingSet;
  end
  else
  begin
    ShowMessage('Not Connected');
  end;
end;

procedure TForm1.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;

[TwiX]

Хехе) Работает)
Спасибо)
А всё-таки, куда может утекать память?

Добавлено:
А что фактически делает эта функция? Если у меня была допусим bmp: TBitMap, то после функции с ней станет по сути bmp.free?

[Marsel737]

Эта функция освобождает неиспользуюмую память, кстати очень полезная функция, как именно работает не знаю

[JTG]

Вызов функции с такими параметрами просто-напросто сбросит данные в своп, аналогично вызову EmptyWorkingSet. Такие гадости имеет смысл делать только если ожидается простой приложения или работа в фоновом режиме, в остальных случаях вмешиваться в работу менеджера памяти не желательно - можно сильно угробить производительность