There are no child processes to wait for. (0x80) - exit code 128 (0x80)

Сейчас на форуме: zds (+6 невидимых)

Посл.ответ	Сообщение
SecurAdmin Ранг: 95.2 (постоянный) Активность: 0.04↘0 Статус: Участник	Создано: 08 сентября 2012 22:11 · Личное сообщение · #1 Люди, есть проблема, решить которую не могу уже на протяжении года. Суть следующая: Есть сервис, работающий на W2K3 сервере х32. Сервис многопоточный. Каждый поток создаваясь, запускает кучу приложений через CreateProcessA, многие из которых консольные. Читал, что в случае преждевременного завершения таких приложений происходит истощение кучи рабочего стола, которое в свою очередь как раз и приводит к ошибкам такого характера. Но вот ответа на вопрос как избежать этой ситуации я не нашел. Может есть у кого какие мысли по этому поводу. Буду очень признателен. ----- бессмысленные манипуляции не становятся более разумными если их повторять

ELF_7719116 Ранг: 419.0 (мудрец), 647thx Активность: 0.46↗0.51 Статус: Участник "Тибериумный реверсинг"	Создано: 09 сентября 2012 09:50 · Личное сообщение · #2 Увеличить размеры кучи: HKLM\System\CurrentControlSet\Control\Session Manager\SubSystems ключ SharedSection (http://support.microsoft.com/kb/126962) Service Pack 2 установлен ?
F_a_u_s_t Ранг: 0.0 (гость) Активность: 0.25↘0 Статус: Участник	Создано: 09 сентября 2012 14:25 · Личное сообщение · #3 SecurAdmin Покажи код создания процессов и закрытия хендлов, скорее всего он у тебя "течет".
SecurAdmin Ранг: 95.2 (постоянный) Активность: 0.04↘0 Статус: Участник	Создано: 10 сентября 2012 08:26 · Поправил: SecurAdmin · Личное сообщение · #4 Код вот: Code: function StartCmdFile(ACurrentDir: String; ACMDLine: String; ATitle: String; ATerminateEventHandle: THandle; aTimeout: Cardinal = INFINITE; aAsync: boolean = false): LongWord; var lCmdLine: String; lStartupInfo: TStartupInfo; lProcessInfo: TProcessInformation; lExitCode: LongWord; lHandleArr: TWOHandleArray; lWaitResult: Cardinal; SA: TSecurityAttributes; begin Result:= 1; SA.nLength := SizeOf(SA); SA.lpSecurityDescriptor := nil; SA.bInheritHandle := True; if aTimeout = 0 then // будем считать нулевой таймаут отсутсвим таймаута aTimeout:= INFINITE; lCmdLine:= Trim(ACMDLine); if lCmdLine = '' then begin Result:= 87; // The parameter is incorrect. Exit; end; // Подготовительные операции lExitCode := 0; FillChar(lStartupInfo, Sizeof(TStartupInfo), #0); with lStartupInfo do begin cb := SizeOf(TStartupInfo); lpTitle := PChar(ATitle); end; // Создаем процесс if not CreateProcess(nil, PChar(lCmdLine), @SA, @SA, TRUE, //<b>собственно, вот тут и начинаются ошибки...</b> {CREATE_SUSPENDED and} NORMAL_PRIORITY_CLASS, nil, PChar(ACurrentDir), lStartupInfo, lProcessInfo) then begin Result:= GetLastError; <b>вот здесь вылезает код ошибки 128</b> Exit; end else begin if aAsync then Result:= 0 //предположительно тут и есть утечка...хэндлы не закрываются... else begin lHandleArr[0] := ATerminateEventHandle; lHandleArr[1] := lProcessInfo.hProcess; try lWaitResult:= WaitForMultipleObjects(2, @lHandleArr, False, aTimeout); if lWaitResult = 0 then begin TerminateProcess(lProcessInfo.hProcess, WAIT_TIMEOUT); lWaitResult:= WaitForSingleObject(lProcessInfo.hProcess, aTimeout); end; if lWaitResult = WAIT_TIMEOUT then begin TerminateProcess(lProcessInfo.hProcess, WAIT_TIMEOUT); Result:= WAIT_TIMEOUT; exit; end; GetExitCodeProcess(lProcessInfo.hProcess, lExitCode); Result := lExitCode; finally CloseHandle(lProcessInfo.hThread); CloseHandle(lProcessInfo.hProcess); end; end; end; end; ----- бессмысленные манипуляции не становятся более разумными если их повторять
neomant Ранг: 164.6 (ветеран), 65thx Активность: 0.12↘0 Статус: Участник Волшебник	Создано: 10 сентября 2012 10:30 · Личное сообщение · #5 128 - Дочерние процессы, окончания которых требуется ожидать, отсутствуют. Суть ошибки в указанном месте не совсем мне ясна. Как я понимаю закрывать хэндл основного потока не обязательно, достаточно закрыть хэндл процесса. Для TerminateProcess хэндл должен обладать правами PROCESS_TERMINATE. Если aAsync, хэндл процесса вообще не закрывается. ----- Следуй за белым кроликом
SecurAdmin Ранг: 95.2 (постоянный) Активность: 0.04↘0 Статус: Участник	Создано: 10 сентября 2012 13:13 · Личное сообщение · #6 neomant Не спорю, просто я уже не знаю, на что думать. В каком случае и при каких обстоятельствах эта ошибка вообще возникает. Куда деваются дочки, завершение работы которых ожидает поток сервиса? Почему он теряет их? как избежать этой проблемы? Сейчас единственной полумерой считаю увеличение размера кучи рабочего стола. Но хочется решить эту проблему на корню! ----- бессмысленные манипуляции не становятся более разумными если их повторять
F_a_u_s_t Ранг: 0.0 (гость) Активность: 0.25↘0 Статус: Участник	Создано: 10 сентября 2012 14:34 · Поправил: F_a_u_s_t · Личное сообщение · #7 Code: begin if aAsync then // насколько я понял, флажек отвечает за ассинхронный вызов, а дальше что? Result:= 0 else begin lHandleArr[0] := ATerminateEventHandle; lHandleArr[1] := lProcessInfo.hProcess; try lWaitResult:= WaitForMultipleObjects(2, @lHandleArr, False, aTimeout); if lWaitResult = 0 then begin TerminateProcess(lProcessInfo.hProcess, WAIT_TIMEOUT); lWaitResult:= WaitForSingleObject(lProcessInfo.hProcess, aTimeout); end; if lWaitResult = WAIT_TIMEOUT then begin TerminateProcess(lProcessInfo.hProcess, WAIT_TIMEOUT); Result:= WAIT_TIMEOUT; exit; // тут что потом делаем? end; GetExitCodeProcess(lProcessInfo.hProcess, lExitCode); Result := lExitCode; finally CloseHandle(lProcessInfo.hThread); CloseHandle(lProcessInfo.hProcess); end; Почисти проект от "рабочего" кода и выложи, так проще будет.
tomac Ранг: 65.3 (постоянный), 10thx Активность: 0.02↘0 Статус: Участник	Создано: 12 сентября 2012 20:36 · Личное сообщение · #8 SecurAdmin Во-первых, не понял, что мешает закрыть хендлы в случае aAsync. Во-вторых, судя по описанию в инете ошибки 128, это не ошибка, а код завершения приложения, который должен выдавать GetExitCodeProcess(). Вы уверены, что 128 - это ответ GetLastError() после CreateProcess()?

Для печати