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

[SkOle]

Народ, всем ку!

Помоги решить проблему с утечкой памяти, а именно:

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

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 + '"' + FileList.Strings[j] + '"')),
   nil, nil, False, CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS,
   nil, nil, StartupInfo, ProcessInfo);
while WaitForSingleObject(ProcessInfo.hProcess, 100) = WAIT_TIMEOUT do
   Application.ProcessMessages;

GetExitCodeProcess(ProcessInfo.hProcess, ResultCode);
CloseHandle(ProcessInfo.hProcess);
CloseHandle(ProcessInfo.hThread);

Все работает без проблем, НО! после обработки файла память, выделяемая на CreateProcess не очищается, ReportMemoryLeaks утечек не видит, а вот поганый диспетчер кажет все грешки

Плюс такая же беда и с:

idSMTP := TIdSMTP.Create(nil);
idSMTP.Host := MailHostOut;
idSMTP.Port := MailPortOut;
idSMTP.Username := MailUser;
idSMTP.Password := MailPassword;
idSMTP.Connect;

idMessage := TIdMessage.Create(nil);
idMessage.CharSet := 'windows-1251';
idMessage.From.Address := MailUser;
idMessage.Recipients.EMailAddresses := MailRecipient;
idMessage.Subject := MailSubject;
idMessage.Body := ParseStr(MailBody, '#13');

idAttachment := TIdAttachmentFile.Create(idMessage.MessageParts,
   DirectoryTemp + ExtractFileName(FileList.Strings[i]));

if idSMTP.Connected then
   begin
      idSMTP.Send(idMessage);
      Application.ProcessMessages;
      idSMTP.Disconnect;
   end;

FreeAndNil(idAttachment);
idMessage.Free;
idSMTP.Free;

После отправки письма память не вычищается...
Ладно если бы задача была разовая, за день через нее проходит около 500 файлов. ПРОШУ ПОМОЩИ, проект уже горит

[beegl]

с чего ты взял, что там есть утечка?

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

с того, что без try finally код в конце может не выполниться вообще, по причине ошибок в соединении/передачи и т.д и т.п.

[beegl]

тем более, когда код написан страшным образом
книжку по рефакторингу почитай, про дельфевскую кучу, фрагментацию кучу и кэширование

[SkOle]

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

тем более, когда код написан страшным образом
книжку по рефакторингу почитай, про дельфевскую кучу, фрагментацию кучу и кэширование

При чем тут это?! если утечка идет при работе с динамическими компонентами (что касается Indy) и CreateProcess? утечка в первом случае идет имеено после вызова стороннего приложения, а во втором случае при отправке письма... причем тут кучи и пр?
P.S. код написан страшным образом? смешно, значит у нас половина программеров пишут "страшные коды".

[Stilet]

Я вот чего не могу понять:

память, выделяемая на CreateProces

Какая память то? Эта функция создает отдельный процесс. Получается что он не закрывается нормально что ли?

поганый диспетчер кажет все грешки

Так ведь диспетчер то еще не показатель "чистоты спирта".
Еще такой момент:

while WaitForSingleObject(ProcessInfo.hPr ocess, 100) = WAIT_TIMEOUT do
Application.ProcessMessages;

Т.е. запуски идут прямо в главном потоке?
Тогда стесняюсь спросить, почему не в сопроцессе это делать?

[SkOle]

>> Я вот чего не могу понять:
>> Цитата:
>> память, выделяемая на CreateProces
>> Какая память то? Эта функция создает отдельный процесс. Получается что он не закрывается нормально что ли?

Оперативка не освобождается, моя программа вызывает другую, ждет завершения ее работы и идет дальше, при это оперативка не очищается после вызова сторонней программы, а поскольку работа идет в цикле с большим количеством файлов, то происходит переполнение

>> Еще такой момент:
>> Цитата:
>> while WaitForSingleObject(ProcessInfo.hPr ocess, 100) = WAIT_TIMEOUT do
>> Application.ProcessMessages;
>> Т.е. запуски идут прямо в главном потоке? Тогда стесняюсь спросить, почему не в сопроцессе это делать?

Да, запуск идет в основном потоке, я думал в сторону создания отдельного потока, но я не умею с ними работать, я сисадмин, и пишу софт редко

[Stilet]

я сисадмин, и пишу софт редко

Так стоп! Тогда самый главный вопрос: Тебе это зачем нужно? Откуда у задачи ноги растут и какие цели преследуются? Не исключаю что и без программирования особого возможно ее решить.

моя программа вызывает другую

Так вот скорее всего она и не убирается за собой.

[SkOle]

>> Так стоп! Тогда самый главный вопрос: Тебе это зачем нужно? Откуда у задачи
>> ноги растут и какие цели преследуются? Не исключаю что и без
>> программирования особого возможно ее решить.

Смысл задачи в автоматизации криптования файлов через File-PRO, без программирования никак, там надо отловить окно запроса пароля на сертификат, передать ему пасс и тыкнуть кнопку "ок", потом зашифрованный файл отправить на указанный адрес почтовый + принимать почту с указанного адреса, если есть вложение с шифрованым файлом, то его надо распаковать (обратно таки через отлов окон) и далее по правилам раскладывать в определенные места

>> Так вот скорее всего она и не убирается за собой.
я смотрел через ProcessExplorer, File-PRO рождается как дочерний процесс от моей программы, после выполенения прибивается, но при этом объем памяти после окончания работы File-PRO не уменьшается

P.S. все работает как надо, но при работе с File-PRO и почтой жрется оператива

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

CloseHandle(ProcessInfo.hProcess);
CloseHandle(ProcessInfo.hThread);

Наоборот надо.