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;

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

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