Sockets

← →
HardClubber (2003-05-30 20:09) [0]

Работаю с TTCPClien и сервером соответственно. У меня вопросик: никак не пойму, как организовать работу одновременно, скажем, 100 пользователям с сервером?
Создать 100 TcpClient"ов или ещё как?

Заранее благодарен

← →
HardClubber (2003-05-30 21:35) [1]

Народ! помогите! сессия в разгаре!
Нужно: максимум от 100 клиентов получить запрос на данные, и одновременно им с сервера все эти данные отдать.

Какие есть варианты? желательно exmple"ы, т.к. разбираться некогда, думал будет проще :)

← →
HardClubber (2003-05-30 22:45) [2]

Нашёл в 6 делфях компоненты clientsocket и сервер соответственно.
Есть ли аналог в 7 делфи?

← →
Dwemer (2003-06-01 06:43) [3]

В ДЕЛФИ 7 есть эти же самые ClientSocket и Server, просто их убрали из палитры компонентов. В uses добавь модуль ScktComp и:
var
ClientSocket1: TClientSocket;
....
ClientSocket1:=TClientSocket.Create(nil);
with ClientSocket1 do
begin
Active:=FALSE;
ClientType:=ctNonBlocking;
Host:=chat_host;
Port:=80;
OnConnect:=ClientSocket1Connect;
OnRead:=ClientSocket1Read;
OnError:=ClientSocket1Error;
end;
....
procedure TfmMain.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
....
и т. д.

Sockets Найти похожие ветки