[lestatgi]

возникла проблема, мне необходимо что бы timer1 выполнялся каждые 10 секунд interval=10000 и в on timer было следующее

Код:

ShellExecute(Handle, nil, 'cmd.exe', '/c '+ 'net session >c:\1.txt', nil, SW_HIDE);
sleep(1000);
  ls:=TStringList.Create;
  ls.LoadFromFile('c:\1.txt');
  d:=DosToWin(ls.Text);
  ls.Clear;
  ls.Add(d);
  ls.SaveToFile('c:\1.txt');
  ls.Free;

все работает но проблема в следующем программа весит в трее и постепенно кушает память если долго работает то система начинает сильно тормазить. как этого избежать?

[~TB~]

ls можно создать вне таймера для оптимизации, при запуске программы например onCreate, уничтожать по завершению, например на onClose или как там его. Но сама беда с памятью непонятна. Вроде как все чистенько. Возможно утечка где-то еще, например в DosToWin.

[R-18Rus]

Знаю, что такая проблема на делфи 7 есть. Вроде как и пишешь, что "что-то".free, а память не освобождается. А когда снова создаёшь, то память отнимается тоже вновь. Так и растёт.

[NumLock]

Сообщение от R-18Rus

Знаю

Выдумываешь. Дай минимальный проект воспроизводящий это?

[U.B.M.]

а если не секрет - почему после загрузки делается dostowin, а перед записью wintodos не делается?

ведь по сути, после второго открытия файла dostowin в исходном коде вроде бы не нужен.

либо излишнее в коде, либо недостаточно в плане перекодировки

[M.A.D.M.A.N.]

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

Выдумываешь. Дай минимальный проект воспроизводящий это?

Код:

type
  TFoo = class
  public
    procedure Free; reintroduce;
  end;

procedure TFoo.Free;
begin
  GetMem($100500);
end;

P.S. Подсветчик синтаксисане не подсветил ключевое слово "reintroduce", как-то не красиво.

[NumLock]

ну так опять-таки косяк разработчика, а не Delphi. подсветка это всего лишь сладкая французкая булочка к чаю)

[@Rafa3L]

Закинь сюда урезанный рабочий код - посмотрю, попытаюсь оптимизировать.

[lestatgi]

Код:

unit Unit1;

interface

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


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

var
  Form1: TForm1;
  ls:TStringList;
  d:string;
implementation

{$R *.dfm}
 function DosToWin(St: string): string;
var
  Ch: PChar;
begin
  Ch := StrAlloc(Length(St) + 1);
  OemToAnsi(PChar(St), Ch);
  Result := Ch;
  StrDispose(Ch)
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 ShellExecute(Handle, nil, 'cmd.exe', '/c '+ 'net session >c:\1.txt', nil, SW_HIDE);
 sleep(1000);
 ls:=TStringList.Create;
 ls.LoadFromFile('c:\1.txt');
 d:=DosToWin(ls.Text);
 ls.Clear;
 ls.Add(d);
 ls.SaveToFile('c:\1.txt');
 ls.Free;


end;

end.

[NumLock]

используй CreateProcess вместо ShellExecute:

Код:

var
  startupinfo: TStartupInfo;
  processinformation: TProcessInformation;
  ls: TStringList;
begin
  ZeroMemory(@processinformation, SizeOf(TProcessInformation));
  ZeroMemory(@startupinfo, SizeOf(TStartupInfo));
  startupinfo.cb:=SizeOf(TStartupInfo);
  startupinfo.dwFlags:=STARTF_USESHOWWINDOW;
  startupinfo.wShowWindow:=SW_HIDE;
  CreateProcess(nil, 'cmd.exe /c net session >c:\1.txt', nil, nil, False, 0, nil, nil, startupinfo, processinformation);
  WaitForSingleObject(processinformation.hProcess, INFINITE);
  CloseHandle(processinformation.hThread);
  CloseHandle(processinformation.hProcess);
  ls:=TStringList.Create;
  try
    ls.LoadFromFile('c:\1.txt');
    ls.Text:=DosToWin(ls.Text);
    ls.SaveToFile('c:\1.txt');
  finally
    ls.Free;
  end;
end;

ShellExecute вызывает утечку.

[R-18Rus]

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

Выдумываешь. Дай минимальный проект воспроизводящий это?

Вот держи.

[M.A.D.M.A.N.]

Желательно так делать

Код:

function DosToWin(St: string): string;
var
  Ch: PChar;
begin
  Ch := StrAlloc(Length(St) + 1);
  try
    OemToAnsi(PChar(St), Ch);
    Result := Ch;
  finally
    StrDispose(Ch)
  end;
end;

З.Ы. вот это скорость, пока писал 2 поста влепили

[NumLock]

При открытии этой формы съедается немного памяти. При закрытии память не освобождается. При повторном открытии память съедается повторно. Проверено на Windows XP SP3. На Windows XP SP2 x64 ведёт себя по-разному, не предсказуемо.

ничего подобного с Delphi 7 Windows XP SP3 нет! для еще большей наглядности на 2-ую форму добавил bmp 1280*1024*24b. при вызове ее память процесса увеличивается на 4Мб. при закрытии освобождается на эти же 4Мб. видео лень снимать)

[lestatgi]

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

используй CreateProcess вместо ShellExecute:

Код:

var
  startupinfo: TStartupInfo;
  processinformation: TProcessInformation;
  ls: TStringList;
begin
  ZeroMemory(@processinformation, SizeOf(TProcessInformation));
  ZeroMemory(@startupinfo, SizeOf(TStartupInfo));
  startupinfo.cb:=SizeOf(TStartupInfo);
  startupinfo.dwFlags:=STARTF_USESHOWWINDOW;
  startupinfo.wShowWindow:=SW_HIDE;
  CreateProcess(nil, 'cmd.exe /c net session >c:\1.txt', nil, nil, False, 0, nil, nil, startupinfo, processinformation);
  WaitForSingleObject(processinformation.hProcess, INFINITE);
  CloseHandle(processinformation.hThread);
  CloseHandle(processinformation.hProcess);
  ls:=TStringList.Create;
  try
    ls.LoadFromFile('c:\1.txt');
    ls.Text:=DosToWin(ls.Text);
    ls.SaveToFile('c:\1.txt');
  finally
    ls.Free;
  end;
end;

ShellExecute вызывает утечку.

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

[Aristarh Dark]

Сообщение от R-18Rus

Вот держи.

Проверил на Win7 x64 (компилятор от XE) - безконтрольного увеличения памяти не увидел.

Однако так писать нельзя, ИМХО.

Зачем создавать форму если она у тебя в Auto-create?
Что по сути происходит в данном проекте:
- есть переменная form2, она "связана" с автоматически созданной формой (форма создана при старте проекта).
- по нажатию кнопки ты создаешь новую форму и "связываешь" ее с переменной form2 (под это выделяется память, видим прирост памяти в диспетчере задач), получается что на экземпляр второй формы который был создан при старте приложения уже не указывает никакая переменная - это называется утечка памяти, но в данном случае проблема не в delphi, а в криворукости программиста.
- затем ты делаешь free для второй формы, переменная form2 уже никуда не указывает, память помечается как свободная (но не отдается обратно системе, это не бага это фича), и при повторном нажатии на кнопку форма заново создается, память выделяется (т.к. есть свободная то у системы больше не просим, и в дипетчере задач изменения объема памяти не наблюдается).

Вот так-то.