Цитата:
Код:
hThread:=BeginThread(nil, 0, Addr(TServerSock.SockWait), param, 0, threadID)
|
Param - надо указатель на указатель (как бывает в С), т.е. что-то вроде
Код:
hThread:=BeginThread(nil, 0, Addr(TServerSock.SockWait), Addr(cardinal(param)), 0, threadID)
в функции потока работать как раз как с указателем, не знаю почему так, в MSDN
Цитата:
lpParameter [in, optional]
A pointer to a variable to be passed to the thread
|
, но у меня так работает