Поток

[_ZixeL_]

Добрый день, формучане!
Я в делфи всё еще новичок. Никак не получается процедуру влепить в отдельный поток.

Собственно.

  potok = class(TThread)
  private
  protected
    FNextConnectionRow: Integer;
    procedure Execute; override;
  public
    constructor Create(CreateSuspended: Boolean);
  end;

constructor potok.Create(CreateSuspended: Boolean);
begin
  inherited Create(CreateSuspended);
end;

Дальше пытаюсь старую процедуру вставить в поток. Делаю так:

procedure potok.Execute;
var
j:integer;
  tab: TTabSheet;
  rdp: TMsRdpClient6;
  state, anyselected: boolean;
  other:string;
begin
AnySelected := false;
 while (FNextConnectionRow > 0) and
    (FNextConnectionRow < Form1.AdvStringGrid1.RowCount-1) and
    (Form1.PageControl2.PageCount < Form1.SpinEdit1.Value) do
  begin

    if Flag=1 then Break;
    i := FNextConnectionRow+1;
    Inc(FNextConnectionRow);
    if Form1.AdvStringGrid1.GetCheckboxState(0, i, state) = state then
    begin
    AnySelected := true;
    tab := TTabSheet.Create(Form1.PageControl2);
    tab.Parent := Form1.PageControl2;
    tab.Name := 'tab' + inttostr(i);
    tab.Caption := Form1.AdvStringGrid1.Cells[3, i];
    tab.Visible := true;
    tab.PageControl := Form1.PageControl2;
    tab.Tag := i;

    rdp := TMsRdpClient6.Create(tab);
    rdp.Name := 'rdp' + IntToStr(i);
    rdp.Parent := tab;
    rdp.Left := 10;
    rdp.Top := 10;
    rdp.Width := 973;
    rdp.Height := 431;
    rdp.ConnectingText := 'Подключение к серверу: ' + Form1.AdvStringGrid1.Cells[3, i];
    rdp.OnConnected := OnConnected;
    rdp.OnLoginComplete := OnLoginComplete;
    rdp.OnLogonError := OnLogonError;
    rdp.OnDisconnected := OnDisconnected;
    rdp.OnConnecting := OnConnecting;
    rdp.Tag := i;
    rdp.AdvancedSettings2.singleConnectionTimeout:=strtoint(Form1.Edit6.Text);

    if Form1.checkbox3.Checked then
    begin
    rdp.AdvancedSettings2.RedirectDrives:=true;
    rdp.SecuredSettings.StartProgram:='\\tsclient\'+Form1.Edit7.Text+Form1.Edit8.Text;
    end
    else
    rdp.AdvancedSettings2.RedirectDrives:=false;

    rdp.Server := Form1.AdvStringGrid1.Cells[3, i];
    rdp.UserName := Form1.AdvStringGrid1.Cells[4, i];
    rdp.AdvancedSettings2.ClearTextPassword := Form1.AdvStringGrid1.Cells[5, i];
    rdp.Connect;

    end;
  end;

end;

Вызываю всё это дело кнопкой:

procedure TForm1.Button3Click(Sender: TObject);
begin
potok.Create(false);
end;

Но, никакой реакции по нажатию кнопки. Даже вкладки не создаются.
Что я не так делаю?
Вопрос глупый, знаю.Каюсь, стыдно)

Спасибо заранее всем.

[evg_m]

1.

while (FNextConnectionRow > 0) and

а чему равно FNextConnectionRow в начале?
подозреваю =0 => while false => ?!

а теперь общие замечания.
Работа с VCL (формы и все что есть на них) внутри потока мягко говоря не приветствуется.
Она конечно допустима, но требует synchronize что равносильно остановке потока до окончания данной операции (до выполнения ВСЕХ действий внутри процедуры).
Теперь убираем (или комментируем) из вашей Execute все связанное с Form и что там останется? Может быть вам все-таки обойтись без потока?

как работать с потоками

[_ZixeL_]

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

1.

а чему равно FNextConnectionRow в начале?
подозреваю =0 => while false => ?!

а теперь общие замечания.
Работа с VCL (формы и все что есть на них) внутри потока мягко говоря не приветствуется.
Она конечно допустима, но требует synchronize что равносильно остановке потока до окончания данной операции (до выполнения ВСЕХ действий внутри процедуры).
Теперь убираем (или комментируем) из вашей Execute все связанное с Form и что там останется? Может быть вам все-таки обойтись без потока?

как работать с потоками

Спасибо за ответ.

Изначально FNextConnectionRow := 1;

без потока, раньше запускал цикл так

procedure TForm1.Button3Click(Sender: TObject);
begin
flag:=0;
if radiobutton1.Checked=true then
begin
CheckBox1.Checked := True;
  FNextConnectionRow := 1;
  AddConnections;
  end
  else
  FNextConnectionRow := 1;
  AddConnections;
end;

Где AddConnections - та самая процедура, что писал в первом посте.

Спасибо за ссылку, уже был на ней. Но всё никак нет времени вчитаться в статью. А по быстрому не понимается


Возможно Вы правы. в основном потоке оно работает нормально. Но, меня сильно смущает мерцание компонентов во время выполнения цикла, и небольшое подвисание программы. То я подумал, что отдельный поток решит данную проблему.
К сожалению, даже DoubleBuffered=true не помогает.
Возможно подскажете как решить проблему с мерцанием?

Спасибо.

[evg_m]

Изначально FNextConnectionRow := 1;

Где в какой строчке кода есть такое?

Дальше пытаюсь старую процедуру вставить в поток. Делаю так:

А используете НОВУЮ переменную!

 potok = class(TThread)
  private
  protected
    FNextConnectionRow: Integer;
    procedure Execute; override;
  public
    constructor Create(CreateSuspended: Boolean);
  end;

[_ZixeL_]

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

Где в какой строчке кода есть такое?



А используете НОВУЮ переменную!

 potok = class(TThread)
  private
  protected
    FNextConnectionRow: Integer;
    procedure Execute; override;
  public
    constructor Create(CreateSuspended: Boolean);
  end;

Да, это я уже понял
Но почему-то создаётся всего одна вкладка. Без нового окна rdp.

[xoodoo]

TMsRdpClient6 работает в неблокирующем режиме с асинхронными нотификациями о событиях.
Потоки в данной задаче вообще не нужны.

[_ZixeL_]

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

TMsRdpClient6 работает в неблокирующем режиме с асинхронными нотификациями о событиях.
Потоки в данной задаче вообще не нужны.

Спасибо. Как тогда решить проблему с мерцанием компонентов? Подскажите пожалуйста.

[evg_m]

Как тогда решить проблему с мерцанием компонентов? Подскажите пожалуйста.

DoubleBuffered:=true;

подробности наверняка есть на форуме

[_ZixeL_]

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

DoubleBuffered:=true;

подробности наверняка есть на форуме

Спасибо. Но я писал выше, что это не помогает.
У меня эта процедура выполняется каждый раз, после закрытия одной вкладки. Тогда процедура создаёт новую вкладку и рдп окно. Вот тогда и начинают мерцать компоненты.

[xoodoo]

Свойство DoubleBuffered никаким боком не касается компонентов-наследников TWinControl, лежащих непосредственно на форме либо на WinControl-контейнерах на ней - оно влияет только на работу компонентов-наследников TGraphicControl.