Add(MainForm,6281821,266,182)
{
Caption="test"
BorderStyle=3
Position=1
}
Add(TCP_Server,1565123,448,182)
{
Port=80
DataType=3
Point(onServerConnect)
link(onRead,7391394:doCopy,[])
link(Data,7391394:Stream,[(454,170)(500,170)(500,226)(566,226)])
link(onServerConnect,7370736:doOn,[(492,209)(492,258)])
}
Add(TCP_Client,8336211,602,336)
{
Port=80
IP="127.0.0.1"
DataType=3
link(onRead,14896029:doDeCompress,[(650,342)(650,349)])
link(onConnect,290351:doOn,[(650,349)(650,391)])
}
Add(DoData,14219562,399,350)
{
Data=String(Hello)
link(onEventData,725654:doConvert,[])
}
Add(StreamConvertor,725654,448,350)
{
Mode=7
link(onResult,11242823:doCompress,[])
}
Add(LZMA,11242823,497,350)
{
link(onStream,8336211:doSend,[])
}
Add(InfoTip,15203036,336,301)
{
Info=#22:Часть клиент-программы|
Width=470
Height=123
}
Add(InfoTip,2509120,336,98)
{
Info=#22:Часть сервер-программы|
Width=470
Height=193
}
Add(MemoryStream,7391394,560,182)
{
link(onCopy,1565123:doSend,[(607,188)(607,154)(426,154)(426,202)])
}
Add(LZMA,14896029,665,336)
{
link(onStream,4317513:doConvert,[])
}
Add(StreamConvertor,4317513,714,336)
{
Mode=6
link(onResult,7430922:doMessage,[])
}
Add(Message,7430922,763,336)
{
}
Add(Button,7724664,357,182)
{
Left=10
Top=15
TabOrder=-1
Caption="Open"
link(onClick,1565123:doOpen,[])
}
Add(LED,7370736,504,238)
{
Left=75
Top=15
}
Add(LED,290351,665,371)
{
Left=75
Top=75
}
Add(Button,12623838,350,308)
{
Left=10
Top=75
TabOrder=-1
Caption="Connect"
link(onClick,8336211:doOpen,[(517,314)(517,342)])
}
Add(Button,742541,349,350)
{
Left=10
Top=100
TabOrder=-1
Caption="Send"
link(onClick,14219562:doData,[])
}
Разработчик
Ответов: 26206
Рейтинг: 2137
|
|||
В натуре, че мозги парить, файловый поток нормально передается через клиент-сервер-клиент
|
|||
карма: 22 |
|