Class EAssertionFailed

[RIO]

Здравствуйте ! Я использую компоненты HTTP и SSL, что бы заполнить веб форму на сайте. Заполнение и получение капчи происходит через поток, что бы приложение не зависало. Загрузка капчи происходит на второй форме, которая открывается после заполнения данных и по нажатию клавиши. Так вот, когда я получаю я нажимаю кнопку получения капчи, открывается вторая форма и поток начинает свою работу (поток где обрабатывается запрос получения капчи), если поток еще выполняется и я вдруг закрыл вторую форму, а потом опять нажимаю на кнопку получения капчи, открывается вторая форма и вываливается ошибка :

Project Box.Exe Raised Exception Class EAssertionFailed With Message 'Assertion Failure (D:\Indy 10\Lib\Protocols\IdSSLOpenSSL.Pas, Line 1568)'

Я так понял, что проблема в том, что поток не завершается после того как я закрываю вторую форму, а потом когда я вновь гружу этот же поток который выполняется происходит ошибка . . . А может и еще в чем-то проблема, помогите пожалуйста

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

напиши код события закрытия формы?

[RIO]

Вот именного, что его нет В этом событии ничего не прописано . . . Я же и имею ввиду, что или в событии когда форма закрывается нужно как-то завершать процесс и освобождать память, или проблема в чем-то в другом, но как мне кажется, проблема здесь не в потоке, потому-что когда я делал такую похожею программу где не было SSL, так с ней можно было делать, что захочешь, и закрывал форму и опять открывал и все работало, а здесь нет

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

поток нужно останавливать.
причем корректно.(в том числе внутренние процессы этого потока)

[RIO]

http://programmersforum.ru/showthrea...498#post361498

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

почти.
нужно дисконект ИнДи делать еще же...в общем не все так прозрачно як кажется.

[RIO]

То есть, по закрытию окна вставить :

if not Go.Terminated then
begin
  Go.Terminate
  Go.FreeOnTerminate := False;
  HTTP.Disconnect; 
end;

Или что-то опустил ?

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

покажите полный код потока.

[RIO]

unit Captcha;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Buttons;

type
  TCaptchaBox = class(TForm)
    GroupBox1: TGroupBox;
    CancelButton: TSpeedButton;
    CaptchaEdit: TEdit;
    Image2: TImage;
    Label11: TLabel;
    Label12: TLabel;
    Panel1: TPanel;
    Image1: TImage;
    RegisterButton: TSpeedButton;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
  public
  end;

  TGetCaptcha = class(TThread)
  private
  protected
    procedure Execute; override;
  end;

var
  CaptchaBox: TCaptchaBox;
  GetCaptcha: TGetCaptcha;

implementation

uses Main, Result;

{$R *.dfm}

procedure TCaptchaBox.FormCreate(Sender: TObject);
begin
  DoubleBuffered := True;
end;

procedure TCaptchaBox.FormShow(Sender: TObject);
begin
  GetCaptcha := TGetCaptcha.Create(True);
  GetCaptcha.FreeOnTerminate := True;
  GetCaptcha.Priority := TPNormal;
  GetCaptcha.Resume;
end;

procedure TGetCaptcha.Execute;
begin
  Box.CreateUIN;
  CaptchaBox.Progress.Visible := False;
  CaptchaBox.Progress.Enabled := False;
  CaptchaBox.Progress.Position := 0;
end;

end.

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

стоп, так у вас на все потоки один HTTP?
понятно что возможен конфликт.
ну в таком случае код почти верен.
только сначало дисконект, поток Terminate(а лучше паузу поток дисконект, потом наф его)