code_11322.txt
------------ Дoбавленo:
Сервер
Add(MainForm,44932,84,91)
{
Width=219
Height=305
Point(onClose)
link(onCreate,3363318:doOpen,[])
link(onClose,3363318:doClose,[])
}
Add(TCP_Server,3363318,189,105)
{
Port=534
link(onRead,10028629:doEvent1,[])
link(onConnect,7441850:doAdd,[(243,118)(243,195)])
}
Add(ListBox,7441850,266,189)
{
Left=10
Top=60
Width=185
Height=200
}
Add(StrPart,4941184,350,112)
{
Char=";"
link(onSplit,11263676:doText,[])
link(onPart,1531600:doText,[(432,125)(432,153)])
}
Add(Edit,1531600,462,147)
{
Left=10
Top=10
Width=185
}
Add(Edit,11263676,462,112)
{
Left=10
Top=35
Width=185
}
Add(Charset,7860795,294,112)
{
Type=4
link(onCharset,4941184:doSplit,[])
link(Text,16440180:GetData,[])
}
Add(Hub,10028629,259,105)
{
link(onEvent1,16440180:doData,[(283,111)(283,62)])
link(onEvent2,7860795:doCharset,[])
}
Add(EventFromData,16440180,294,56)
{
}
Клиент
Add(Menu,15478480,168,287)
{
Menu=#14:Получить прайс|15:Отправить прайс|
Point(onSelectNum)
link(onSelectNum,13034002:doEvent,[])
}
Add(IndexToChanel,13034002,217,294)
{
Count=4
link(onEvent1,16000270:doEvent1,[])
}
Add(Edit,6976912,469,245)
{
Left=355
Top=10
Text="534"
DataType=1
}
Add(Edit,7962037,273,126)
{
Left=30
Top=10
Text="afandi"
}
Add(Label,4920964,231,63)
{
Left=10
Top=15
Width=15
Height=17
Caption="ID"
}
Add(Label,7181043,273,63)
{
Left=90
Top=13
Height=17
Caption="Password"
}
Add(Label,10621713,315,63)
{
Left=321
Top=13
Width=23
Height=17
Caption="Port"
}
Add(Edit,3325293,322,126)
{
Left=145
Top=11
Text="pswd"
}
Add(TCP_Client,3892390,413,301)
{
Port=534
IP="127.0.0.1"
link(IP,788135:Text,[(419,286)(377,286)])
link(Data,8659398:Value,[])
link(Port,6976912:Text,[(433,289)(475,289)])
}
Add(Label,2044784,189,63)
{
Left=201
Top=13
Width=35
Height=17
Caption="Server"
}
Add(Edit,788135,371,245)
{
Left=241
Top=13
Width=70
Text="127.0.0.1"
}
Add(Hub,16000270,266,294)
{
OutCount=4
link(onEvent1,10234635:doString,[(310,300)(310,195)])
link(onEvent2,3892390:doOpen,[])
link(onEvent3,3892390:doSend,[(400,314)(400,321)])
link(onEvent4,4203426:doAdd,[(346,321)(346,377)])
}
Add(Memo,4203426,413,371)
{
Left=10
Top=60
Width=395
Height=245
link(Str,3892390:Active,[])
}
Add(Label,7071050,147,63)
{
Left=10
Top=40
Width=74
Height=17
Caption="log from debug"
}
Add(FormatStr,10234635,315,189)
{
Mask="%1;%2"
Point(FString)
link(onFString,7860795:doCharset,[])
link(Str1,7962037:Text,[(321,173)(279,173)])
link(Str2,3325293:Text,[])
}
Add(MainForm,2953706,56,91)
{
Width=429
Height=355
}
Add(Charset,7860795,371,189)
{
Type=5
link(onCharset,8659398:doValue,[])
link(Text,10234635:FString,[(377,177)(360,177)(360,229)(321,229)])
}
Add(Memory,8659398,420,189)
{
}