Make(delphi)
ver(4.04 build 185)
Add(MainForm,10068627,84,168)
{
 Width=404
 Height=260
 Position=1
}
Add(StreamPack,10340199,287,245)
{
 DataCount=#4:file|4:size|6:marker|
 link(onPack,9842506:doWork2,[])
 link(file,14442660:Stream,[])
 link(size,14442660:Size,[])
 link(marker,8929118:Value,[(307,223)(342,223)])
}
Add(Button,5140504,168,63)
{
 Left=360
 Top=10
 Width=20
 TabOrder=-1
 Caption="..."
 link(onClick,3795129:doBrowse,[])
}
Add(Label,8577940,70,84)
{
 Left=8
 Top=12
 Width=61
 Height=17
 Caption="File name 1:"
}
Add(Edit,16013048,399,63)
{
 Left=70
 Top=10
 Width=280
 Text=""
}
Add(Memory,8929118,336,168)
{
 Default=String(###@@###)
}
Add(FileStream,14442660,287,168)
{
 link(FileName,9716516:Text,[])
}
Add(Hub,11497132,217,154)
{
 OutCount=6
 link(onEvent1,5435882:doOpen,[])
 link(onEvent2,5435882:doClose,[])
 link(onEvent3,14442660:doOpen,[])
 link(onEvent4,10340199:doPack,[(259,181)(259,251)])
 link(onEvent5,14442660:doClose,[(269,188)(269,181)])
 link(onEvent6,5125147:doMessage,[(250,195)(250,293)])
}
Add(Button,1986578,168,112)
{
 Left=360
 Top=35
 Width=20
 TabOrder=-1
 Caption="..."
 link(onClick,12297160:doBrowse,[])
}
Add(Label,8499108,77,91)
{
 Left=8
 Top=37
 Width=61
 Height=17
 Caption="File name 2:"
}
Add(Edit,9716516,287,112)
{
 Left=70
 Top=35
 Width=280
 Text=""
}
Add(Button,6439125,168,154)
{
 Left=165
 Top=85
 TabOrder=-1
 Caption="Glue"
 link(onClick,11497132:doEvent1,[])
}
Add(Button,13144655,168,350)
{
 Left=360
 Top=115
 Width=20
 TabOrder=-1
 Caption="..."
 link(onClick,7955512:doBrowse,[])
}
Add(Label,12585667,84,98)
{
 Left=8
 Top=117
 Width=48
 Height=17
 Caption="File Glue:"
}
Add(Edit,1776236,343,350)
{
 Left=70
 Top=115
 Width=280
 Text="Glue.bin"
}
Add(Button,2524077,168,406)
{
 Left=165
 Top=190
 TabOrder=-1
 Caption="UnGlue"
 link(onClick,4286236:doEvent1,[])
}
Add(Browse,3795129,231,63)
{
 BrowseObj=3
 NewStyle=0
 NewDirButton=1
 link(onBrowse,16013048:doText,[])
}
Add(Browse,12297160,231,112)
{
 BrowseObj=3
 NewStyle=0
 NewDirButton=1
 link(onBrowse,9716516:doText,[])
}
Add(Browse,7955512,231,350)
{
 BrowseObj=3
 NewStyle=0
 NewDirButton=1
 link(onBrowse,1776236:doText,[])
}
Add(Message,5125147,287,287)
{
 Message="Glue Completed"
}
Add(Label,7242337,91,105)
{
 Left=8
 Top=62
 Width=48
 Height=17
 Caption="File Glue:"
}
Add(Edit,15070949,497,154)
{
 Left=70
 Top=60
 Width=280
 Text="Glue.bin"
}
Add(FileStream,5435882,399,154)
{
 link(onLoad,9842506:doWork1,[(466,160)])
 link(FileName,16013048:Text,[])
}
Add(FileStream,9551284,497,231)
{
 Mode=2
 AutoCopy=0
 Point(doCopyFromStream)
 link(FileName,15070949:Text,[])
}
Add(HubEx,9842506,462,245)
{
 link(onEvent,9551284:doCopyFromStream,[])
}
Add(Label,2957690,98,112)
{
 Left=8
 Top=142
 Width=61
 Height=17
 Caption="File name 1:"
}
Add(Edit,13166862,1078,784)
{
 Left=70
 Top=140
 Width=280
 Text="File1.bin"
}
Add(Label,12951079,105,119)
{
 Left=8
 Top=167
 Width=61
 Height=17
 Caption="File name 2:"
}
Add(Edit,15008679,973,672)
{
 Left=70
 Top=165
 Width=280
 Text="File2.bin"
}
Add(FileStream,3943823,343,406)
{
 Point(doPosition)
 link(FileName,1776236:Text,[])
}
Add(Hub,4286236,224,406)
{
 link(onEvent1,3943823:doOpen,[])
 link(onEvent2,3117731:doCalc,[(301,419)(301,552)])
}
Add(Memory,3812938,476,350)
{
 Default=String(###@@###)
}
Add(MathParse,3117731,350,546)
{
 MathStr="%1 - %2"
 ResultType=0
 Point(reCalc)
 link(onResult,11312099:doEvent1,[])
 link(X1,3943823:Size,[])
 link(X2,658853:GetData,[])
}
Add(EventFromData,658853,357,483)
{
 link(onEvent,7544579:doLength,[])
}
Add(Length,7544579,476,483)
{
 link(onLength,658853:doData,[(523,489)(523,477)(345,477)(345,489)])
 link(Str,14029723:Var2,[])
}
Add(StreamCopy,11213180,462,616)
{
 link(onCopy,13368875:doConvert,[])
 link(Dest,1813750:Var2,[])
 link(Source,8844142:Var2,[])
 link(Count,7544579:Result,[])
}
Add(MemoryStream,1622028,462,546)
{
}
Add(Hub,11312099,406,546)
{
 OutCount=3
 link(onEvent1,847408:doWork3,[(432,552)])
 link(onEvent2,1622028:doClear,[])
 link(onEvent3,11213180:doCopy,[(441,566)(441,622)])
}
Add(StreamConvertor,13368875,511,616)
{
 Mode=6
 link(onResult,1254192:doCompare,[])
 link(Data,1813750:Var3,[(517,593)])
}
Add(GetDataEx,1813750,462,588)
{
 link(Data,1622028:Stream,[])
}
Add(If_else,1254192,560,616)
{
 link(onTrue,6738174:doOperation,[])
 link(onFalse,13726638:doData,[(611,629)(611,923)])
 link(Op2,14029723:Var3,[(573,446)])
}
Add(GetDataEx,14029723,476,441)
{
 link(Data,3812938:Value,[])
}
Add(Math,6738174,623,616)
{
 OpType=1
 Op2=9
 ResultType=0
 link(onResult,2826611:doEvent1,[])
 link(Op1,3117731:Result,[(629,603)(356,603)])
}
Add(Hub,2826611,672,616)
{
 OutCount=7
 link(onEvent1,7654922:doWork3,[(733,622)])
 link(onEvent2,6709764:doGet,[])
 link(onEvent3,14687738:doClear,[(733,636)(733,685)])
 link(onEvent4,7791140:doCopy,[(726,643)(726,748)])
 link(onEvent5,6038032:doClear,[(718,650)(718,797)])
 link(onEvent6,1314144:doOperation,[(710,657)(710,846)])
 link(onEvent7,8639473:doData,[(702,664)(702,888)])
}
Add(HubEx,847408,428,523)
{
 Angle=2
 link(onEvent,3943823:doPosition,[(323,529)(323,426)])
}
Add(StreamCopy,7791140,791,742)
{
 link(onCopy,15783396:doData,[])
 link(Dest,14286228:Var2,[])
 link(Source,11747781:Var2,[])
 link(Count,3213156:Value,[])
}
Add(GetDataEx,8844142,469,453)
{
 Angle=3
 link(Data,3943823:Stream,[(349,458)])
}
Add(DataToFile,6709764,749,616)
{
 Type=3
 link(onGet,3213156:doValue,[])
 link(Stream,13776186:Var2,[])
}
Add(MathParse,10523218,847,616)
{
 MathStr="%1 - %2 - 1"
 ResultType=0
 Point(reCalc)
 link(onResult,11886557:doWork3,[(903,622)])
 link(X1,6738174:Result,[(853,597)(678,597)(678,680)(629,680)])
}
Add(HubEx,7654922,729,523)
{
 Angle=2
 link(onEvent,847408:doWork2,[])
}
Add(MemoryStream,14687738,791,672)
{
}
Add(GetDataEx,13776186,749,453)
{
 Angle=3
 link(Data,8844142:Var3,[])
}
Add(FileStream,14502193,973,728)
{
 Mode=1
 AutoCopy=0
 Point(doCopyFromStream)
 link(FileName,15008679:Text,[])
}
Add(DoData,15783396,833,742)
{
 link(onEventData,14502193:doCopyFromStream,[])
 link(Data,14286228:Var3,[(839,719)])
}
Add(GetDataEx,14286228,791,714)
{
 link(Data,14687738:Stream,[])
}
Add(Memory,3213156,805,616)
{
 link(onData,10523218:doCalc,[])
}
Add(Math,1314144,847,840)
{
 OpType=1
 Op2=5
 ResultType=0
 link(onResult,8030607:doEvent1,[])
 link(Op1,10523218:Result,[])
}
Add(GetDataEx,539008,973,826)
{
 link(Data,6038032:Stream,[])
}
Add(StreamCopy,5201282,973,847)
{
 link(onCopy,11450129:doData,[])
 link(Dest,539008:Var2,[])
 link(Source,11747781:Var3,[(986,458)])
}
Add(MemoryStream,6038032,973,784)
{
}
Add(FileStream,9263978,1078,833)
{
 Mode=1
 AutoCopy=0
 Point(doCopyFromStream)
 link(FileName,13166862:Text,[])
}
Add(DoData,11450129,1022,847)
{
 link(onEventData,9263978:doCopyFromStream,[])
 link(Data,539008:Var3,[(1028,831)])
}
Add(GetDataEx,11747781,798,453)
{
 Angle=3
 link(Data,13776186:Var3,[])
}
Add(Hub,8030607,889,840)
{
 link(onEvent1,6085590:doData,[(910,846)(910,825)])
 link(onEvent2,5201282:doCopy,[])
}
Add(DoData,6085590,917,819)
{
 Data=Integer(0)
 link(onEventData,11886557:doWork2,[(961,825)(961,529)])
}
Add(HubEx,11886557,899,523)
{
 Angle=2
 link(onEvent,7654922:doWork2,[])
}
Add(Message,2428725,847,882)
{
}
Add(DoData,8639473,749,882)
{
 Data=String(UnGlue Completed)
 link(onEventData,6474435:doWork2,[])
}
Add(DoData,13726638,749,917)
{
 Data=String(UnGlue Error)
 link(onEventData,6474435:doWork3,[(816,923)])
}
Add(HubEx,6474435,812,882)
{
 link(onEvent,2428725:doMessage,[])
}