Главная страница
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.016 c
1-3464
Life
2002-08-19 12:38
2002.09.02
код символа


4-3672
skiph
2002-07-02 11:40
2002.09.02
DLL


4-3691
Arthur Gexon
2002-05-12 13:51
2002.09.02
Отлов запуска Win-приложений


1-3506
PSA
2002-08-21 13:56
2002.09.02
Редактирование тектового файла.


1-3439
CCCatch
2002-08-20 15:44
2002.09.02
Деление чисел с точкой????