Текущий архив: 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.013 c
