Подскажите, как правильно передать параметр в поток!

← →
dimonf © (2003-06-15 15:07) [0]

Заполняю объект для передачи параметров потоку:
with Pop3Obj do
begin
pSerAddr := ServerAddr;
pCliAddr := ClientAddr;
pPort := Port;
( nil,0,@hPop3ClientEvent,addr(Pop3Obj) Заполняю объект для передачи параметров потоку:
with Pop3Obj do
begin
pSerAddr := ServerAddr;
pCliAddr := ClientAddr;
pPort := Port;
pSock := CServerSock;
end;

Потом создаю поток, при помощи команды CreateThread и передаю Pop3Obj как параметр:
hPop3Client := CreateThread(nil,0,@hPop3ClientEvent,addr(Pop3Obj),0,hPop3CliID);
...
function hPop3ClientEvent(p: Pointer): LongInt;
begin
socket := TPop3Object(p^).pSock;
end;
В функции обработки потока пытаюсь получить сокет из но почемуто у меня параметр равен nil. p = nil
Подскажите в чем дело, почему у меня указатель на параметр равен nil???

← →
Morfein © (2003-06-15 16:57) [1]

function hPop3ClientEvent(p: Pointer): LongInt; stdcall;

Подскажите, как правильно передать параметр в поток! Найти похожие ветки