CreateThread

← →
rimd (2004-01-05 14:37) [0]

что я не правильно пишу?
var
HThread:THandle;
idThread:DWORD;

HThread:=CreateThread(nil,0,@ThreadFNC,nil,0,idThread);

← →
Mystic (2004-01-05 14:41) [1]

1) Вместо CreateThread надо использовать BeginThread
2) Приведи объявление ThreadFNK

← →
Rimd (2004-01-05 14:41) [2]

функция выглядет так function ThreadFNC:boolean;

← →
panov (2004-01-05 14:42) [3]

>Rimd © (05.01.04 14:41) [2]

function ThreadFNC:boolean; stdcall;

← →
Rimd (2004-01-05 14:43) [4]

какая разница? компилятор говорит что я козел и делаю все неправильно!

← →
Mystic (2004-01-05 14:44) [5]

function ThreadFNC(Arg: Pointer): Integer; stdcall;

← →
YuRock (2004-01-05 14:46) [6]

Попробуй:

HThread:=CreateThread(nil,0,@ThreadFNC, Pointer(1),0,idThread);

← →
default (2004-01-05 14:48) [7]

"какая разница? компилятор говорит что я козел и делаю все неправильно!"
орех!!!!!

← →
rimd (2004-01-05 14:48) [8]

HThread:=CreateThread(nil,0,@ThreadFNC,<сюда ставит курсор и говорит variable required>nil,0,idThread);

← →
Mystic (2004-01-05 14:51) [9]

function ThreadFNC(Arg: Pointer): Integer; stdcall; begin Result := 0; end; procedure TForm1.Button1Click(Sender: TObject); var idThread:DWORD; begin BeginThread(nil,0,@ThreadFNC,nil,0,idThread); end;

Use this routine or a TThread object to spawn separate threads of execution instead of calling the CreateThread Win32API directly. BeginThread encapsulates the Win32 CreateThread API call, but unlike CreateThread, it sets the global IsMultiThread variable, thereby making the heap thread-safe.

← →
YuRock (2004-01-05 14:53) [10]

Что говорит компилятор? Если то, что я думаю, попробуй

HThread:=CreateThread(nil,0,@ThreadFNC, Pointer(1),0,@idThread);

← →
YuRock (2004-01-05 14:55) [11]

> YuRock © (05.01.04 14:53) [10]

Извиняюсь, я не правильно думал. Так что говорит компилятор?

← →
Mystic (2004-01-05 14:59) [12]

function ThreadFNC(Arg: Pointer): Integer; begin Result := 0; MessageBox(0, "test", "test", MB_OK); end; procedure TForm1.Button1Click(Sender: TObject); var idThread: DWORD; hThread: THandle; begin hThread := BeginThread(nil, 0, @ThreadFNC, nil, 0, idThread); WaitForSingleObject(hThread, INFINITE); end;

Там выше у меня ошибка --- при использовании BeginThread, stdcall указывать не надо.

← →
Rimd (2004-01-05 14:59) [13]

variable required

← →
YuRock (2004-01-05 15:05) [14]

Тогда напиши:

HThread := Windows.CreateThread(nil,0,@ThreadFNC, Pointer(1),0,idThread);

← →
Игорь Шевченко (2004-01-05 15:20) [15]

А голова зачем нужна ? Чтобы знать, на каком форуме вопрос задать ?

---
LMD

← →
sheriff (2004-01-06 08:06) [16]

переменные
idThread: DWORD;
hThread: THandle;
должны быть объявлены глобально.

← →
ak (2004-01-06 10:48) [17]

function ThreadFNC: Boolean;
begin
Result := False;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
HThread: THandle;
idThread: DWORD;
begin
HThread := CreateThread(nil, 0, @ThreadFNC, nil, 0, idThread);
end;

ничего не говорит
компилится
может это я что-то не правильно делаю?

← →
panov (2004-01-06 12:02) [18]

Для создания потока выполняем следующее:

1. Определяем функцию потока.

Например:
function ThreadFunc(s: ShortString):DWORD;stdcall; begin MessageBox(0,@s[1],"Это тест",MB_OK); Result := 1; end;

2. Определяем переменную для дескриптора потока в пределах нужной нам видимости, например, глобально:
var H: THandle;

3. Вызываем функцию CreateThread для создания потока.
var ThreadId: Cardinal; s: ShortString; MyExitCode: DWORD; begin s := "Test"; H := CreateThread(nil,0,@ThreadFunc,@s,0,ThreadId); WaitForSingleObject(H,1000); if GetExitCodeThread(H,MyExitCode) then begin if MyExitCode = STILL_ACTIVE then ShowMessage("Thread is active") else ShowMessage("Exit Code="+IntToStr(MyExitCode)); end else ShowMessage("Error"); CloseHandle(H); Не забываем освободить дескриптор!

CreateThread Найти похожие ветки