Проблема с SendText в TserverSocket и TClientSocket

← →
SergP © (2003-08-12 22:32) [0]

Есть проблема. Не знаю как передать в TServerSocket данные

Своего рода это часть топика:
http://delphimaster.net/view/15-1060683811/
но с конкретным вопросом:

Вобщем вот пример: Получаю данные из 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;

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

← →
SergP © (2003-08-12 23:26) [1]

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

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

← →
Digitman © (2003-08-13 08:32) [2]

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

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

← →
SergP © (2003-08-13 15:03) [3]

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

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

> SergP

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

Проблема с SendText в TserverSocket и TClientSocket Найти похожие ветки