Остановление работы программы.

[extrimportal]

Когда я запускаю программу она долго выполняет свою работу так как работает с интернетом, как пользователь может её остановить, например надо в какое то время перейти на другую форму а выполнение на этой остановить. Или как в какое то время нажать на кнопку и она остановит работу проги?

[JamS007]

исходник... и желательно краткое описание.. самой проги

тоесть как:
1. Если там какой то цикл (если долго работает) то можно перед самим запуском поставить проверку на булеву переменную, и ее же изменять когда можно работать, а когда нет.
Примечание: не прерывай работу тела цикла, это может плохо кончится.

2. Если там одна цельная процедура такая долгая, то можно в саму процедуру натыкать проверок на туже переменную, и если надо прерывать, то прерываем.

Пример:

     for (true) do
     begin
      if CanWork = true then
      begin
       // операторы
      end else begin
        exit;
        end;
     end;

[BOBAH13]

Для начала

for (true) do

- это бред, это вам не Си/Си++.

например надо в какое то время перейти на другую форму а выполнение на этой остановить

- эмм, интересно. А с откуда такая очень интересная информация, что формы работают в разных потоках ?

[extrimportal]

Ну вот пример:

/ provirka najavnosti loginiv
//****************************
AssignFile(l, 'c:\WINDOWS....');
{$I-}
Append(l);
if IOResult<>0 then
 begin
  {$I-}
   Rewrite(l);

   ShowMessage('Заполните поля в настройках');

   form5.Show;// вот здесь нужно остановить работу остального кода  и работать с form5

  {$I+}
 end;
  Reset(l);
  memo2.lines.loadfromfile('c:\WINDOWS....');
closefile(l);

//начало работы
params:=TStringList.Create;
responseres:=TStringList.Create;
try
 params.Add('username='+memo2.lines[0]);
 params.Add('password='+memo2.lines[1]);

[JamS007]

Сообщение от extrimportal

AssignFile(l, 'c:\WINDOWS....');
{$I-}
Append(l);
if IOResult<>0 then
begin
{$I-}
Rewrite(l);

ShowMessage('Заполните поля в настройках');

form5.Show;// вот здесь нужно остановить работу остального кода и работать с form5

{$I+}
end;
Reset(l);
memo2.lines.loadfromfile('c:\WINDOW S....');
closefile(l);

//начало работы
params:=TStringList.Create;
responseres:=TStringList.Create;
try
params.Add('username='+memo2.lines[0]);
params.Add('password='+memo2.lines[1]);

можно на том месте где переход на другую форму поставить выход из процедуры ( Exit; ).
Пример:

AssignFile(l, 'c:\WINDOWS....');
{$I-}
Append(l);
if IOResult<>0 then
 begin
  {$I-}
   Rewrite(l);

   ShowMessage('Заполните поля в настройках');
   form5.Show;// вот здесь нужно остановить работу остального кода  и работать с form5
  
    // если я правильно понял, то прерывать надо здесь
   Exit;
   // после этого процедура прервется, но осторожно с параметрами и переменными :)

  {$I+}
 end;
  Reset(l);

BOBAH13 писал:
- эмм, интересно. А с откуда такая очень интересная информация, что формы работают в разных потоках ?

Потому что они таки в разных потоках работают... Если бы они были в одном, то изменение одного параметра влияло бы на все формы. Я вижу Вы на С++ наганяете, а сами таких простых вещей не знаете! Учите С++

[Пепел Феникса]

JamS007, BOBAH13, тут вы оба не правы, все зависит от того КАК появляются другие формы(модальный, НЕмодальный вызов)

а теперь по теме
стоит разбить твой код(который долгий)
на безопасные куски(то есть если прервать выполнение то ничего страшного не произойдет, или чтобы при прерывании сброс был к примеру)
и между ними всунуть проверки...

а вообще для таких целей потоки существуют

[extrimportal]

Господа если не будете драться даже не ссорьтесь
Да это сработало. Теперь хотелось бы знать можно ли остановить работу нажатием на кнопку....

[JamS007]

extrimportal

можно . но тут немного сложней...
Весь код следует разбить на участки, но делать это надо аккуратно, чтоб запутаться с переменными и параметрами. Скомпилируй, посмотри ничего ли не пропустил, убедись что код рабочий и правильный.
Потом, следует объявить глобальную переменную булевого типа (CanWork: boolean) (если не забыл еще, прогаю в плюсах ).
Ну а уже потом, можно между этапами кода выставить проверки типа:

// блок 1
if (CanWork = false) then exit
/// ... операторы

//блок 2
if (CanWork = false) then exit
/// ... операторы
и т. д.

А обработчике нажатия кнопки вписать CanWork = false;

[JTG]

Блин, да засунуть нужные действия в поток и Suspend/Resume/TerminateThread в любой момент.

[extrimportal]

Я простой юзер... Можно примерчик?