Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.09.02;
Скачать: CL | DM;

Вниз

TMemoryStream   Найти похожие ветки 

 
кондратий   (2002-08-21 10:56) [0]

проблема у меня такая ...

создаётса мемористрим
открываетса файлы и обрабатываютса

как правильно убить програму во время его выполнения ?

вот от такой конструкций умирает вся програма ...

procedure TPluginForm.bCloseClick(Sender: TObject);
begin
if (TargetStream <> nil) and (MessageDlg("Do you want cancel this job?",mtInformation,[mbYes,mbNo],0)=mrYes) then
begin
try CloseFile(FM) except end;
try CloseFile(FT) except end;
TargetStream.Free;
EtalonStream.Free;
end;
Close
end;

что делать ???
как лечить ???


 
Erik Ivanov   (2002-08-21 12:59) [1]

Проверять во время выполнения флаг если он установлен, то выход. Или вобще в тредах все делать.


 
кондратий   (2002-08-21 13:34) [2]

мне это проверять во всём проекте ... а это мучения ...
изначяльно не предусматривалось ...
а в тредах как ???
пробывал я что-то такого ...

TMyThread = class (TThread)
procedure Execute; abstract; virtual;

....

begin
DoAllJob;
end;

a вызывал я это так ...

T := TMyThread.Create(false);
T.FreeOnTerminate := true;
T.Resume;

а остонавливал я это дело

T.Terminate;

и полюбому вся эта конструкция глючила ...



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

Текущий архив: 2002.09.02;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.022 c
3-3234
Ренат
2002-08-08 09:28
2002.09.02
Ошибки при открытии таблиц


14-3596
Sergo
2002-08-07 10:48
2002.09.02
Окно


14-3573
Posny
2002-08-06 08:32
2002.09.02
RXLib275 D6


1-3511
zamiran
2002-08-21 14:34
2002.09.02
Подскажите пожалуйста


4-3664
prasaleff
2002-07-01 13:25
2002.09.02
Не всегда удается запустить другую программу через ShellExecute