И в чем проблема-то
------------ Дoбавленo в 00.38:
Так, что ли
Add(MainForm,4047907,126,140)
{
Width=688
Height=545
}
Add(ScreenShort,11628527,280,252)
{
link(onCapture,11732004:doEvent1,[])
}
Add(Button,8045911,123,182)
{
Left=285
Top=475
Caption="Save"
link(onClick,1061640:doStart,[])
}
Add(Hub,8122056,231,182)
{
link(onEvent1,3864290:doClear,[])
link(onEvent2,11628527:doCapture,[(263,195)(263,258)])
}
Add(MemoryStream,3864290,378,175)
{
}
Add(Thread,1061640,168,182)
{
Delay=200
FastStop=0
link(onExec,8122056:doEvent1,[])
link(onSyncExec,7676628:doEvent1,[(216,195)(216,377)])
}
Add(Image,4002693,490,350)
{
Left=25
Top=25
Width=625
Height=440
}
Add(GetDataEx,2573881,378,217)
{
link(Data,3864290:Stream,[])
}
Add(Jpeg,4939507,378,238)
{
Quality=50
Point(doLoadFromBitmap)
Point(doSaveToStream)
Point(Stream)
link(Stream,2573881:Var2,[])
}
Add(Hub,11732004,336,252)
{
OutCount=3
link(onEvent1,4939507:doLoadFromBitmap,[])
link(onEvent2,4939507:doSaveToStream,[])
link(onEvent3,5645089:doCompress,[(388,272)(388,286)])
}
Add(Jpeg,7040765,427,350)
{
Quality=50
Point(Stream)
Point(doLoadFromStream)
Point(doBitmap)
link(onBitmap,4002693:doLoad,[])
}
Add(Hub,9362269,378,364)
{
link(onEvent1,7040765:doLoadFromStream,[])
link(onEvent2,7040765:doBitmap,[])
}
Add(FileStream,2851129,490,266)
{
FileName="probe.zip"
Mode=1
AutoCopy=0
Point(doCopyFromStream)
}
Add(FileStream,4025477,280,371)
{
FileName="probe.zip"
AutoCopy=0
link(onLoad,3604761:doDeCompress,[])
}
Add(Hub,7676628,252,371)
{
link(onEvent1,4025477:doOpen,[])
link(onEvent2,4025477:doClose,[])
}
Add(ZLIB,5645089,427,280)
{
link(onStream,2851129:doCopyFromStream,[])
link(Stream,2573881:Var3,[(433,222)])
}
Add(ZLIB,3604761,329,364)
{
link(onStream,9362269:doEvent1,[])
}