system error. code 1447.

← →
ADMIN (2004-07-12 19:12) [0]

У меня такая задача: программа долго работает, обрабатывает по очереди большие файлы, многопоточно. Когда завершает текущий файл обрабатывать, посылает сообщение, что нужно обрабатывать следующий и начинает работу заново, но уже со следующим файлом. Но вот в этот момент возникает такая ошибка:
system error. code 1447.
the window does not have scroll bars.

Вот такой прикол. Что бы это могло обозначать?

← →
Семен Сорокин © (2004-07-12 19:13) [1]

наверное ошибка в программе

← →
SammIk © (2004-07-12 19:23) [2]

Стремная ошибка)))
Перепроверь все исходники, проверь особенно чательно
правильно ли ты закрываешь хендлы. Может ты их вообще не
закрываешь, или их не надо закрывать.
А может планеты не так сходятся, тоже говорят влияет))

← →
Chop Suey (2004-07-12 19:35) [3]

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

← →
ASMiD (2004-07-12 19:35) [4]

"В этот момент" - понятие растяжимое. Может получается повторный вызов процедуры обработки большого файла?

← →
Chop Suey (2004-07-12 19:45) [5]

procedure TMainForm.TerminateThread(sender:TObject); begin FThreads[(sender as TSenderThread).Number] := nil; DEC(FActiveThreads); StatusBar.Panels[1].Text := "Threads: "+ inttostr(FActiveThreads); if FActiveThreads = 0 then begin socksupdater_t.Enabled := false; SetLength(FThreads, 0); if Flogtofile then CloseTextFiles; StatusBar.Panels[0].Text := "Mailing is finished!"; ChangeTitle(STR_READY); start_b.Enabled := true; stop_b.Enabled := false; currentmaillist_l.Caption := ""; sysutils.Beep; if emails_lv.Items.Count > 0 then begin StatusBar.Panels[0].Text := "Initializing new mailing ..."; SendMessage(MainForm.Handle, WM_NEEDTOSTARTMAILING, 0, 0); end else processedemails_lb.Items.Add(FFilename); end; end; procedure TMainForm.MessageNeedToStartMailing(var Msg: TMessage); begin processedemails_lb.Items.Add(FFilename); StatusBar.Panels[0].Text := "Aborted by user"; if FAbort then exit; StatusBar.Panels[0].Text := "Starting mailing ""+FFilename+"""; // !!!!!!!!!!!! ВОТ ПОСЛЕ ЭТОГО ПРОГА ОСТАНАВЛИВАЕТСЯ И ВЫВАЛИВАЕТСЯ ВЫШЕНАЗВАННЫЙ МЕССАДЖБОКС !!!!! sleep(1000); StartMailingProcess; end;

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

доступ к файлам имеется?

system error. code 1447. Найти похожие ветки