Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

вопрос по 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"); и отправляем


Наверх

Титульная страница Поиск, карта сайта Написать письмо