как работать с параллельными потокакми в Winapi?

[Miha]

Пожалуйста обьясните как создать и работать с потоками при помощи функций Winapi или ссылку хотябы кинте, а то в инете нигде пример не нашёл.
P.s. Нашёл тока ф-ию CreateThread и то незнаю как с ней работать ( .

[Rouse_]

Пример создания четырех потоков с синхронизацией через семафор

 
program Project1;
 
uses
  Windows, Messages, SysUtils, gssocket;
 
const
  THREAD_COUNT = 4;
 
var
  hSemaphore: THandle;
  hThread: array [0..THREAD_COUNT - 1] of THandle;
  lpThreadId, lpPreviousCount: DWORD;
  I: Integer;
 
procedure ThreadProc(lpParameter: Pointer); stdcall;
var
  hThreadSemaphore: THandle;
begin
  // рабочая процедура потоков
  // кажды поток ждет сигнального состояния семафора
  case WaitForSingleObject(hSemaphore, 100000) of
  // семафор в сигнальном состоянии, либо ошибка - обрабатываем код завершения
    WAIT_OBJECT_0:  // все нормально
      MessageBox(0, PChar('WAIT_OBJECT_0: ' + IntToStr(Integer(lpParameter))), nil, MB_OK);
    WAIT_FAILED:    // ошибка
      MessageBox(0, PChar('WAIT_FAILED: ' + IntToStr(Integer(lpParameter))), nil, MB_OK);
    WAIT_TIMEOUT:   // истекло время ожидания
      MessageBox(0, PChar('WAIT_TIMEOUT: ' + IntToStr(Integer(lpParameter))), nil, MB_OK);
  end;
end;
 
begin
  // Создаем семафор
  hSemaphore := CreateSemaphore(nil, 0, THREAD_COUNT, 'TestThreadSemaphore');
  if hSemaphore = 0 then
    RaiseLastOSError;
  // Создаем 4 потока
  for I := 0 to THREAD_COUNT - 1 do
    hThread[I] := CreateThread(nil, 0, @ThreadProc, Pointer(I), 0, lpThreadId);
  lpPreviousCount := THREAD_COUNT;
  // Ждем секунду
  Sleep(1000);
  // Освобождаем 1 поток
  if not ReleaseSemaphore(hSemaphore, 1, @lpPreviousCount) then
    RaiseLastOSError;
  // Ждем 2 секунды
  Sleep(2000);
  // Освобождаем еще два потока
  if not ReleaseSemaphore(hSemaphore, 2, @lpPreviousCount) then
    RaiseLastOSError;
  // Ждем 2 секунды
  Sleep(2000);
  // Освобождаем последний поток
  if not ReleaseSemaphore(hSemaphore, 1, @lpPreviousCount) then
    RaiseLastOSError;
  Sleep(2000);
end.

[Miha]

Спасибо Rouse_ буду разбираться .

[Miha]

... разобрал я пример и у меня возникло несколько банальных вопросов:
1) Используется ли в примере модуль gssocket ,если да то почему.(я так понял что это интернет сокеты да причём ещё не являются стандартными).
2)Правильно ли я понял что в этом примере потоки используют процедуру ThreadProc?(вопрос конечно ламерский,но я так для уточнения ).
3)У меня при завершении потока происходит ошибка.Это так и должно быть?
4)Потоку передаётся параметр с его номером? 4-ой переменной ф-ии CreateThread (pointer) ?
5)Синхронность потоков заключаеся в WaitForSingleObject(hSemaphore, 100000) ?Значит поток ожидает сообщение от симафора ...А тип сообщения симафора заключается в ReleaseSemaphore или в самом хэндле hSemaphore?
И последнее : как можно релизовать передачу значения переменной дополнительного потока из главного. Стандартными средствами это будет примерно выглядеть так :
Thread:=TThread.Create(true);
Thread.Str :=S;
Thread.resume;
ну тоесть желательно передать переменной значение перед его запуском.
Ну вот вроде всё ...пока всё .

[Rouse_]

1. gssocket - это я в параллель на другой вопрос отвечал, в эьтом модуле данный юнит лишний
2. да
3. какого плана ошибка?
4. да
5. да, по поводу типов поштудируй MSDN
6. через четвертый параметр функции

[Miha]

3)Ошибка WAIT_FAILED (описаная в CASE )

[Miha]

И ещё один вопрос: объязательно присваивать каждый поток в отдельный хэндл или это только чтобы можно было узнать результат создания потока?

[Miha]

Всё разобрался сам. Спасибо за помощь .