for to do не работает

[DimoK123]

Всем привет. Возможно вопрос глупый. И я почему-то уверен, что делаю не правильно. С потоками никак не могу разобраться. Не могу вьехать >_<

В общем. Есть такое:

procedure TForm1.Button1Click(Sender: TObject);
var
pot:integer;
begin
for pot:=1 to Form1.SpinEdit1.Value+1 do
  a[pot]:=potok.Create(false);
end;

procedure potok.Execute;
var
i,p:integer;
begin
sleep(100);
synchronize(synchro);
end;


procedure potok.synchro;
begin
inc(nom);
rdp[nom].Server:=Form1.advstringgrid2.cells[0,nom];
rdp[nom].UserName:=Form1.advstringgrid2.cells[1,nom];
rdp[nom].AdvancedSettings2.ClearTextPassword:=Form1.advstringgrid2.cells[2,nom];
rdp[nom].Connect;
end;

Всё работает вроде нормально. Но, мне надо повторять действие до последней строки в гриде. Пытался сделать так

procedure potok.Execute;
var
i,p:integer;
begin
for i:=1 to Form1.Advstringgrid2.RowCount-1 do
begin
sleep(100);
synchronize(synchro);
end;
end;

Но никакой реакции. Подскажите пожалуйста, что делать?
Спасибо заранее.

[xoodoo]

Начни с выяснения зачем вообще в твоей задаче нужны доп.потоки.

[DimoK123]

Ну, у меня есть список айпи адресов. И мне надо одновременно к ним подключатся.
Мне кажется, тут без потоков никак.
Можно сделать всё циклом одним, но для дальнейших планов цикл мне не подходит.

[xoodoo]

Нужны или не нужны потоки для подключения и для "дальнейших планов"- это напрямую зависит от режима работы rdp-компонентов - синхронный (блокирующий), асинхронный (неблокирующий), асинхронный с событийными нотификациями.

[DimoK123]

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

Нужны или не нужны потоки для подключения и для "дальнейших планов"- это напрямую зависит от режима работы rdp-компонентов - синхронный (блокирующий), асинхронный (неблокирующий), асинхронный с событийными нотификациями.

Прошу прощение. Можно как-то поподробней? А то не очень понятно(
И есть ли ответ на мой вопрос?

[xoodoo]

не очень понятно

Что конкретно ?

есть ли ответ на мой вопрос?

Есть.
for to do вполне себе нормально работает.

[DimoK123]

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

Что конкретно ?

Про режимы работы.

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

Есть.
for to do вполне себе нормально работает.

Почему же у меня не работает данный цикл?

Если вместо

inc(nom);
rdp[nom].Server:=Form1.advstringgrid2.cells[0,nom];
rdp[nom].UserName:=Form1.advstringgrid2.cells[1,nom];
rdp[nom].AdvancedSettings2.ClearTextPassword:=Form1.advstringgrid2.cells[2,nom];
rdp[nom].Connect;

Например пропишу

inc(nom);
form1.memo1.lines.add('123');

То цикл работает. А так не хочет почему-то.

Прошу прощение за глупые вопросы. Я всего пару недель в делфи

[xoodoo]

Про режимы работы

Курс лекций прочитать ?
Ты же даже не соизволил конкретизировать что за rdp-компонент ты задействовал ..

не хочет почему-то

Так прямо и говорит "не хочу почему-то" ?

[DimoK123]

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

Курс лекций прочитать ?
Ты же даже не соизволил конкретизировать что за rdp-компонент ты задействовал ..

Ну сорри, просто как я знаю, есть всего один рдп компонент на делфи, а именно MSTSCLib_TLB. Тут использую MsRdpClient6.

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

Так прямо и говорит "не хочу почему-то" ?

Ноль реакции. Что с циклом, что без него выполняет только один раз.

Компонент динамический. Создаю так

var
   rdp:Array of TMsRdpClient6;

procedure TForm1.Button4Click(Sender: TObject);
var
n,i: Integer;
tab: ttabsheet;
proj:IMsRdpClientAdvancedSettings;
begin

 n := SpinEdit1.Value+1;
  SetLength(rdp, n+1);
  for i := 1 to n-1 do
with advstringgrid2 do
begin

tab:=ttabsheet.Create(PageControl1);
tab.parent:=PageControl1;
tab.visible := true;
tab.name:='tab'+inttostr(i);
tab.caption :=cells[0,i];
tab.pagecontrol := pagecontrol1;

rdp[i]:=TMsRdpClient6.Create(tab);
rdp[i].Name:='rdp'+inttostr(i);
rdp[i].Parent:=tab;
rdp[i].Left:=15;
rdp[i].Top:=15;
rdp[i].Width:=580;
rdp[i].Height:=390;
rdp[i].ConnectingText:='Подключение к серверу: ' +cells[0,i];
rdp[i].OnConnected:=OnConnected;
rdp[i].OnLoginComplete:=OnLoginComplete;
rdp[i].OnLogonError:=OnLogonError;
rdp[i].OnDisconnected:=OnDisconnected;
if rdp[i].AdvancedSettings.QueryInterface(ImsRdpclientAdvancedSettings, proj) = S_OK then
proj.Set_singleConnectionTimeout(SpinEdit2.Value);


end;

end;

[Utkin]

Бреакпоинты ставил?