Поток (Thread) не хочет показывать панель (Panel).

[bagabuga]

Здравствуйте!
Вообщем имеется вот такой код потока:

procedure TThreadViewMailRu.Execute;
var HTTPSend : THTTPSend;
    html : TStringList;
    data : TStringStream;
    box : string;
begin
 try
  try
   Synchronize(
      procedure
      begin
        with FormAddEmail do
        begin
         F2_EditEmail.Enabled:=False;
         F2_ComboBoxDomain.Enabled:=False;
         F2_EditPass.Enabled:=False;
         F2_ButtonOk.Enabled:=False;
         F2_ButtonCancel.Enabled:=False;
        end;
       FormMain.StatusBar.SimpleText:='Авторизация на сервере Mail.Ru...';
      end
    );

   httpsend := THTTPSend.Create;
   html := TStringList.Create;
   data := TStringStream.Create;

   FormMain.ListBoxViewMail.Clear;
   LinkViewEmail.Clear;

   with httpsend do
   begin
    TargetHost:='m.mail.ru';
    TargetPort:='80';
    Protocol:='1.1';
    UserAgent:='Mozilla/5.0 (Windows NT 5.1; rv:10.0.2) Gecko/20100101 Firefox/10.0.2';
    MimeType:='application/x-www-form-urlencoded';
   end;

   data.WriteString('page=http://m.mail.ru/cgi-bin/folders&');
   data.WriteString('Page=http://m.mail.ru/cgi-bin/folders&');
   data.WriteString('FailPage=http://m.mail.ru/cgi-bin/login?fail=1&');
   data.WriteString('post=&');
   data.WriteString('login_from=&');
   data.WriteString('Login=' + FormAddEmail.F2_EditEmail.Text + '&');
   data.WriteString('Domain=' + FormAddEmail.F2_ComboBoxDomain.Text + '&');
   data.WriteString('Password=' + FormAddEmail.F2_EditPass.Text);

   HttpSend.Document.LoadFromStream(data);
   HttpSend.HTTPMethod('POST', 'http://m.mail.ru/cgi-bin/auth');
   html.Text := HTTPSend.Headers.Text;

   httpsend.Headers.Clear;
   httpsend.Document.Clear;

   Synchronize(
      procedure
      begin
        FormMain.StatusBar.SimpleText:='Парсинг входящих...'
      end
    );

   if Pos('http://m.mail.ru/cgi-bin/folders', html.Text) <> 0 then
    begin
     HTTPSend.Cookies.SaveToFile('cookie.txt');
     httpsend.HTTPMethod('GET', 'http://m.mail.ru/cgi-bin/msglist');
     html.LoadFromStream(httpsend.Document);
     html.Text:=Utf8ToAnsi(html.Text);
     repeat
      box := FormMain.Pars('class="box">', html.Text, '</td>');
      FormMain.ListBoxViewMail.Items.Add(trim(FormMain.Pars('author">', box, '</span>')) + ' | ' 
+ 'Тема: ' + trim(FormMain.Pars('theme">', box, '</span>')));
      LinkViewEmail.Add('http://m.mail.ru/cgi-bin/' + FormMain.Pars('href="', box, '"'));
      box := html.Text;
      Delete(box, 1, Pos('class="box">', box) + 15);
      html.Text:= box;
     until(Pos('class="box">', html.Text) = 0);
    end;

    Synchronize(
      procedure
      begin
       with FormMain do
       begin
        StatusBar.SimpleText:='Готово!';
        //PanelRegistrationEmail.Visible:=False;
        PanelViewMail.Visible:=True;
       end;

       with FormAddEmail do
       begin
        F2_EditEmail.Clear;
        F2_ComboBoxDomain.ItemIndex:=0;
        F2_EditPass.Clear;

        F2_EditEmail.Enabled:=True;
        F2_ComboBoxDomain.Enabled:=True;
        F2_EditPass.Enabled:=True;
        F2_ButtonOk.Enabled:=True;
        F2_ButtonCancel.Enabled:=True;

        Close;
       end;
      end
    );
  finally
   httpsend.Free;
   html.Free;
   data.Free;
  end;
 except

 end;
end;

Здесь происходит авторизация на Mail.Ru через synapse, затем идет парсинг входящих с выводом в listbox. Все прекрасно если бы не полнейшее зависание формы после

PanelViewMail.Visible:=True;

, пробовал так же с другой панелью, все равно зависает. Нашел в гугле пару тем, там тоже писали что при выставлении у компонентов свойства visible в true (в потоке) форма виснет, но решения проблемы не было. Может подскажете что нибудь? Это как нибудь решается или есть альтернатива? В панели располагается непосредственно сам listbox, groupbox и два label'a. Заранее спасибо!
P.S. Delphi XE2

[GunSmoker]

