Add(MainForm,6119550,84,294)
{
Width=219
Height=120
BorderStyle=1
}
Add(SDialog,4071568,308,203)
{
Filter="Tack |*.Tack|"
link(onExecute,12759610:doWork2,[])
}
Add(ODialog,13375160,133,154)
{
link(onExecute,5898549:doEvent1,[])
}
Add(Button,14769553,84,154)
{
Left=5
Top=5
Caption="Открыть"
link(onClick,13375160:doExecute,[])
}
Add(StyleXP,7085062,308,154)
{
}
Add(Edit,8924868,252,154)
{
Left=60
Top=5
Width=145
Text=""
}
Add(ZLIB,1359483,252,266)
{
link(onStream,5636311:doCopyFromStream,[])
link(Stream,16168829:Stream,[])
}
Add(ChildGroupBox,15669353,133,294)
{
link(onEvent1,1259856:doEvent1,[(173,300)(173,265)])
link(onEvent2,1372797:doEvent1,[])
}
BEGIN_SDK
Add(EditMulti,16142824,21,21)
{
EventCount=2
Width=258
Height=81
}
Add(GroupBox,14070160,91,28)
{
Left=5
Top=30
Width=200
Caption="Манипуляции с файлом"
}
Add(Button,6514738,133,28)
{
Left=5
Top=15
Width=80
Caption="Сжать"
link(onClick,16142824:onEvent1,[(243,34)(243,27)])
}
Add(Button,5732170,133,63)
{
Left=90
Top=15
Width=80
Caption="Восстановить"
link(onClick,16142824:onEvent2,[(243,69)(243,34)])
}
END_SDK
Add(FileStream,16168829,252,203)
{
link(FileName,8924868:Text,[])
}
Add(Hub,5898549,182,154)
{
link(onEvent1,8924868:doText,[])
link(onEvent2,16168829:doOpen,[(221,167)(221,209)])
}
Add(Hub,1259856,182,259)
{
OutCount=3
link(onEvent1,4071568:doExecute,[(295,265)(295,209)])
link(onEvent2,1359483:doCompress,[])
link(onEvent3,9251746:doWork2,[])
}
Add(FileStream,5636311,385,252)
{
Mode=1
AutoCopy=0
Point(doCopyFromStream)
link(FileName,9472851:Value,[])
}
Add(Memory,9472851,385,203)
{
}
Add(Hub,1372797,182,301)
{
OutCount=3
link(onEvent1,13211560:doExecute,[])
link(onEvent2,1359483:doDeCompress,[(243,314)(243,279)])
link(onEvent3,9251746:doWork3,[(221,321)])
}
Add(HubEx,9251746,217,266)
{
Angle=3
link(onEvent,16168829:doClose,[(221,216)])
}
Add(SDialog,13211560,308,301)
{
Filter=""
link(onExecute,12759610:doWork3,[(361,307)])
}
Add(HubEx,12759610,357,196)
{
link(onEvent,9472851:doValue,[])
}
Но надо научится различать, что строка -- это не файловый поток