> в SocketThread идет проверка на INVALID_SOCKET, и получаю что vWorkSocket как раз INVALID_SOCKE
Где-то у тебя в коде ошибка.
Чисто для примера, сокет подключившегося клиента передается через параметр в CreateThread() -> ClientProc()
Прекрасно работает, принимает и отсылает данные по одному сокету, легко проверяется в telnet
| Код |
type
PThreadParameter = ^TThreadParameter;
TThreadParameter = record
ClientSocket : TSocket;
{...}
end;
procedure ClientProc(P: Pointer); stdcall;
var
cli : integer;
dat : Char;
begin
cli := PThreadParameter(p)^.ClientSocket;
while dat<>#13 do
begin
recv(cli, dat, SizeOf(dat), 0);
send(cli, dat, SizeOf(dat), 0);
end;
closesocket(cli);
Dispose(p);
end;
procedure TForm1.btn1Click(Sender: TObject);
var
wsaData: TWSAData;
ServerSocket: TSocket;
ClientSocket: TSocket;
SockAddr: TSockAddr;
i : Integer;
h : THandle;
Param : PThreadParameter;
begin
wsaStartup($101, wsaData);
ServerSocket := socket(AF_INET, SOCK_STREAM, IPPROTO_IP);
ZeroMemory(@SockAddr, SizeOf(SockAddr));
SockAddr.sin_family := AF_INET;
SockAddr.sin_port := htons(12345);
if bind(ServerSocket, SockAddr, SizeOf(SockAddr))<>0 then
Exit;
if listen(ServerSocket, 0)<>0 then
Exit;
repeat
i := SizeOf(SockAddr);
ClientSocket := accept(ServerSocket, @SockAddr, @i);
New(Param);
Param^.ClientSocket := ClientSocket;
CreateThread(nil, 0, @ClientProc, Param, 0, h);
until False;
end;
|
|
