[crossmark]

Доброго времени!
Поставил цель побороться с WinSock. Но столкнулся с проблемой с потоками. Не получается в поток передать параметры. Подскажите что не так. Может из-за того что класс и память получается разная?
Это лишь кусочек кода.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81

unit socket_u;   interface   uses windows,winsock,messages;   type TParamThread=record       hServSocket:integer; end; PParamThread=^TParamThread;     type TServerSock=class private   wsData : WSADATA;   SocketAdrr : sockaddr_in;   ServType : TServType;   function CreateSocket:integer; //шаг 2 создание сокета   function SetServSocket:integer; // шаг 3  настройка сокета   function SyncServ:integer;   function SockConnect: integer; //соединение   function SockAccept(accept_cocket:TSocket; addr: PSOCKADDR; addrlen: PInteger ): TSocket; public   ServSocket : integer;   errCreate : boolean;   constructor create;    //шаг 1 инициализация сокета   destructor destroy;   function ServerConnect:boolean;   function GetNameHost:String;   function GetIPAdress(name:PAnsiChar):string;   procedure NetMsg(var M:TMessage); message WM_MESS;   function ServerRecv(accept_cocket:TSocket; buf:PAnsiChar;len,flags:integer):integer; // recv получение данных   function ServerSend(accept_cocket:TSocket; buf:PAnsiChar;len,flags:integer):integer; // send отправка данных   procedure ServerCreateThread;   function SockWait(s:pointer):DWORD; end;     var vServType:TServType;     vClientType:TClientType;     Param:PParamThread; implementation     procedure TServerSock.ServerCreateThread; var //thread:array[1..100] of cardinal;     hThread:THandle;     ThreadID:DWORD;     p:pointer; begin     hThread:=BeginThread(nil, 0, Addr(TServerSock.SockWait), param, 0, threadID);   end;   function TServerSock.SockWait(s:pointer):DWORD; var csocket:TSocket;     cs:integer;     buf:array[1..100]of pansichar;     i:integer;     p:TParamThread; begin    p:=PParamThread(s)^;    Finalize(PParamThread(S)^);  //   FreeMem(S);   while True do   begin       sleep(1);       //csocket:=SockAccept(ServSocket,Pointer(@SocketAdrr),Pointer(@SocketAdrr));       i:=sizeof(SocketAdrr);       csocket:=accept(Result,Pointer(@SocketAdrr),pointer(i));       if csocket<>-1 then       begin        serverrecv(csocket,buf[1],sizeof(buf),0);        messagebox(0,PWideChar(buf[1]),PCHAR('Recv'),mb_ok);       end;       if csocket<> INVALID_SOCKET then          begin              closesocket(csocket); // закрываем сокет          end;   end; end;

Т.е. hThread:=BeginThread(nil, 0, Addr(TServerSock.SockWait), param, 0, threadID); Тут param получает значение номер сокета, а в функции function TServerSock.SockWait(sointer)WORD;
s получается пустой. точнее какой то мусор наверное. тут p:=PParamThread(s)^; очень большое значение.
Что не так, уже сутки думаю....
Спасибо

[cotseec]

Код:

Param - надо указатель на указатель (как бывает в С), т.е. что-то вроде

Код:

1	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

, но у меня так работает

[icWasya]

Кроме того, третим параметром BeginThread должен быть указатель на свободную функцию, а у Вас указатель на метод.
В результате получается каша.
Метод SockWait ждёт, что ему будет передан указатель на объект типа TServerSock, а этого не происходит.

[crossmark]

спасибо получилось