Проблемы с утечкой памяти (CreateProcess и INDY)

[SkOle]

>> Наоборот надо.
не дало результатов, тоже самое

[Stilet]

ИМХО без прохода отладчиком не разобраться. Я криминала в представленном коде не вижу.

[eoln]

Значит наоборот не надо Там всё нормально.
А сколько утекает и как быстро?
ИМХО, это особенности системы, она так организует работу с памятью. Вот если окно свернуть, то диспетчер покажет увеличение свободной памяти, а если восстановить, то наоборот. Но это вовсе не значит, что при сворачивании окно уничтожается. Просто система оптимизирует свою память. А при многократных запусках сторонней программы система это не делает (и правильно что не делает), а вот как только эта оптимизация понадобится, то диспетчер покажет нам, что память "освободилась".
Так что соглашусь со Стилетом, что диспетчер не доказательство (если конечно рост памяти не идёт постоянно). Прогнал этот алгоритм по 1000 раз. В итоге никаких отклонений не наблюдалось.

[SkOle]

Алгоритм создания процесса действительно был почти без косяков... утечку давало StringToOleStr для перевода в PWideChar... + изменение места включения таймера

if FindFiles(DirectoryTemp, FileMaskList.Strings[FileMaskCount],
      FileList) then
      try
        for FileCount := 0 to FileList.Count - 1 do
        begin
          FileName := ExtractFileName(FileList.Strings[FileCount]);

          ZeroMemory(@StartupInfo, SizeOf(StartupInfo));
          ZeroMemory(@ProcessInfo, SizeOf(ProcessInfo));

          StartupInfo.cb := SizeOf(StartupInfo);
          StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
          StartupInfo.wShowWindow := SW_HIDE;

          CreateProcess(PChar(String(CryptorPath)),
            PChar(String(' ' + CryptorParam + ' ' +
            CryptorParamIn + '"' + DirectoryTemp + FileName + '"')),
            nil, nil, False, CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS,
            nil, nil, StartupInfo, ProcessInfo);

          while WaitForSingleObject(ProcessInfo.hProcess, 100) = WAIT_TIMEOUT do
          begin
            Application.ProcessMessages;
            TimerHook.Enabled := True;
          end;

          GetExitCodeProcess(ProcessInfo.hProcess, ResultCode);
          CloseHandle(ProcessInfo.hProcess);
          CloseHandle(ProcessInfo.hThread);
      finally
        FileName := '';
        FileList.Clear;
      end;

function FindFiles(Directory, FileName: string; FileList: TStringList): Boolean;
var
  SearchRec: TSearchRec;
  SearchCount: Integer;
begin
  Result := False;
  Directory := IncludeTrailingBackslash(Directory);
  SearchCount := FindFirst(Directory + '*.*', faAnyFile, SearchRec);
  FileList.Clear;
  try
    while SearchCount = 0 do
      begin
        if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
          if MatchesMask(SearchRec.Name, FileName) then
            FileList.Add(Directory + SearchRec.Name);
        SearchCount := FindNext(SearchRec);
      end;
  finally
    FindClose(SearchRec);
    if FileList.Count > 0 then
      Result := True;
  end;
end;

procedure TFormMain.TimerHookTimer(Sender: TObject);
var
  hWind: THandle;
  hEdit: THandle;
  hButton: THandle;
begin
  hWind := FindWindow(nil, 'Пароль для расшифрования ключа');
  if hWind <> 0 then
    try
      TimerHook.Enabled := False;
      hEdit := FindWindowEx(hWind, 0, nil, '');
      if hEdit <> 0 then
        begin
          SendMessage(hEdit, WM_SETTEXT, 0, LParam(CryptorPassword));
          CloseHandle(hEdit);
        end;
      hButton := FindWindowEx(hWind, 0, nil, 'OK');
      if hButton <> 0 then
        begin
          SendMessage(hButton, BM_CLICK, 0, 0);
          CloseHandle(hButton);
        end;
    finally
      CloseHandle(hWind);
    end;
end;

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

P.S. сорри за стиль, я сисадмин, а не программер

[Человек_Борща]

Значит наоборот не надо Там всё нормально.

Нет, не нормально.
Сначало закрывается hThread потом hProcess. Почитайте о том, что такое процесс и как работает CreateProcess изнутри.
Утечка возникает на уровне ядра.
Подключите EurekaLog или MadExcept, создайте поток TThread и не уничтожая его, закройте программу. Сразу получите ругательство в сторону утери памяти занятой под поток.

И эти handle'ы должны быть 100% закрыты. ТС поместите их закрытие в Finally.

[SkOle]

>> И эти handle'ы должны быть 100% закрыты. ТС поместите их закрытие в Finally.
Спсб, исправил...

А вот что делать с погаными Indy?

[Человек_Борща]

Научится пользоваться. Если что-то работает не так как вам надо - это вовсе не значит что оно неисправно, может вы просто не умеете пользоваться?

Пакет компонент хороший и мощный, очень мощный. Однако тяжеловесный. Там нет ошибок памяти, по крайней мере в тех компонентах, которыми я пользовался(HTTP, TCP, FTP). Там нету рутинной работы.

Попробуйте Synapse или Overbyte ICS.

[SkOle]

>> Попробуйте Synapse или Overbyte ICS.
Смотрел их, Synapse тоже покушивает память при smtpsend.SendToRaw, а причем код был взят один в один с примера...

Если бы разовая была операция, то фиг с ним с памятью, у меня задача стоит на ежедневную обработку 500-700 файлов...

[Человек_Борща]

Использовал INDY и Synapse для массовой рассылки писем. 500 писем, для теста, не создавали проблем. Ошибки скорее всего вы создаете, а не не средства которые вы используете. Смотрите инструкцию, следите за типами данных, особенно преобразованием и хранением строк.

[eoln]

Сообщение от Человек_Борща

Нет, не нормально.

Майкрософты плохого не посоветуют: http://msdn.microsoft.com/ru-ru/libr...(v=vs.85).aspx
В случаем запусков потоков из потоков можно закрыть хэндл потока, а потом хэндл процесс для экономии памяти. А тут разницы нет, т.к. поток уже отработал и ничего более за собой не тащит.