![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
вопрос по ServerSocket
JFX © (2003-07-23 06:48:00)
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var .........
.................
ServerSocket1.Socket.Connections[????].SendText("текст ответа");
//как узнать номер соединения текущего сообщения?
(т.е. клиентЫ и сервер.) При входящем запросе на сервер от клиента необходимо послать ему(клиенту) ответ..
Digitman (2003-07-23 08:29:00) [1]
> JFX
а зачем, номер-то этот, он нужен в дан случае ?
при такой постановке задачи все гораздо проще :
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var .........
.................
Socket.SendText("текст ответа");
Dimich1978 (2003-07-23 08:24:00) [2]
table1.FieldByName("ID").asinteger:=integer(testsock);
так можно в БД хранить номер сокета и по нему отправлять данные
TestSock:=tCustomWinSocket(FieldByName("ID").asInteger);//достаем номер из БД
TestSock.SendText("Start"); и отправляем