約10スレッドのクライアントとしてwinsockを使用しています。
各スレッドには、同じホストとポートへの独自の接続があります。すべてのスレッドが接続されており、すべてのスレッドが同時に特定のバイト数を読み取る必要があります。一度に 1 つの recv 関数しか使用できないようですが、なぜですか?
function RecvThread ( p : pointer ) : Integer; stdcall;
var
Sock : TSocket;
Addr : TSockAddrIn;
res : Integer;
begin
Addr.sin_family := AF_INET;
Addr.sin_port := htons(8080);
Sock := Socket(AF_INET, SOCK_STREAM, 0);
Addr.sin_addr.S_addr := INET_ADDR (pchar('localhost'));
if (Connect(Sock, Addr, SizeOf(Addr)) = 0) then begin
while true do begin
res := recv (sock, buff, 99999, 0); // just example
if (res < 0) or (res = INVALID_SOCKET) then break;
end;
// Free Stuff, Disconnect, etc...
end;