StreamUnPack
------------ Дoбавленo в 21.15:
вот так
Add(MainForm,2953706,175,266)
{
link(onCreate,1277618:doEvent1,[])
}
Add(TCP_Server,13179667,287,280)
{
Port=80
DataType=3
link(onRead,4656024:doUnPack,[])
}
Add(ODialog,5748111,126,343)
{
link(onExecute,3296064:doOpen,[])
}
Add(FileStream,3296064,189,343)
{
link(onLoad,3606325:doPack,[])
}
Add(StreamUnPack,4656024,336,280)
{
DataCount=#4:file|
link(onUnPack,2744615:doExecute,[])
}
Add(TCP_Client,14765468,287,329)
{
Port=80
IP="127.0.0.1"
DataType=3
}
Add(Hub,1277618,224,280)
{
link(onEvent1,13179667:doOpen,[])
link(onEvent2,14765468:doOpen,[(262,293)(262,335)])
}
Add(StreamPack,3606325,238,343)
{
DataCount=#4:file|
link(onPack,14765468:doSend,[])
link(file,3296064:Stream,[(244,331)(64,331)(64,405)(195,405)])
}
Add(SDialog,2744615,420,280)
{
link(onExecute,2062270:doEvent1,[])
}
Add(FileStream,16700377,490,343)
{
Mode=1
Point(doCopyFromStream)
link(FileName,16428879:Value,[])
}
Add(DoData,8205502,336,336)
{
link(onEventData,8071723:doEvent1,[(427,342)(427,356)])
link(Data,4656024:file,[])
}
Add(Hub,2062270,462,280)
{
link(onEvent1,8205502:doData,[(546,286)(546,406)(324,406)(324,342)])
link(onEvent2,16428879:doValue,[])
}
Add(Memory,16428879,490,287)
{
}
Add(Hub,8071723,434,350)
{
link(onEvent1,16700377:doOpen,[(469,356)(469,349)])
link(onEvent2,16700377:doCopyFromStream,[])
}
Add(Button,6937871,77,343)
{
Left=75
Top=50
link(onClick,5748111:doExecute,[])
}



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