Вверх ↑
Разработчик
Ответов: 26163
Рейтинг: 2127
#1: 2008-06-20 11:05:41 ЛС | профиль | цитата
Можно немного увеличить скорость обнаружения дисков:



Add(MainForm,10153734,203,189)
{
Left=20
Top=105
link(onCreate,4609391:doEvent1,[])
}
Add(UDP,6550112,462,147)
{
LocalPort=8888
RemotePort=9999
LocalIP="127.0.0.1"
RemoteIP="127.0.0.1"
Point(doSendTo)
link(onReceive,7760830:doAdd,[])
}
Add(Edit,12844596,350,168)
{
Left=5
Top=10
Width=125
Text="doInfo"
link(onEnter,6550112:doSendTo,[])
}
Add(ListBox,7760830,518,147)
{
Left=5
Top=35
Width=125
Height=155
}
Add(UDP,11456131,350,252)
{
LocalPort=9999
RemotePort=8888
LocalIP="127.0.0.1"
RemoteIP="127.0.0.1"
AutoConnect=0
link(onReceive,12663661:doTimer,[])
}
Add(DiskInfo,12888210,532,245)
{
Point(OccupiedSpace)
Point(FreeSpace)
Point(FullSize)
}
Add(Hub,4609391,273,203)
{
link(onEvent1,6550112:doOpen,[(319,209)(319,153)])
link(onEvent2,11456131:doOpen,[(330,216)(330,258)])
}
Add(Timer,12663661,406,252)
{
Interval=10
Enable=1
AutoStop=1
link(onTimer,4523079:doEvent1,[])
}
Add(ArrayEnum,7924878,553,308)
{
link(onItem,11456131:doSend,[(598,314)(598,352)(338,352)(338,265)])
link(Array,12888210:IdArray,[])
}
Add(Hub,4523079,462,252)
{
link(onEvent1,12888210:doArrayId,[])
link(onEvent2,7924878:doEnum,[(524,265)(524,314)])
}

карма: 22

1
Голосовали:Konst