linux socket i/o模型,基于Delphi的Socket I/O模型全接触

procedure TListenThread.Execute;

var

addr : TSockAddrIn;

fd_read : TFDSet;

timeout : TTimeVal;

ASock,

MainSock : TSocket;

len, i : Integer;

begin

MainSock := socket( AF_INET, SOCK_STREAM, IPPROTO_TCP );

addr.sin_family := AF_INET;

addr.sin_port := htons(5678);

addr.sin_addr.S_addr := htonl(INADDR_ANY);

bind( MainSock, @addr, sizeof(addr) );

listen( MainSock, 5 );

while (not Terminated) do

begin

FD_ZERO( fd_read );

FD_SET( MainSock, fd_read );

timeout.tv_sec := 0;

timeout.tv_usec := 500;

if select( 0, @fd_read, nil, nil, @timeout ) > 0 then //至少有1个等待Accept的connection

begin

if FD_ISSET( MainSock, fd_read ) then

begin

for i:=0 to fd_read.fd_count-1 do //注意，fd_count <= 64，也就是说select只能同时管理最多64个连接

begin

len := sizeof(addr);

ASock := accept( MainSock, addr, len );

if ASock <> INVALID_SOCKET then

....//为ASock创建一个新的线程，在新的线程中再不停地select

end;

end;

end;

end; //while (not self.Terminated)

shutdown( MainSock, SD_BOTH );

closesocket( MainSock );

end;