Вверх ↑
Этот топик читают: Гость
Разработчик
Ответов: 26069
Рейтинг: 2121
#1: 2013-02-08 02:50:21 ЛС | профиль | цитата
Предлагаю вниманию прототип компонента для определения списка открытых TCP и UDP портов на вашем ПК. Обладает очень высоким быстродействием.
Нужен вам такой компонент или нет
карма: 22

6
файлы: 1tcp_udp_tables.sha [8.9KB] [398]
Голосовали:GAv, miver, sаmakacd, Ex_, login, Konst
vip
#1.1контекстная реклама от партнеров
Гость
Ответов: 17029
Рейтинг: 0
#2: 2013-02-08 04:28:54 правка | ЛС | профиль | цитата


Редактировалось 9 раз(а), последний 2021-06-21 04:16:54
карма: 0

0
Главный модератор
Ответов: 2997
Рейтинг: 395
#3: 2013-02-08 04:49:13 ЛС | профиль | цитата
[flood]"... а дед говорит: "Делай добро, бросай его в воду, оно не пропадёт - добром к тебе вернётся!" © Ух ты, говорящая рыба! студии "Арменфильм"[/flood]

карма: 6
Дорогу осилит идущий. Install/Update HiAsm.NET
0
Ответов: 1535
Рейтинг: 176
#4: 2013-02-08 07:59:48 ЛС | профиль | цитата
nesco, один пельмень, проект заморожен, а доступ на SVN пока открыт. Авторитетным разработчикам, думаю вообще, не стоило бы сомневаться в необходимости того или иного компонента. Его тоже добавь.
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
Разработчик
Ответов: 26069
Рейтинг: 2121
#5: 2013-02-08 09:17:39 ЛС | профиль | цитата
ser_davkin писал(а):
проект заморожен

Заморожен для глобальных изменений, потому, что не развивается сама среда. Но кто-то еще в ней работает и что-то делает. Да и для больших изменений меня уже не хватает, а помощников, как таковых, у меня нет.

ser_davkin писал(а):
Его тоже добавь

Я его еще не смотрел пока
карма: 22

0
Ответов: 50
Рейтинг: 2
#6: 2013-02-08 15:20:18 ЛС | профиль | цитата
Я думаю пригодится.Вот если бы ещё порты удалённых компов проверять.
карма: 0

0
Разработчик
Ответов: 26069
Рейтинг: 2121
#7: 2013-02-09 03:56:04 ЛС | профиль | цитата
Gorgar писал(а):
Вот если бы ещё порты удалённых компов проверять

TCP можно проверять по IP и номеру порта, но не таблицей. С UDP в этом плане сложнее
------------ Дoбавленo в 03.56:
Добавлен компонент TCPStat

Пример использования

Add(MainForm,6449431,161,210)
{
Width=755
Height=380
Caption="TCP_UDP_Stat"
Position=1
}
Add(Button,13770907,161,266)
{
Left=305
Top=265
Width=120
TabOrder=-1
Caption="GetTCP_UDP_Stat"
link(onClick,8963922:doEvent1,[])
}
Add(MTStrTbl,13900364,245,210)
{
Left=10
Top=10
Width=500
Height=250
Name="TCPtable"
Columns=#13:LocalAddr=104|12:LocalPort=80|14:RemoteAddr=104|13:RemotePort=80|9:State=104|
FlatScroll=1
}
Add(MST_RowAction,3724182,441,266)
{
MSTControl="TCPtable"
}
Add(MTStrTbl,15510300,287,210)
{
Left=520
Top=10
Width=210
Height=250
Name="UDPtable"
Columns=#13:LocalAddr=104|12:LocalPort=80|
FlatScroll=1
}
Add(MST_RowAction,1059487,441,308)
{
MSTControl="UDPtable"
}
Add(Hub,8963922,217,266)
{
link(onEvent1,11490515:doClear,[])
link(onEvent2,2478611:doClear,[])
}
Add(MST_Clear,11490515,245,266)
{
MSTControl="TCPtable"
link(onChange,10400764:doEnumTCP,[])
}
Add(MST_Clear,2478611,287,273)
{
MSTControl="UDPtable"
link(onChange,10400764:doEnumUDP,[])
}
Add(TCPStat,10400764,350,266)
{
Point(doPortIsOpen)
Point(onPortIsOpen)
Point(IP)
Point(Port)
link(onEnumTCP,3724182:doRowAction,[])
link(onEnumUDP,1059487:doRowAction,[(412,279)(412,314)])
link(onPortIsOpen,14571567:doEvent,[(403,286)(403,356)])
link(IP,835315:Text,[])
link(Port,4363003:Text,[(363,254)(405,254)])
}
Add(Edit,835315,350,210)
{
Left=255
Top=290
Width=125
Text="127.0.0.1"
Alignment=1
}
Add(Edit,4363003,399,210)
{
Left=385
Top=290
Width=75
Text="80"
Alignment=1
}
Add(Button,8230190,287,308)
{
Left=310
Top=315
Width=120
TabOrder=-1
Caption="TCPIsOpen"
link(onClick,10400764:doPortIsOpen,[(335,314)(335,286)])
}
Add(IndexToChanel,14571567,441,350)
{
link(onEvent1,10557658:doOff,[])
link(onEvent2,10557658:doOn,[])
}
Add(LED,10557658,497,343)
{
Left=465
Top=290
Width=20
Height=20
Shape=1
ColorBlick=128
}

карма: 22

0
Ответов: 8888
Рейтинг: 823
#8: 2013-02-09 09:45:14 ЛС | профиль | цитата
nesco писал(а):
Пример использования
Лишняя буковка затесалась
AAdd(MainForm,6449431,161,210)

карма: 19

0
Разработчик
Ответов: 26069
Рейтинг: 2121
#9: 2013-02-09 12:16:40 ЛС | профиль | цитата
Леонид писал(а):
Лишняя буковка затесалась

Спасибо. Исправил
карма: 22

0
9
Сообщение
...
Прикрепленные файлы
(файлы не залиты)