По мне гораздо легче использовать BeginThread/EndThreadEnterCrititcalSection/LeaveCriticalSection

Чем они тяжелы тем что не заставляют каждый раз одно и тоже писать??

Ну и когда захотеться оптимизировать свою работы, создать класс для работы с потоками под. специфические задачи легче унаследоваца от TThread чем пелить велосипед и отлаживать его.

TThread это прежде всего абстракция над апи потоками дабы программист думал как реализовать функции которые будут в потоке а не как их запилить.

Ну и разработка с TThread быстрее осуществляются и по качеству апи потокам не уступает.

К томуже кучу классов готовых придумали дабы сэкономить наше время.

А где CloseHandle(thread)?

Уу все утечка хэндлов....

На мдсне не нашел строчек о том что TerminateThread хэндл закрывает..

А убивать через TerminateThread нужно только в крайних случаях, не советуйте плохого)

Лучше через ExitThread();

А чего именно плохого в закрытии потока через TerminateThread?

Код показан только для примера

А чего именно плохого в закрытии потока через TerminateThread?

(c)mdsn

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

"Поток можно завершить принудительно, вызвав ExitThread. При этом освобождаются все ресурсы операционной системы, выделенные дан ному потоку, но C/C++ - pеcypcы (например, объекты, созданные из С++-классов) не очищаются. Именно поэтому лучше возвращать управление из функции потока, чем самому вызывать функцию ExitThread." (Д. Рихтер)

Чет я не вкурил.

Но у меня обычно на BeginThread код так.

В каком понятии очистить если я принудительно вызываю перед завершением потока деструкторы?

Забыл совсем, что речь о делфи. Не пишу, поэтому не знаю, может там как-то по-другому.

Нового не нашел ничего, при чтении/изучении кода вероятность запутаться больше, нежели что-то понять, особенно для новичков. Был бы благодарен, за четкую, статейку с подробным описание и примерами по синхронизации потоков.

За старания +.

работает , даже в memo записывает ,

.SpoilerTarget" type="button">Spoiler: 1
unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Memo1: TMemo;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

potok = class(TThread) //Этой строкой мы унаследовали класс потока

private

str: string;//в разделе private описываются переменные с помощью которых мы

nomer : Integer;//будем передавать значения между процедурами внутри потока

protected

procedure Execute; override;//это главная процедура потока, она начинает свою работу

//после того как мы создали поток

public

procedure synchro;//в разделе public вы можете объявить процедуры какие только душе

//угодно

constructor Create(CreateSuspended: Boolean);//эта строка говорит о том, что мы в

//implementation опишем конструкцию

//потока

end;

var

a: array [1..10] of potok;

Form1: TForm1;

nom:integer;

implementation

constructor potok.Create(CreateSuspended: Boolean);

begin

inherited Create(CreateSuspended);//Эта строка говорит о том, что поток после создания

//будет приостановлен если ему передать значение true при создание, если false, то сразу

//начнёт работу.

end;

{$R *.dfm}

procedure Ping(IP: String; OutMemo:TMemo);

const BUFSIZE = 2000;

var SecAttr : TSecurityAttributes;

hReadPipe,

hWritePipe : THandle;

StartupInfo: TStartUpInfo;

ProcessInfo: TProcessInformation;

Buffer : Pchar;

WaitReason,

BytesRead : DWord;

begin

with SecAttr do

begin

nlength := SizeOf(TSecurityAttributes);

binherithandle := true;

lpsecuritydescriptor := nil;

end;

if Createpipe (hReadPipe, hWritePipe, @SecAttr, 0) then

begin

Buffer := AllocMem(BUFSIZE + 1);

FillChar(StartupInfo, Sizeof(StartupInfo), #0);

StartupInfo.cb := SizeOf(StartupInfo);

StartupInfo.hStdOutput := hWritePipe;

StartupInfo.hStdInput := hReadPipe;

StartupInfo.dwFlags := STARTF_USESTDHANDLES +

STARTF_USESHOWWINDOW;

StartupInfo.wShowWindow := SW_HIDE;

if CreateProcess(nil,

PChar('ping.exe '+IP),

@SecAttr,

@SecAttr,

true,

NORMAL_PRIORITY_CLASS,

nil,

nil,

StartupInfo,

ProcessInfo) then

begin

repeat

WaitReason := WaitForSingleObject( ProcessInfo.hProcess,100);

Application.ProcessMessages;

until (WaitReason <> WAIT_TIMEOUT);

Repeat

BytesRead := 0;

ReadFile(hReadPipe, Buffer[0], BUFSIZE, BytesRead, nil);

Buffer[BytesRead]:= #0;

OemToAnsi(Buffer,Buffer);

OutMemo.Text := OutMemo.text + String(Buffer);

until (BytesRead