Гм, я в недоумении: по какому принципу вы делите код на код, нуждающийся в синхронизации, и не нуждающийся в ней? Почему простейшие действия вроде изменения Enabled вы заворачиваете в Synchronize, а тяжеловесы вроде FormMain.ListBoxViewMail.Clear или FormMain.ListBoxViewMail.Items.Add - нет?

Из вторичного потока НЕЛЬЗЯ обращаться к визуальным компонентам. Поэтому, заворачивайте в Synchronize любой код, который обращается к формам и компонентам на ней.

[GunSmoker]

Я вообще изменил бы логику работы.

 with FormAddEmail do
        begin
         F2_EditEmail.Enabled:=False;
         F2_ComboBoxDomain.Enabled:=False;
         F2_EditPass.Enabled:=False;
         F2_ButtonOk.Enabled:=False;
         F2_ButtonCancel.Enabled:=False;
        end;
       FormMain.StatusBar.SimpleText:='Авторизация на сервере Mail.Ru...';

это может делать сама форма перед запуском потока.

   with FormMain do
       begin
        StatusBar.SimpleText:='Готово!';
        //PanelRegistrationEmail.Visible:=False;
        PanelViewMail.Visible:=True;
       end;

       with FormAddEmail do
       begin
        F2_EditEmail.Clear;
        F2_ComboBoxDomain.ItemIndex:=0;
        F2_EditPass.Clear;

        F2_EditEmail.Enabled:=True;
        F2_ComboBoxDomain.Enabled:=True;
        F2_EditPass.Enabled:=True;
        F2_ButtonOk.Enabled:=True;
        F2_ButtonCancel.Enabled:=True;

        Close;
       end;

это, опять же, может делать и сама форма после окончания работы потока. К примеру, можно назначить событие OnTerminate.

     FormMain.StatusBar.SimpleText:='Парсинг входящих...'

поток может направить сообщение-уведомление форме. Она среагирует и изменит статус.

FormMain.ListBoxViewMail.Items.Add( trim(FormMain.Pars('author">', box, '</span>')) + ' | ' + 'Тема: ' + trim(FormMain.Pars('theme">', box, '</span>')));
LinkViewEmail.Add('http://m.mail.ru/cgi-bin/' + FormMain.Pars('href="', box, '"'));
box := html.Text;

аналогично.

Иными словами, поток вообще не должен ссылаться на форму. Почитайте: http://www.gunsmoker.ru/2010/08/9897.html

[bagabuga]

GunSmoker, Я Synchronize вообще не использовал и без него прекрасно работает, ведь поток у меня один, а Synchronize нужен для синхронизации нескольких (вроде бы). Где-то прочитал, что весь код касаемо основной формы должен обрабатываться через Synchronize, подумал может мне это поможет, но увы. Сейчас вынесу все за пределы потока, т.е. перепишу код . Просто с потоками вообще не имел дело, а тут не дело же что все виснет, решил попробовать.

[RuVarez]

Synchronize используется и для синхронизации с компонента! Видите ли, потоки плоховато работают с VCL поэтому нужно использовать Synchronize. Не верите -
напишите в Execute потока Showmessage и не ставте Synchronize и он вам будет так извращатся над тем Showmessage)

[bagabuga]

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

Synchronize используется и для синхронизации с компонента! Видите ли, потоки плоховато работают с VCL поэтому нужно использовать Synchronize. Не верите -
напишите в Execute потока Showmessage и не ставте Synchronize и он вам будет так извращатся над тем Showmessage)

Было дело, писал . Поток растянул форму на весь экран, в итоге ни сообщения, ни кнопок видно не было.


Итак, вообщем я попытался вытащить весь код что обращается к форме из потока, получилось следующее:
Код потока:

procedure TThreadViewMailRu.Execute;
var HTTPSend : THTTPSend;
    html : TStringList;
    data : TStringStream;
    box : string;
