Потоки

[fucil]

Чем отличаются и что лучше ?

idThread[i]:=CreateThread(nil, 0, @procedure1, nil, 0, idThread);
Слышал то что CreateThread жрет сильно ресурсы а beginthread нет !

idThread[i]:=beginthread(nil, 0, @procedure1, nil, 0, idThread);

[eoln]

BeginThread оборачивает API-функцию CreateThread (можно посмотреть в модуле System) и надо пользоваться ею.

Сообщение от CodeGear Delphi Runtime Library;

{$IFDEF MSWINDOWS}
function BeginThread(SecurityAttributes: Pointer; StackSize: LongWord;
  ThreadFunc: TThreadFunc; Parameter: Pointer; CreationFlags: LongWord;
  var ThreadId: LongWord): Integer;
var
  P: PThreadRec;
begin
  if Assigned(SystemThreadFuncProc) then
    P := PThreadRec(SystemThreadFuncProc(ThreadFunc, Parameter))
  else
  begin
    New(P);
    P.Func := ThreadFunc;
    P.Parameter := Parameter;
  end;
  IsMultiThread := TRUE;
  Result := CreateThread(SecurityAttributes, StackSize, @ThreadWrapper, P,
    CreationFlags, ThreadID);
end;

При прямом вызове надо самостоятельно ловить ошибки, утечки, протечки и прочии неприятности.

[fucil]

и надо пользоваться ею ??? чем beginthread или CreateThread.

На данный момент я делаю так:
Правильно ли ???? поправьте если что не так !

var
Threads:array [0..50] of Cardinal;
idThread :Cardinal;
stop:boolean;

procedure ShowContent;
begin
while stop do 
  begin
    memo1.lines.add('Content: '+inttostr(random(1000)));
  end;
EndThread(0);
end;

procedure TFrmMAin.BtnStartClick(Sender: TObject);
begin
  stop:=True;
  for I := 0 to 10 do
  Threads[i]:= beginthread(nil, 0, @ShowContent, nil, 0, idThread);
end;

procedure TFrmMAin.BtnStopClick(Sender: TObject);
begin
  stop:=false;
  for I := 0 to 10 do
  CloseHandle(Threads[i]);
  //SuspendThread(Threads[i]);
end;

[eoln]

beginthread
CloseHandle может выполнится раньше, чем потоки отработают

И ещё синхронизации нет. И вообще лучше TThread, больше возможностей, да и с vcl хорошо работает

[fucil]

// так не работает
procedure TFrmMAin.BtnStopClick(Sender: TObject);
begin
  stop:=false;
  for I := 0 to 10 do
  CloseHandle(Threads[i]);
  //SuspendThread(Threads[i]);
end;

// а так работает ))
procedure TFrmMAin.BtnStopClick(Sender: TObject);
begin
  stop:=false;
  for I := 0 to 10 do
  //CloseHandle(Threads[i]);
  SuspendThread(Threads[i]);
end;

[fucil]

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

beginthread
CloseHandle может выполнится раньше, чем потоки отработают

И ещё синхронизации нет. И вообще лучше TThread, больше возможностей, да и с vcl хорошо работает

Это просто пример, вообще у меня консольное приложение !
И синхронизация мне тут вообще ничему, тут нечего синхронизить !

По 3 посту полного ответа так и не получил !
Жду советов !

[GunSmoker]

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

По 3 посту полного ответа так и не получил !
Жду советов !

Тыц.

[fucil]

я же не прошу готовый код, а я написал пример и хотел получить советов что у меня не так и как лучше ! а вы меня на гугл, я там читал и написал данный пример и ждал ваших советов по этому коду, кароче все ясно спс ! Хотя от GunSmoker не ждал такого ответа, обычно он дает хорошые ссылки или рекомендации (( увы !

[GunSmoker]

GunSmoker даёт развёрнутые ответы на проблемы, а не на одну секунду в поиске.