вопрос по ServerSocket

← →
JFX (2003-07-23 06:48) [0]

procedure TForm1.ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket); var ......... ................. ServerSocket1.Socket.Connections[????].SendText("текст ответа");
//как узнать номер соединения текущего сообщения?

(т.е. клиентЫ и сервер.) При входящем запросе на сервер от клиента необходимо послать ему(клиенту) ответ..

← →
Dimich1978 (2003-07-23 08:24) [1]

table1.FieldByName("ID").asinteger:=integer(testsock);
так можно в БД хранить номер сокета и по нему отправлять данные
TestSock:=tCustomWinSocket(FieldByName("ID").asInteger);//достаем номер из БД
TestSock.SendText("Start"); и отправляем

← →
Digitman (2003-07-23 08:29) [2]

> JFX

а зачем, номер-то этот, он нужен в дан случае ?

при такой постановке задачи все гораздо проще :

procedure TForm1.ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket); var ......... ................. Socket.SendText("текст ответа");

вопрос по ServerSocket Найти похожие ветки