SharedNoob
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Добрый день. Подскажыте пожалуйста.
У меня в приложении используется компонент IdMappedPortTCP, из Indy, я принимаю на какойто свой порт, к примеру 5501, пакеты, читаю IP, проверяю пожно ли пропустить пакеты с этого IP и перенаправляю на другой свой локальный порт, к примеру 5502. Так вот это все работает, а можно ли еще узнать название приложения которое подключается к порту 5501 ?
код считывания IP.
Код:
procedure TForm1.IdMappedPortTCP1Connect(AThread: TIdMappedPortThread);
begin
AThread.Connection.Socket.Binding.RecvFrom()
ADOStoredProc1.Active:=false;
ADOStoredProc1.Parameters.ParamByName('@IP').Value:=AThread.Connection.Socket.Binding.PeerIP; //JvEdit1.Text;
ADOStoredProc1.ExecProc;
If ADOStoredProc1.Parameters.ParamByName('@Access').Value='1' then AThread.Connection.Disconnect ;
end;
|
|
