Скачать: CL | DM;

вопрос по 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.021 c