Попробуй с этим элементом и без.
P.S.: Мой пример у меня нормально работает (идеально), а у тебя какой error?
------------ Дoбавленo в 20.24:
С сетевыми элементами все-равно лагать будет, но меньше.
------------ Дoбавленo в 20.28:
ashkalov писал(а):
так? если я правильно понялТак:
Add(Button,5921940,266,217)
{
Left=20
Top=15
Width=75
TabOrder=-1
Caption="Open"
link(onClick,2859817:doOpen,[])
}
Add(Button,823836,266,259)
{
Left=20
Top=40
Width=75
TabOrder=-1
Caption="Close"
link(onClick,638543:doEvent1,[])
}
Add(TCP_Server,2859817,546,217)
{
Port=1001
DataType=3
Point(doCloseAll)
link(onConnect,11389349:doStrCat,[])
}
Add(ListBox,14852958,658,224)
{
Left=120
Top=15
Width=190
Height=145
}
Add(StrCat,11389349,602,224)
{
Str1="Connect: "
link(onStrCat,14852958:doAdd,[])
}
Add(Hub,638543,490,259)
{
link(onEvent1,2859817:doClose,[(511,265)(511,230)])
link(onEvent2,2859817:doCloseAll,[(525,272)(525,244)])
}
Add(Button,7965889,266,315)
{
Left=20
Top=65
Width=75
TabOrder=-1
Caption="SendClient"
Data=String(Massage)
link(onClick,15438237:doValue,[])
}
Add(ZLIB,8458001,469,315)
{
link(onStream,2859817:doSend,[(532,321)(532,237)])
}
Add(StreamPack,11782964,420,315)
{
DataCount=#5:index|4:data|
link(onPack,8458001:doCompress,[])
link(data,15438237:Value,[(433,303)(409,303)(409,360)(321,360)])
}
Add(MainForm,3742575,266,392)
{
Width=544
Height=370
}
Add(TCP_Client,12500207,441,413)
{
Port=1001
IP="127.0.0.1"
DataType=3
link(onRead,15802967:doDeCompress,[])
link(onConnect,10439453:doStop,[(488,426)(488,470)(310,470)(310,419)])
}
Add(Message,2796692,700,406)
{
}
Add(ZLIB,15802967,504,406)
{
link(onStream,9227562:doUnPack,[])
}
Add(StreamUnPack,9227562,560,406)
{
DataCount=#5:index|4:data|
link(onUnPack,15654783:doEvent,[])
}
Add(ChanelToIndex,14026521,364,315)
{
Count=3
link(onIndex,11782964:doPack,[])
}
Add(Memory,15438237,315,315)
{
link(onData,14026521:doWork1,[])
}
Add(IndexToChanel,15654783,616,406)
{
Point(Index)
Point(Data)
link(onEvent1,2796692:doMessage,[])
link(Index,9227562:index,[(622,385)(606,385)(606,457)(566,457)])
link(Data,9227562:data,[(629,394)(601,394)(601,450)(573,450)])
}
Add(Timer,10439453,322,406)
{
Interval=8000
link(onTimer,8631349:doEvent1,[])
}
Add(Hub,8631349,378,406)
{
link(onEvent1,1268929:doProcessMessages,[(413,412)(413,377)])
link(onEvent2,12500207:doOpen,[])
}
Add(Application,1268929,434,371)
{
}
Таймер ставь на 8000. (Ну никак уж не меньше 1000)



Поиск
Друзья
Администрация