VPF::Проблема с CreateThread - Форум программистов

Andreyzpr

Дата 27.9.2007, 22:05 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 190
Регистрация: 4.2.2007
Где: Украина

Репутация: нет
Всего: 1

Нашол я на єтом форуме такой код:

Код


CreateThread(nil, 128, @testproc, self, 0, h);

Если его применить, то программа, например при закачке файла не будет виснуть.
Решил попробовать применить его, таким способом:

Код


procedure TForm1.testproc;
begin
ShowMessage('Пашет!!!');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
h:cardinal;
begin
CreateThread(nil, 128, @testproc, self, 0, h);
end;

но у меня подчеркнуло строку

Код


CreateThread(nil, 128, @testproc, self, 0, h);

курсор показан после @testproc и пишет ошибку:

Код


[Error] Unit1.pas(3207): Variable required

Где я допустил ошибку?

VICTAR

Дата 27.9.2007, 22:45 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 37
Всего: 80

Код


procedure testproc;
begin
ShowMessage('Пашет!!!');
end;

procedure TForm1.btn1Click(Sender: TObject);
var
  h:cardinal;
begin
  CreateThread(nil, 128, @testproc, self, 0, h);
end;

вероятно testproc не должна быть методом

Это сообщение отредактировал(а) VICTAR - 27.9.2007, 22:56

Andreyzpr

Дата 27.9.2007, 23:27 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 190
Регистрация: 4.2.2007
Где: Украина

Репутация: нет
Всего: 1

Всеравно....

VICTAR

Дата 27.9.2007, 23:34 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 37
Всего: 80

У меня все ок. D7

Это сообщение отредактировал(а) VICTAR - 27.9.2007, 23:34

Coder

Дата 28.9.2007, 03:36 (ссылка)

(голосов:1)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 733
Регистрация: 13.12.2004

Репутация: 5
Всего: 11

вообще-то функция потока имеет такой прототип:

Код


DWORD WINAPI ThreadFunc( LPVOID );

Pascal:

Код


function ThreadProc(p : pointer) : DWORD;

и попробуй вызывать так (если не нужно параметры передавать):

Код


CreateThread(nil,0,@ThreadProc,nil,0,h);

Это сообщение отредактировал(а) Coder - 28.9.2007, 03:37

Andreyzpr

Дата 28.9.2007, 13:28 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 190
Регистрация: 4.2.2007
Где: Украина

Репутация: нет
Всего: 1

Спасибо всем за помощь, есессно по репе тоже.. Ошибка была в том, что я описал процедуру в верху, там где все процедуры описываются, а этого делать не нужно было.. Все работает smile

)))))))))))))))))))))))))))))))))))

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »