LAZARUS и создание потока

[lollollollol]

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

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

Есть код

ThID:=BeginThread(nil,0,@CreateWind owLogin,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> "



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

[Stilet]

Пример: http://www.programmersforum.ru/showp...87&postcount=4

[lollollollol]

Спасибо! Решил вопрос заменой BeginThread на CreateThread, но сейчас переделаю на Begin.


И хотелось бы узнать, есть ли между ними принципиальные отличия? Ну например в работе с памятью (выделение памяти/освобождение) и т.д.?
И если есть, то какие, и что лучше использовать, если в потоке будет выполняться работа с сетью, и ображение к визуальным компонентам приложения, спасибо

[abit]

lollollollol
судя по всему там не @CreateWind owLogin а @CreateWindowLogin, но это фиг с ним,
разница между BeginThread на CreateThread хотя бы в том, что последняя это winAPI и для Lazarus это моветон

[lollollollol]

гну пробел эт я уже тут случайно ткнул похоже.

сейчас столкнулся с такой проблемой - прога вылетает с текстом

Проект project1 вызвал класс исключения 'External:
SIGSEGV".
По адресу 40ВА74

причём происходит это всегда на разных строках, иногда при ображении к визуальным компоненам (edit) иногда при работе с сетью...

Не пойму, толи поток глючит, толи ешё что... в делфи всё ок было

[abit]

lollollollol
SIGSEGV это линуховое название ошибки сегментации, причин может быть дофига - обращение к элементу за пределы массива, попытка append к уже пишушемуся файлу и т.д., на моей практике я переносил только один проект с дельфей (который был вообще чужой), там SIGSEGV случался при попытке писать в несуществующий порт COM после его закрытия, хотя вру, был ещё случай один, но там отдельная песня... вообще винда это терпела, но Lazarus рождённый в Linux это не терпит и требует аккуратности, зато взамен даёт тебе кросплатформенный код, который даже на Native C++ нельзя повторить, если есть возможность дай фрагменты кода куда дебаггер тебя вываливает при этой ошибке, возможно что-то разберём... если нет возможности - то лучшее решение - нахрен всё переписать по типичным шаблонам с нуля в Lazarus начать с заглушек, потом по немногу вставляя код из Delphi... тогда никаких ошибок SIGSEGV, до тех пор пока не вставишь тот код, где она родилась и уже над ним надо думать

[Stilet]

сейчас столкнулся с такой проблемой

А че действительно в API полез? Чем TThread не устроило?

Не пойму, толи поток глючит, толи ешё что...

Код покажешь?

[lollollollol]

Всем спасибо за помощь!
Очень приятно что есть люди, которые готовы помочь!

Проблема с вылетом успешно решена, заменил CreateThread на BeginThread.

Оказывается чтобы использывать BeginThread нужно указывать не ссылку на процедуру, а именно на функцию, причём вида

function ControlAuth(parameter: pointer): ptrint;