 |
|
Модераторы: Snowy, Poseidon, MetalFan |
 
|
|
TIdMappedPortTcp, Узнать IP клиента 
| ponomar |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 8 Регистрация: 20.9.2007 Репутация: нет Всего: нет |
Подскажите,пожалуйста,как можно узнать IP клиента,который коннектится на
default port компонента TIdMappedPortTcp? И отключить его,если он в списке запрещённых.  |
|||
|
||||
Загрузка ...
| Snowy |
|
|||
 Эксперт  Профиль Группа: Модератор Сообщений: 11363 Регистрация: 13.10.2004 Где: Питер Репутация: 53 Всего: 484 |
В OnConnect:
AThread.Connection.Socket.PeerIP Отключить также через AThread.Connection |
|||
|
||||
| ponomar |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 8 Регистрация: 20.9.2007 Репутация: нет Всего: нет |
Не получается. У меня в AThread.Connection. нет Socketа (Delphi6)
procedure TForm1.IdMappedPortTCP1Connect(AThread: TIdPeerThread); begin edit1.Text:=AThread.Connection. нет Socketа ... end; или я что-то не так делаю? :-( |
|||
|
||||
| ponomar |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 8 Регистрация: 20.9.2007 Репутация: нет Всего: нет |
Спасибо! Разобрался:
edit1.Text:=AThread.Connection.Binding.PeerIP; теперь буду терзать отключение запрещённых IP. Пока не закрываю тему. |
|||
|
||||
| ponomar |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 8 Регистрация: 20.9.2007 Репутация: нет Всего: нет |
Разобрался с отключением:
var s:string; s:=AThread.Connection.Binding.PeerIP; if s='192.168.X.X' then AThread.Connection.Disconnect; огромное спасибо за помощь! |
|||
|
||||
| Snowy |
|
|||
|
Эксперт Профиль Группа: Модератор Сообщений: 11363 Регистрация: 13.10.2004 Где: Питер Репутация: 53 Всего: 484 |
Опять Binding пропустил
 Просто нет под рукой 9-й инди... Писал по памяти... |
|||
|
||||
|
|
| Правила форума "Delphi: Сети" | |
|
|
Запрещено: 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делится вскрытыми компонентами
Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: Сети | Следующая тема » |
[ Время генерации скрипта: 0.0834 ] [ Использовано запросов: 22 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |