Ravilr писал(а):
забыл написать я как всегда проверяю на FPCНу, звэняйте, батьку

А схема у тебя сильная, однако

Вот эту попробуй, для чистоты эксперимента
Add(MainForm,11110781,497,140)
{
Left=300
Top=200
Width=153
Height=129
Caption="LZMA Demo"
BorderStyle=3
}
Add(LZMA,1755314,301,189)
{
DictionarySize=20
ProgressInterval=1000
Point(DestSize)
Point(onProgress)
Point(onProgressMax)
Point(onError)
link(onStream,1185699:doEvent1,[(341,195)(341,167)])
link(Stream,12259100:Stream,[])
link(onProgress,11003155:doPosition,[])
link(onProgressMax,11003155:doMax,[])
link(onError,8038993:doMessage,[])
}
Add(Button,10125888,105,84)
{
Left=10
Top=25
TabOrder=-1
Caption="Pack"
link(onClick,1096359:doEvent1,[])
}
Add(Button,6333852,105,147)
{
Left=80
Top=25
TabOrder=-1
Caption="Unpack"
link(onClick,5168960:doEvent1,[])
}
Add(ODialog,1914952,210,84)
{
FileName=""
link(onExecute,12259100:doOpen,[])
}
Add(FileStream,12259100,301,84)
{
link(onLoad,16264439:doExecute,[])
}
Add(Memory,11596301,392,84)
{
}
Add(SDialog,16264439,343,84)
{
FileName=""
link(onExecute,11596301:doValue,[])
}
Add(FileStream,13389639,392,147)
{
Mode=1
AutoCopy=0
Point(doCopyFromStream)
link(FileName,11596301:Value,[])
}
Add(Hub,1185699,350,161)
{
OutCount=4
link(onEvent1,13389639:doCopyFromStream,[])
link(onEvent2,13703545:doStop,[(433,174)(433,153)])
link(onEvent3,12259100:doClose,[(376,181)(376,136)(289,136)(289,97)])
link(onEvent4,6925404:doString,[(376,188)(376,283)(285,283)(285,251)])
}
Add(Message,8664802,392,245)
{
Caption="Done!!!"
}
Add(ProgressBar,11003155,448,196)
{
Top=79
Width=147
Align=4
Ctl3D=0
WinStyle=2
Smooth=1
ProgressColor=7554575
Point(doMax)
}
Add(FormatStr,6925404,301,245)
{
DataCount=1
Mask="File size is %1 bytes"
link(onFString,8664802:doMessage,[])
link(Str1,1755314:DestSize,[])
}
Add(Message,8038993,392,210)
{
Caption="Error"
Icon=1
}
Add(TimeCounter,13703545,448,140)
{
link(onStop,11110781:doCaption,[(488,153)(488,146)])
}
Add(Hub,1096359,154,84)
{
link(onEvent1,7999595:doWork2,[])
link(onEvent2,1934272:doStart,[(193,97)(193,146)])
}
Add(Hub,5168960,154,147)
{
link(onEvent1,7999595:doWork3,[(186,153)])
link(onEvent2,13232037:doStart,[(186,160)(186,195)])
}
Add(HubEx,7999595,182,84)
{
link(onEvent,1914952:doExecute,[])
}
Add(Thread,1934272,210,140)
{
Delay=0
FastStop=0
link(onExec,4009044:doEvent1,[])
}
Add(Thread,13232037,210,189)
{
Delay=0
FastStop=0
link(onExec,2659492:doEvent1,[])
}
Add(Hub,4009044,252,140)
{
link(onEvent1,15631013:doWork2,[])
link(onEvent2,1755314:doCompress,[(284,153)(284,195)])
}
Add(Hub,2659492,252,189)
{
link(onEvent1,15631013:doWork3,[(277,195)])
link(onEvent2,1755314:doDeCompress,[])
}
Add(HubEx,15631013,273,140)
{
link(onEvent,13703545:doStart,[])
}