Multithread

[bulldog5293]

Multithread что это такое и чем он лучше обычного. За нубский вопрос сорри, просто в сети о нём написано по английски и не внятно.

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

я вам переведу, это многопоточность.
дальше обьяснять?

[_Engine_]

Вот тут можно посмотреть вкратце

[bulldog5293]

А нет ли у кого примера с этим Multithread, а то чёт не понятно как с ним работать, а то ели понял как с thread работать, а тут ещё это

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

а многопоточность это и есть создание дополнительных потоков для обработки действий в фоне, не вешая основного потока

[GunSmoker]

Вы в каком контексте это спрашиваете?

[bulldog5293]

Пепел Феникса а многопоточность это и есть создание дополнительных потоков для обработки действий в фоне, не вешая основного потока

thread тоже в сети описан как многопоточный путь, но теперь как я понимаю его принцеп многопоточности составляет не полную загруженность vcl потока и обработку своего, что оставляет в блокирующем состояние остальные обращения к vcl потокам из не vcl потока, то есть если я хочу получить доступ к элементам vcl из не vcl потока, то мне придётся ждать, а multithread я как понял помогает этого избежать резервированием имени для каждого запущенного элемента потока vcl.
Ну есть у меня не vcl поток, который при нажатие кнопки обращается к vcl потоку и береводить работу на не vcl поток, я хотел бы узнать как можно его переделать под multithread.

GunSmoker Вы в каком контексте это спрашиваете?

надеюсь пояснил правельно

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

сама vcl рассчитана на Synchronize метод.(кстати на практике вполне можно и обойтись, но не советую)
зачем велосипед делать?

можно сообщения контролам слать(например нажатие на кнопку, или же форме слать свое сообщение, в обработчике которого делать то что надо)

вообще очень многое можно вынести из основного потока, оставить лишь обработку сообщений(чтоб рисовалось) а остальное в иных потоках.(обновлять можно из потока)

мультипоточность обычно использует блокировки обьектов, не vcl это

приведите пример, изза чего вы этим заинтересовались?

vcl сделана так, что при вызове метода через Synchronize он выполняется в главном потоке(соответственно тот временно простаивает).

[ZuBy]

в потоке обрабатывается определенные данные, которые например нельзя поместить в цикл, таймер и тд... а синхронизация позволяет "слится" с общим потоком, НО синхронизация должна быть правильно применена. синхронизация применяется только при обновлении какой либо информации или выводе её на дисплей, иначе это бессмысленно.

как-то так

[bulldog5293]

Писал я код который должен заходить на все сайты которые попещенны в элементы listview, но фара была в том что он выполнялся последовательно.
Вод код потока

constructor PayThread1.Create;
begin
   Create(True); 
   FreeOnTerminate := True; 
   OnTerminate := ThreadExit; 
   Priority := tpNormal; 
   Inc(alive); 
   Resume;
end;

procedure PayThread1.Execute;
var
IdHTTP1_Pay:TIdHTTP;
i : integer;
st:TStringStream;
str:AnsiString;
s:TStringStream;
URL_Pay:String;
Login:String;
Pass:String;
data1:TStringList;
begin
idHTTP1_Pay := TidHTTP.Create(nil);
s:=TStringStream.Create;
st:=TStringStream.Create;
 data1:=tstringlist.create;
begin
  for i:=0 to Form2.Listview1.Items.count-1 do
  begin
  URL_Pay := '' + Form2.Listview1.Items[i].SubItems[0];
  Login := '' + Form2.Listview1.Items[i].SubItems[1];
  Pass := '' + Form2.Listview1.Items[i].SubItems[2];
  begin
Form2.IdHTTP1_Pay.get('' + URL_Pay + 'login.php?r=',s);
If pos('image.php?', s.datastring)>0 then
begin
...
end
else
Data1.Add('username=' +Login);
Data1.Add('password=' + Pass);
Form2.IdHTTP1_Pay.Post('' + URL_Pay+'login.php',data1,s)
end;
s.position:=0;
st:=TStringStream.Create;
Form2.IdHttp1_Pay.Get('' + URL_Pay+'sites.php', st);
str:=st.DataString;
while Pos('view.php?ad=', str) > 0
do begin
...
end;
  try
      except
       on E:Exception do
      end;
end;
end;
end;
end;
end;

и код кнопки вызова потока

procedure TForm1.But_Pay_Button1Click(Sender: TObject);
var
s : integer; 
Pay: PayThread1;
   begin
    Pay:=PayThread1.Create(false);
    Pay.FreeOnTerminate := True;
    Pay.Resume;
  end;