Форум: "Сети";
Текущий архив: 2003.09.22;
Скачать: [xml.tar.bz2];
Внизвопрос по 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("текст ответа");
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2003.09.22;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.012 c