Форум: "Основная";
Текущий архив: 2004.07.25;
Скачать: [xml.tar.bz2];

Вниз

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;



---

← →
Семен Сорокин ©   (2004-07-12 20:02) [6]

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

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.07.25;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.074 c