Make(delphi)
ver(4.04 build 184)
Add(MainForm,2953706,450,273)
{
 Width=333
 Height=428
 Caption=" прием/передача данных по UDP"
 link(onCreate,9381402:doEvent1,[(520,293)(520,265)])
}
Add(UDP,16613730,714,259)
{
 LocalPort=1100
 RemotePort=1200
 LocalIP="192.168.1.55"
 RemoteIP="192.168.1.25"
 AutoConnect=0
 Point(doSendTo)
 link(RemoteIP,816558:Text,[(727,223)(671,223)])
}
Add(Edit,3294312,553,203)
{
 Left=10
 Top=110
 Width=280
 Height=45
 Text="Данные для отправки"
 link(onEnter,16613730:doSendTo,[(649,216)(649,293)])
}
Add(Edit,816558,665,154)
{
 Left=10
 Top=40
 Width=280
 Height=25
 Text="192.168.1.25"
}
Add(Label,13086839,660,105)
{
 Left=35
 Top=15
 Width=234
 Height=24
 Font=[MS Sans Serif,12,0,255,1]
 Caption="Введите IP-адрес назначения"
 ColorHover=255
}
Add(Label,7350271,553,105)
{
 Left=5
 Top=75
 Width=308
 Height=20
 Font=[MS Sans Serif,10,0,255,1]
 Caption="Введите данные для отправки и нажмите Enter"
 ColorHover=255
}
Add(Hub,9381402,567,259)
{
 link(onEvent1,16613730:doOpen,[])
 link(onEvent2,3909008:doOpen,[(599,272)(599,349)])
}
Add(Edit,7168619,735,342)
{
 Left=10
 Top=205
 Width=280
 Height=120
 Text=""
}
Add(UDP,3909008,616,343)
{
 LocalPort=1200
 RemotePort=1200
 LocalIP="192.168.1.55"
 RemoteIP="192.168.1.25"
 link(onReceive,7168619:doText,[(667,349)(667,348)])
}
Add(Label,11821426,469,105)
{
 Left=70
 Top=165
 Width=143
 Height=24
 Font=[MS Sans Serif,12,0,255,1]
 Caption="Принятые данные"
 ColorHover=255
}
Add(Label,126674,99,364)
{
 Left=10
 Top=335
 Width=262
 Height=42
 Caption="Примечание: для работы программы, IP адрес ПК должен быть равным 192.168.1.55, а удаленное устройство должно занимать порт 1200"
 AutoSize=1
 Alignment=2
}