begin
 try
  try
   httpsend := THTTPSend.Create;
   html := TStringList.Create;
   data := TStringStream.Create;

   with httpsend do
   begin
    TargetHost:='m.mail.ru';
    TargetPort:='80';
    Protocol:='1.1';
    UserAgent:='Mozilla/5.0 (Windows NT 5.1; rv:10.0.2) Gecko/20100101 Firefox/10.0.2';
    MimeType:='application/x-www-form-urlencoded';
   end;

   data.WriteString('page=http://m.mail.ru/cgi-bin/folders&');
   data.WriteString('Page=http://m.mail.ru/cgi-bin/folders&');
   data.WriteString('FailPage=http://m.mail.ru/cgi-bin/login?fail=1&');
   data.WriteString('post=&');
   data.WriteString('login_from=&');
   data.WriteString('Login=' + FormAddEmail.F2_EditEmail.Text + '&');
   data.WriteString('Domain=' + FormAddEmail.F2_ComboBoxDomain.Text + '&');
   data.WriteString('Password=' + FormAddEmail.F2_EditPass.Text);

   HttpSend.Document.LoadFromStream(data);
   HttpSend.HTTPMethod('POST', 'http://m.mail.ru/cgi-bin/auth');
   html.Text := HTTPSend.Headers.Text;

   httpsend.Headers.Clear;
   httpsend.Document.Clear;

   Synchronize(
      procedure
      begin
        FormMain.StatusBar.SimpleText:='Парсинг входящих...'
      end
   );

   if Pos('http://m.mail.ru/cgi-bin/folders', html.Text) <> 0 then
    begin
     HTTPSend.Cookies.SaveToFile('cookie.txt');
     httpsend.HTTPMethod('GET', 'http://m.mail.ru/cgi-bin/msglist');
     html.LoadFromStream(httpsend.Document);
     html.Text:=Utf8ToAnsi(html.Text);

     Synchronize(
       procedure
        begin
         repeat
          box := FormMain.Pars('class="box">', html.Text, '</td>');
          FormMain.ListBoxViewMail.Items.Add(
Copy(FormMain.HtmlSpecialChars(trim(FormMain.Pars('author">', box, '</span>'))), 1, 25) 
+ ' | ' + 'Тема: ' + trim(FormMain.Pars('theme">', box, '</span>')));
          LinkViewEmail.Add('http://m.mail.ru/cgi-bin/' + FormMain.Pars('href="', box, '"'));
          box := html.Text;
          Delete(box, 1, Pos('class="box">', box) + 15);
          html.Text:= box;
         until(Pos('class="box">', html.Text) = 0);
        end
     );
    end
  finally
   httpsend.Free;
   html.Free;
   data.Free;
  end;
 except

 end;
end;

Кнопка:

procedure TFormAddEmail.F2_ButtonOkClick(Sender: TObject);
var Thread : TThreadViewMailRu;
begin
 F2_EditEmail.Enabled:=False;
 F2_ComboBoxDomain.Enabled:=False;
 F2_EditPass.Enabled:=False;
 F2_ButtonOk.Enabled:=False;
 F2_ButtonCancel.Enabled:=False;

 FormMain.StatusBar.SimpleText:='Авторизация на сервере Mail.Ru...';
 FormMain.ListBoxViewMail.Clear;
 LinkViewEmail.Clear;


 Thread:=TThreadViewMailRu.Create(True);
 Thread.FreeOnTerminate:=True;
 Thread.OnTerminate:= DestroyThread;
 Thread.Resume;
end;

DestroyThread:

procedure TFormAddEmail.DestroyThread(Sender: TObject);
begin
 with FormMain do
  begin
   StatusBar.SimpleText:='Готово!';
   PanelRegistrationEmail.Visible:=False;
   PanelViewMail.Visible:=True;
  end;

  FormMain.labelViewMail.Caption:='E-Mail: ' + F2_EditEmail.Text + '@' + F2_ComboBoxDomain.Text;
  FormMain.LabelViewInbox.Caption:='Входящие: ' + IntToStr(FormMain.ListBoxViewMail.Count);


  F2_EditEmail.Clear;
  F2_ComboBoxDomain.ItemIndex:=0;
  F2_EditPass.Clear;

  F2_EditEmail.Enabled:=True;
  F2_ComboBoxDomain.Enabled:=True;
  F2_EditPass.Enabled:=True;
  F2_ButtonOk.Enabled:=True;
  F2_ButtonCancel.Enabled:=True;

  Close;
end;

Что касается "направить сообщение-уведомление форме" как это реализуется не знаю, информации особо тоже не нашел. Как вытащить цикл тоже не представляю, это либо делать html глобальной (что вроде как не вариант), либо сохранять в файл, затем создавать ещё один TStringList туда подгружать html код из файла (Тоже геморрой). Что подскажите?

[GunSmoker]

Тебе поток, по сути, нужен, чтобы не подвисал интерфейс программы во время вызова GET. А раз так, то глянь сюда: http://www.delphikingdom.ru/asp/view...catalogid=1355

У тебя будет:

  ...
  EnterWorkerThread;
  try
    httpsend.HTTPMethod('GET', 'http://m.mail.ru/cgi-bin/msglist');
  finally
    LeaveWorkerThread;
  end;
  ...

[bagabuga]

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

Тебе поток, по сути, нужен, чтобы не подвисал интерфейс программы во время вызова GET. А раз так, то глянь сюда: http://www.delphikingdom.ru/asp/view...catalogid=1355

У тебя будет:

  ...
  EnterWorkerThread;
  try
    httpsend.HTTPMethod('GET', 'http://m.mail.ru/cgi-bin/msglist');
  finally
    LeaveWorkerThread;
  end;
  ...

Огромное спасибо! Это то, что нужно.