Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Проблема с SendText в TserverSocket и TClientSocket [D5, WinME]

SergP © (2003-08-12 22:32:00)
Есть проблема. Не знаю как передать в TServerSocket данные

Своего рода это часть топика:
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1060683811&n=3
но с конкретным вопросом:

Вобщем вот пример: Получаю данные из TclientSocket и их нужно передать в TServerSocket.
Не могу врубиться как это сделать.

procedure TForm1.ClientSocketRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
r:=socket.ReceiveText; //получаем данные из TclientSocket
// Тут нужно передать содержимое r в Tserversocket
//************************
//socket.Data:=serversocket;
//TCustomWinSocket(Socket.Data).SendText(r);
//****************Это не работает
//
//************************
// Seversocket.socket.sendtext(r);
//*****************Тоже не работает
end;

Если так то не работает.... Ошибки вылезают

Digitman (2003-08-13 15:14:00) [1]

> SergP

если тебя заботит этот вопрос, тогда в Data храни не индекс, а ссылку на ClientSocket: TServerClientWinSocket

SergP (2003-08-13 15:03:00) [2]

Но как я понимаю индекс может меняться в процессе работы.
Приходится не индекс хранить а хендл соединения.
А потом индекс в цикле вычислять.

Вобщем пока вроде бы нашел как сделать.

Digitman (2003-08-13 08:32:00) [3]

> Типа хранить где-то нужно

в ClientSocket.Socket.Data и храни индекс i

SergP (2003-08-12 23:26:00) [4]

Помоему начинаю врубаться.
serversocket.Socket.Connections[i].SendText(r);

Только как получить этот номер соединения? Типа хранить где-то нужно?

Наверх

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