OnClientRead у TServerSocket

← →
Ezorcist (2006-04-24 08:03) [0]

В процессе работы программы создаю несколько TServerSocket, назначаю им один и тот же OnClientRead. Как обратиться к св-вам компонета, который вызвал OnClientRead? Писал TServerSocket(Sender) неверно, тк Sender это TServerWinSocket.

← →
Сергей М. © (2006-04-24 08:29) [1]

Какие конкретно св-ва нужно получить/установить при этом ?

← →
Ezorcist (2006-04-24 16:22) [2]

Name и Tag

← →
Сергей М. © (2006-04-24 16:24) [3]

А зачем, если не секрет ?

Я к тому, что м.б. не в ту сторону движешься, и конечная задача решается проще и изящней ...

← →
Ezorcist (2006-04-24 17:07) [4]

Мне нужно знать от какого именно клиента приняты данные и к какому именно серверу он подключен.

← →
Сергей М. © (2006-04-24 17:13) [5]

Зачем ?
..

Ну раз это страшная тайна, то держи проктологический код:

for i:= 0 to ComponentCount - 1 do
if Components[i] is TServerSocket then
if TServerSocket(Components[i]) .Socket = Socket then
begin
ShowMessage(Components[i]).Name);
ShowMessage(IntToStr(TServerSocket(Components[i]).Tag));
break;
end;

← →
Ezorcist (2006-04-25 12:20) [6]

Ну это не страшная тайна просто проблема не в этом. Код в принципе подходит, только такой:

for i:= 0 to ComponentCount - 1 do
if Components[i] is TServerSocket then
if TServerSocket(Components[i]) .Socket = Sender then
begin
ShowMessage(Components[i]).Name);
ShowMessage(IntToStr(TServerSocket(Components[i]).Tag));
break;
end;

Но это долго как-то и не ловко( Нельзя как-то проще и изящней ...
?

> Ezorcist (25.04.06 12:20) [6]

Ну да, конечно же

if TServerSocket(Components[i]) .Socket = Sender then

здесь ты прав.

> это долго как-то и не ловко( Нельзя как-то проще и изящней

Поэтому проктология и была упомянута.

А "попроще и поизящней" без переделки scktcomp.pas - никак.

← →
Ezorcist (2006-04-25 13:40) [8]

Ну все-расно спасибо!

OnClientRead у TServerSocket Найти похожие ветки