Как получить данные из TIdMappedPortTCP ?

← →
MegaVolt © (2004-11-10 17:49) [0]

Нужно получить входные данные из TIdMappedPortTCP изменить их и отправить дальше. А так же нужно знать от кого эти данные пришли. Как это возможно реализовать? Я пробовал разобратся с хелпом самостоятельно но так ничего и не понял. Нужно исспользовать IdConnectionIntercept если я правильно понимаю. Но как с этим Штексузе работать я не понимаю :( Пробовал искать примеры в инете тоже бесполещно :( Выручайте.

← →
MegaVolt © (2004-11-10 18:21) [1]

В результате раздумий сделал так:
procedure TForm1.IdMappedPortTCP1Connect(AThread: TIdMappedPortThread); begin AThread.Connection.Intercept:=TIdConnectionIntercept.Create(Form1); AThread.Connection.Intercept.OnReceive:=IdConnectionIntercept1Receive; end; procedure TForm1.IdMappedPortTCP1Disconnect(AThread: TIdMappedPortThread); var ind:integer; begin AThread.Connection.Intercept.Free; end;
в IdConnectionIntercept1Receive принимаю информацию. Пользователей различаю по AThread.Connection.Intercept
Такой подход правильный? Так и нужно создавать на каждого пользователя свой Intercept?

← →
MegaVolt © (2004-11-11 15:04) [2]

Сделал запустил. Теперь она закрывается вообще без ругани. Как такое возможно? Какой класс ошибок может вызвать такой эффект?

← →
Digitman © (2004-11-11 15:12) [3]

ты же в

http://delphimaster.net/view/6-1100011528/

сказал что это именно то что тебе нужно ?!

значит, надо понимать, разобрался в логике и функциональности !

какого ж тогда рожна вопросы продолжаешь сыпать ? причем те же самые по сути, что и при использовании TServer/ClientSocket ?

Само перенаправление пашет на ура :) А вот когда я добавил обработку приложение на большой нагрузке просто закрывается без слов :( Вот меня и инетересует как такое возможно. Или должна быть ошибка или винда например ругнулась бы. А так молча без слов оп и закрылась. Отлаживать на боевом серваке не могу :( Следовательно остаётся гадать в чём может быть дело.

Как получить данные из TIdMappedPortTCP ? Найти похожие ветки