| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

system error. code 1447. [D7, WinXP]

ADMIN ©   (2004-07-12 19:12:00) 

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

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

---

Семен Сорокин   (2004-07-12 20:02:00) [1]

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

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

---

Chop Suey   (2004-07-12 19:45:00) [2]


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;



---

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

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

---

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

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

---

SammIk   (2004-07-12 19:23:00) [5]

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

---

Семен Сорокин   (2004-07-12 19:13:00) [6]

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

---

Наверх