Форум: "Начинающим";
Текущий архив: 2006.02.05;
Скачать: [xml.tar.bz2];
Вниз
CreateThread(nil,0,@MyProcedure,0,0,nil); Найти похожие ветки
← →
Tolik (2006-01-19 21:22) [0]Как передать свои параметры п процедуру?
например CreateThread(nil,0,@MyProcedure(1,1,2),0,0,nil); ?
← →
begin...end © (2006-01-19 21:42) [1]> Tolik (19.01.06 21:22)
type
PParam = ^TParam;
TParam = record
First, Second, Third: Integer
end;
function MyFunction(P: Pointer): Integer; stdcall;
var
Data: TParam;
begin
Data := PParam(P)^;
// Теперь в Data скопированы данные,
// указатель на которые был передан в функцию
...
Result := ...;
end;
var
Param: TParam;
hThread, ThreadId: Cardinal;
begin
Param.First := 1;
Param.Second := 1;
Param.Third := 2;
hThread := CreateThread(nil, 0, @MyFunction, @Param, 0, ThreadId);
...
end
Переменная Param не должна удаляться из памяти во время работы потока. Если её случится (например, при выходе из подпрограммы, в которой она объявлена), её адрес станет недействительным, и попытка обратиться к данным по этому адресу внутри поточной функции приведёт к ошибке. Впрочем, это же касается и переменных hThread и ThreadId -- первая из них потребуется для закрытия хэндла потока, а вторая может быть использована для получения кода его завершения.
И ещё: уж сколько раз твердили миру -- используйте BeginThread вместо CreateThread. Почему -- см. справку по BeginThread.
← →
begin...end © (2006-01-19 21:52) [2]> вторая может быть использована для получения кода его завершения
Сорри, это я погорячился -- для этого Id напрямую использован быть не может. Но если идентификатор будет нужен для иных целей, "предостережение" остаётся в силе.
> Если её случится...
Если это случится...
P.S. Да, preview бы не помешал...
← →
Tolik (2006-01-19 22:11) [3]Интересная штука получилась
function MyFunction(P: Pointer): Integer; stdcall;
var
Data: TParam;
i:integer;
begin
Data := PParam(P)^;
Result := Data.First;
for i:=0 to result do
begin
Form1.Memo1.Lines.Add(IntToStr(i));
// Теперь в Data скопированы данные,
// указатель на которые был передан в функцию }
end;
end;
Каждый раз запускаешь и каждый раз новый результат получается.Интересно,это почему
← →
begin...end © (2006-01-19 22:12) [4]> Tolik (19.01.06 22:11) [3]
Не понял, в чём проблема. Зато вижу обращение к VCL из неосновного потока.
← →
Tolik (2006-01-19 22:13) [5]Наверно тоже понадобится
type
PParam = ^TParam;
TParam = record
First, Second, Third: Integer
end;
и код батонаprocedure TForm1.Button1Click(Sender: TObject);
var
Param: TParam;
hThread, ThreadId: Cardinal;
begin
Param.First := 100;
//Param.Second := 1;
//Param.Third := 2;
hThread := BeginThread(nil, 0, @MyFunction, @Param, 0, ThreadId);
end;
← →
Tolik (2006-01-19 22:14) [6]На мемо выходит переменная i,которая равна 100.Так на мемо выходит то 106 то 110 то 115.Почему так?
← →
begin...end © (2006-01-19 22:19) [7]> Tolik (19.01.06 22:13) [5]
Во-первых, поскольку используете BeginThread, то соглашение о вызове функции MyFunction должно быть другим (уберите stdcall).
Во-вторых, я же ясно сказал в [1], что Param не должна удаляться из памяти. А Вы сделали её локальной переменной обработчика -- как только BeginThread запустит поток, обработчик завершится, и переменная Param перестанет существовать.
← →
Tolik (2006-01-19 22:23) [8]Кхе,следствие зашло в тупик:)
var
Form1: TForm1;
implementation
{$R *.dfm}
var
th1, th2: cardinal;
h1, h2: integer;
type
PParam = ^TParam;
TParam = record
First, Second, Third: Integer
end;
function MyFunction(P: Pointer): Integer;
var
Data: TParam;
i:integer;
begin
Data := PParam(P)^;
Result := Data.First;
for i:=0 to result do
begin
Form1.Memo1.Lines.Add(IntToStr(i));
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Param: TParam;
hThread, ThreadId: Cardinal;
begin
Param.First := 100;
Param.Second := 1;
Param.Third := 2;
hThread := BeginThread(nil, 0, @MyFunction, @Param, 0, ThreadId);
end;
не трудно ли будет сказать,как сделать Param глобальной
← →
begin...end © (2006-01-19 22:27) [9]> Tolik (19.01.06 22:23) [8]
> не трудно ли будет сказать,как сделать Param глобальной
Вынести за пределы обработчика Button1Click, очевидно. Вот сюда:
var
th1, th2: cardinal;
h1, h2: integer;
Param: TParam;
hThread: Cardinal;
← →
Tolik (2006-01-19 22:39) [10]Спасибо огромное!!!! Просто под конец дня плохо соображается.Еще раз спасибо за то что терпеливо обьяснили :)
← →
Tolik (2006-01-19 22:57) [11]А как можно узнать hThread для определенного потока,если таковых запущено несколько?
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.02.05;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.01 c
