Приостановка потока

[bulldog5293]

Как правИльней приостановить поток, перед отправкОй постом данНых, то есть поток сначала заходит на сайт, ищет капчу, получает, выводит на другую форму и приостанавливается до нажатия кнопок ok или cancel

procedure TMyThread.Execute;
HTTP_1.get('айт + 'login.php?r=',s);
If pos('image.php?', s.datastring)>0 then
begin
synchronyze(capcha)
end
else
inf.Add('username=' +Login);
inf.Add('password=' + Password);
HTTP_1.Post(сайт +'login.php',inf,s);
inf.Free;
end;

procedure.capcha;
 var
 inf:TStringList;
img: TMemoryStream;
png: TPNGObject;
begin 
   inf:=tstringlist.create;
 img:=TMemoryStream.Create;
 HTTP_1.get(сайт + 'image.php?',img);
 img.Position:=0;
 png:= TPNGObject.Create;
 png.LoadFromStream(img);
 Form2.Image1.Picture.Assign(png);
png.Free;
img.Free;
Form2.Edit1.Text:= '';
Form2.show;
try
inf.Add('username=' +Login);
inf.Add('password=' +Pass);
inf.Add('code=' + Form9.Edit1.Text);
finally
inf.Free;
end;

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

глобальная переменная например.

[bulldog5293]

пробывал так

var
  Form2: TForm2;
  Pay:BOT;//так как при вызове потока Pay:=BOT.Create(True);

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
BOT.Resume;
end;

procedure BUX.capcha;
 var
 inf:TStringList;
img: TMemoryStream;
png: TPNGObject;
begin
   inf:=tstringlist.create;
   img:=TMemoryStream.Create;
 HTTP_BUX.get('http://' + Url_Pay +'image.php?',img);
 img.Position:=0;
 png:= TPNGObject.Create;
 png.LoadFromStream(img);
 Form2.Image1.Picture.Assign(png);
png.Free;
img.Free;
Form2.Edit1.Text:= '';
Form2.show;
try
Suspended:=true;
inf.Add('username=' +Login);
inf.Add('password=' +Pass);
inf.Add('code=' + Form9.Edit1.Text);
finally
inf.Free;
end;
end;

Ну всё таки как правельно вызвать приостановку потока в нутри него и продолжить выполнение при клики кнопки на форме?

[YYYYY]

Кинь на форму кнопку "ПАУЗА" . В обработчик ON_CLICK запиши Bot.suspend (или Bot.suspended:=true) и приостанавливай поток, как программно из потока, так и по-нажатию.

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

для интернета(IO короче) не советую так делать.

[OUTLAW2009]

Глобальная переменная Pause: Boolean;
общая для всех потоков
а в классе потока такой метод:

procedure DoPause;
begin
  while Pause do Sleep(1000);
end;

и вызываешь ее где тебе надо чекать на паузу
либо же, если версия дельфи позволяет в классовое (статик) поле потока, чтобы было по ООП-фэншую

[YYYYY]

Мне кажется, что проверять переменную каждую секунду - как минимум не рационально. Суть в чём?- выполнить из потока какую-либо процедуру главного или другого модуля. А в этой процедуре сразу приостановить поток. И будет он стоять, как вкопаный (и при работе с интернетом тоже - проверено). Впрочем выбирайте способ приостановки Сами.

[bulldog5293]

Вопрос решил так

Form2.show;
try
 while Suspended do
   Resume;
 Suspend;

НО теперь не знаю как при нажатие кнопки его продолжить
Пробывал, так

procedure TForm2.Button1Click(Sender: TObject);
begin
Pay.Resume;
//  suspended:=false
 //Resume;
end;

Но не хочет

[YYYYY]

Если перевести Ваш код на русский язык, то получится:
"пока приостановлен - делать
Продолжить;
Приостановить;
Смысл?
А как продолжить, так у Вас описано : Resume;(это из потока)
или Pay.Suspended:= false; (по нажатию кнопки, но не из потока).
И ещё можно использовать TThread.CurrentThread.Suspended:=tr ue(false);
где CurrentThread - выполняемый сейчас поток.
Воспользуйтесь отладкой (клавиша F7).
Ну и (на всяк случай) поток возобновить можно только из-вне.

[bulldog5293]

пока приостановлен - делать
Продолжить;
Приостановить;
Смысл?

while Suspended do
   Resume;
 Suspend; //если убрать то он не ждёт реагирования на кнопку в форме, т.к. туда попадает капчпа с формы 2

а про

 TThread.CurrentThread.Suspended:=true(false);

нечего не нашёл

Нашёл

  If not (BOT = nil) then Suspended:=not Form2.Button1.Resume;

но ошибка на Resume падает