Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Object Pascal: кроссплатформенные технологии > LAZARUS и BeginThread = ?

Автор: lollollollol 3.11.2014, 15:43

Всех приветствую!

Не могу создать поток. переношу проект из делфи.

Есть код

ThID:=BeginThread(nil,0,@CreateWindowLogin,nil,0,tid)

и вот тут то ошибка

test.pas(697,51) Error: Incompatible type for arg no. 3: Got "<address of procedure;CDecl>", expected "<procedure variable type of function(Pointer):LongInt;Register>"

Уже всяко прбывал, не могу понять что я делаю не так.

Автор: ФедосеевПавел 4.11.2014, 12:33

Минимальный вариант компилируется

Код

{$mode DELPHI}

program rrr;

function CreateWindowLogin (parameter: pointer) : PtrInt;
begin
end;

var
  ThID: TThreadID;
  tid: TThreadID;
begin
 ThID:=BeginThread(nil,0,@CreateWindowLogin,nil,0,tid)
end.

Видимо, функция CreateWindowLogin объявлена не совсем так.

Описания можно посмотреть в ref.pdf.