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

[YYYYY]

Я имел ввиду убрать while Suspended do Resume;. Какой СМЫСЛ в этой конструкции?
Прямо перед Suspend; делайте запрос капчи и вывод в Image:
Get(запрос капчи);
Ваш код вывода капчи в Image;
Suspend;
Post(отправка капчи на сервер);
Итог: капча в Image, поток на паузе.
Вводиnt капчу в TEdit;
Как только кликните на кнопку(в OnClick должно быть имя_потока.Resume, поток запустится и отправит Post-запрос с данными из TEdit.

[bulldog5293]

Сделал так

type
  BOT = class(TThread)
Url_Pay:String;
Login:String;
Password:String;
     private
HTTP_BOT:TIdHTTP;
IdCookieManager1_Pay: TIdCookieManager;
     { Private declarations }
  protected
constructor Create(CreateSuspended: Boolean; aUrl, aLog, aPass: String);
procedure Execute; override;
      procedure capcha;
  public
  end;

procedure BUX.Execute;
var
img: TMemoryStream;
png: TPNGObject;
s:TStringStream;
inf:TStringList;
  begin
  s:=TStringStream.Create;
 inf:=tstringlist.create;
  http_BUX:= TIdHTTP.Create;
  IdCookieManager1_Pay:= TIdCookieManager.Create;
begin
///
begin
HTTP_BOT.get('http://' + Url_Pay + 'login.php?r=',s);
If pos('image.php?', s.datastring)>0 then
begin
 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:= '';
try
inf.Add('username=' +Login);
inf.Add('password=' +Pass);
inf.Add('code=' + Form9.Edit1.Text);
finally
inf.Free;
Synchronize(capcha);
end
else
///
end;
end;
end;
  end;

procedure BOT.capcha;
begin
Form2.show;
suspend;
end;

и на форме в кнопке прописал

type
  TForm2 = class(TForm)
    Image1: TImage;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  PAY: BOT;

implementation

{$R *.dfm}

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

Но всё равно вылазиит ошибки и не указывает где, отладчик тока по деборям водит, думал что капча перепроверил, оказалось нет что не так в моём коде? Подскажите.

[Bug2000]

И что - никто не видит, что procedure BOT.capcha; выполняется в основном потоке?
и если продолжить надо после ввода кода и закрытия формы2 то достаточно ShowModal

type
  TForm2 = class(TForm)
    Image1: TImage;
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    class function GetCapcha(png: TPNGObject): string;
  end;

implementation

{$R *.dfm}

{ TForm2 }

procedure TForm2.Button1Click(Sender: TObject);
begin
  ModalResult := mrOk;
end;

class function TForm2.GetCapcha(png: TPNGObject): string;
var
  form: TForm2;
begin
  form := TForm2.Create(nil);
  try
    form.Image1.Picture.Assign(png);
    form.ShowModal; // когда закроется будет продолжено
    Result := form.Edit1.Text;
  finally
    form.Free;
  end;
end;

type
  BOT = class(TThread)
    Url_Pay: String;
    Login: String;
    Password: String;
  private
    HTTP_BOT: TIdHTTP;
    IdCookieManager1_Pay: TIdCookieManager;
    png: TPNGObject;
    code: string;
    { Private declarations }
  protected
    constructor Create(CreateSuspended: Boolean; aUrl, aLog, aPass: String);
    procedure Execute; override;
    procedure capcha;
  public
  end;

procedure BUX.Execute;
var
  img: TMemoryStream;

  s: TStringStream;
  inf: TStringList;

begin
  s := TStringStream.Create;
  inf := TStringList.Create;
  try
    http_BUX := TIdHTTP.Create;
    IdCookieManager1_Pay := TIdCookieManager.Create;
    begin
      ///
      begin
        HTTP_BOT.get('http://' + Url_Pay + 'login.php?r=', s);
        inf.Add('username=' + Login);
        inf.Add('password=' + Pass);
        If pos('image.php?', s.datastring) > 0 then
        begin
          img := TMemoryStream.Create;
          png := TPNGObject.Create;
          try
            HTTP_1.get(сайт + 'image.php?', img);
            img.Position := 0;
            png.LoadFromStream(img);
            code := '';
            Synchronize(capcha);
            if code <> '' then
              inf.Add('code=' + code);
          finally
            png.Free;
            png := nil;
            img.Free;
          end;
        end;// If pos('image.php?', s.datastring) > 0 then
        // конектимся к сайту с капчей или без
      end;
    end;
  finally
    inf.Free;
    s.Free;
  end;

end;

procedure BOT.capcha;
begin
  code := TForm2.GetCapcha(png);
end;

А для правильного "подождать" надо использовать средства синхронизации ( например TEvent ), а не останавливать самому себя.

[bulldog5293]

к сайту с капчей

[Bug2000]

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

к сайту с капчей

это Вы к чему???

[bulldog5293]

// If pos('image.php?', s.datastring) > 0 then
        // конектимся к сайту с капчей или без

проеали

[Bug2000]

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

// If pos('image.php?', s.datastring) > 0 then
        // конектимся к сайту с капчей или без

проеали

Ага

        If pos('image.php?', s.datastring) > 0 then
        begin
// обрабатываем капчу
        end;// If pos('image.php?', s.datastring) > 0 then
        // конектимся к сайту с капчей или без

________________
Бывает и хуже с русским языком
( хотя ты тестовый проект не выкладывал и я полностью его не проверял )

[Bug2000]

"//" - это коментарии в Delph
В данном случае

end;// If pos('image.php?', s.datastring) > 0 then

чтобы end-ы не перепутать, а то там begin-ов ...
В общем ладно - спасибо за пожалуйста. Раз не помогло, могли бы и объяснить чем.

[bulldog5293]

Да всё помогло, ты просто меня не понял, вопрос снят

[OUTLAW2009]

// не выспался не заметил второй страницы просьба к модеру удалить