Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.041 c
14-1087572498
Nic
2004-06-18 19:28
2004.07.25
Демографическая катастрафа в России :(


4-1087122497
zeratul_rp
2004-06-13 14:28
2004.07.25
plugin winamp


6-1085245111
Игорь Н.
2004-05-22 20:58
2004.07.25
Как обратится к web странице не используя Internet Explorer


14-1089123566
sniknik
2004-07-06 18:19
2004.07.25
Диалог у монитора


1-1089785687
hgd
2004-07-14 10:14
2004.07.25
Как управлять программой голосом?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский