Andrey писал(а):
теперь чато каком чате речь идет? можно ведь поправить схему.
------------ Дoбавленo в 16.56:
например как нибудь так.
Add(MainForm,16103852,154,98)
{
Top=100
link(onCreate,5632480:doOpen,[])
}
Add(TCP_Server,5632480,210,112)
{
Port=1001
DataType=3
Point(onServerConnect)
link(onRead,8934406:doUnPack,[])
link(onServerConnect,11053036:doTimer,[(264,139)(264,209)])
}
Add(TCP_Client,9048013,343,203)
{
Port=1001
IP="127.0.0.1"
DataType=3
link(onConnect,14937112:doPack,[])
}
Add(Memory,10214278,399,154)
{
Default=String(hel lo)
}
Add(Timer,11053036,280,203)
{
Enable=1
AutoStop=1
link(onTimer,9048013:doOpen,[])
}
Add(StreamPack,14937112,399,210)
{
DataCount=#1:1|1:2|
link(onPack,9048013:doSend,[(447,216)(447,257)(331,257)(331,223)])
link(1,10214278:Value,[])
link(2,1084202:Value,[])
}
Add(StreamUnPack,8934406,280,112)
{
DataCount=#1:1|1:2|
link(onUnPack,16340037:doMessage,[])
}
Add(Memory,1084202,406,161)
{
Default=String(127.0.0.1)
}
Add(Message,16340037,336,112)
{
link(Message,8934406:1,[(342,102)(390,102)(390,158)(286,158)])
link(Caption,8934406:2,[(349,107)(385,107)(385,156)(293,156)])
}
на выходе тоже самое. ip и data