[vladxx]

Здравствуйте, ребята программа постепенно грузит память прошу помощи

PHP код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Log: TMemo;
    Button1: TButton;
    Button2: TButton;
    Client: TClientSocket;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure ClientError(Sender: TObject; Socket: TCustomWinSocket;
      ErrorEvent: TErrorEvent; var ErrorCode: Integer);
    procedure ClientRead(Sender: TObject; Socket: TCustomWinSocket);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

type
TByteArray = array of byte;

var
  Form1: TForm1;

implementation

{$R *.dfm}


function ByteArrayToHexString(const InArr: array of Byte): string;
var
   tmpStrList: TStringList;
   i: Integer;
begin
   tmpStrList := TStringList.Create;
   try
     for I := Low(InArr) to High(InArr) do
     begin
       tmpStrList.Append(IntToHex(InArr[i], 2));
     end;
     tmpStrList.Delimiter := ' ';
     Result := tmpStrList.DelimitedText;
   finally
     tmpStrList.Free;
   end;
end;

procedure ToLog(log: string);
begin
form1.log.Lines.Add(log);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Client.Active then begin
  Client.Active:=False;
  Exit;
  end;
  Client.Address:='162.220.11.11';
  Client.Port := 2106;
  Client.Active:=True;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Client.Active:=False;
end;


procedure TForm1.ClientError(Sender: TObject; Socket: TCustomWinSocket;
  ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
ErrorCode := 0;
Socket.Close;
end;

procedure TForm1.ClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
   len : integer;
   Buffer : TByteArray;
begin
   setLength(Buffer, Socket.ReceiveLength);
   len := Socket.ReceiveBuf(Buffer[0], Socket.ReceiveLength);
   ToLog('Ответ сервера: ' + ByteArrayToHexString(Buffer));
end;


end. 


[lmikle]

Ну, в принципе, должно потихоньку наедать память. Ты же в лог все пишешь, вот он и растет. Плюс еще есть некоторые особенности работы менеджера памяти, когда заместо переиспользования блока он может выделять новые блоки. Если удалит текст из Memo, потом программу свернуть и развернуть, то выделенная память должна уменьшиться. Попробуй.

[vladxx]

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

Ну, в принципе, должно потихоньку наедать память. Ты же в лог все пишешь, вот он и растет. Плюс еще есть некоторые особенности работы менеджера памяти, когда заместо переиспользования блока он может выделять новые блоки. Если удалит текст из Memo, потом программу свернуть и развернуть, то выделенная память должна уменьшиться. Попробуй.

Спасибо, да темпы нагрузки стали не такими но даже если убираю лог всё равно память уходит(

я думаю забирается пакетами вот в этом месте:

PHP код:

procedure TForm1.ClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
   len : integer;
   Buffer : TByteArray;
begin
   setLength(Buffer, Socket.ReceiveLength);
   len := Socket.ReceiveBuf(Buffer[0], Socket.ReceiveLength);
end; 


Вопрос как всё это дело почистить?)

[lmikle]

Кстати да, тут тоже может быть утечка.
Попробуй освобождать память принудительно. Т.е. перед выходом из обработчика сделай вот такой вызов:

Код:

setLength(Buffer, 0);

И еще, если Delphi из свежих версий, то там можно включить оповещение об утечках памяти при закрытии приложения.
Вставь либо в файл проекта (до создания application), либо в секцию initialization главного модуля вот такой вызов:

Код:

ReportMemoryLeaksOnShutdown := True;

[Admin]

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

PHP код:

procedure TForm1.ClientRead(Sender: TObject; Socket: TCustomWinSocket);
var... 


А зачем в форматирование PHP кода запихивать код Delphi?
Если для Delphi есть отдыльное форматирование под тегом CODE.