Вниз
Скачать: CL | DM;

Как получить данные из 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 ?


 
MegaVolt ©   (2004-11-11 15:24) [4]

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



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.023 c
14-1105614843
Ilya___
2005-01-13 14:14
2005.01.30
Подскажите, где можно взять библиотеку FastDib для Делфи 7.


11-1087991509
Boris
2004-06-23 15:51
2005.01.30
Присваиваю TBButtonText - не работает :(


10-1082451010
Dmitrij_K
2004-04-20 12:50
2005.01.30
Word Basic


8-1097952875
clampo
2004-10-16 22:54
2005.01.30
PaintBox


14-1105561830
syte_ser78
2005-01-12 23:30
2005.01.30
У кого Longhorn есть?




   Наверх