Вверх ↑
Ответов: 824
Рейтинг: 138
#1: 2013-03-06 00:21:38 ЛС | профиль | цитата
foksov писал(а):
для себя (пригодится) так уменьшил схему

Да, так красивше, НО! А если папка с подпапками, то как сохранить структуру папок?
А у вас все пути обрезанными получаются.
И еще кое что к вашей схемке
Add(MainForm,525705,161,217)
{
Width=341
Height=264
BorderStyle=1
Position=1
}
Add(Edit,11641370,371,259)
{
Left=80
Top=40
Width=240
Text=""
ReadOnly=0
link(onChange,16186774:doWork1,[])
}
Add(Button,15167945,280,259)
{
Left=10
Top=40
Width=60
Caption="Pack"
link(onClick,5279826:doBrowse,[])
}
Add(Browse,5279826,328,259)
{
Title="Select Pack Folder"
NewStyle=0
NewDirButton=1
link(onBrowse,11641370:doText,[])
}
Add(FileSearch,16211729,595,273)
{
@Hint=#32:Перебор файлов в выбранной папке|
Include=2
link(onSearch,2497688:doEvent1,[])
link(onEndSearch,8981773:doWork2,[])
link(Dir,11641370:Text,[(608,246)(270,246)(270,304)(377,304)])
}
Add(FileStream,6417429,728,280)
{
link(onLoad,12372662:doCompress,[])
}
Add(Hub,2497688,693,273)
{
OutCount=3
link(onEvent1,8103499:doPart,[(716,279)(716,223)])
link(onEvent2,6417429:doOpen,[])
link(onEvent3,6417429:doClose,[])
}
Add(StreamPack,5291126,910,280)
{
DataCount=#4:name|4:file|
link(onPack,9160003:doCopyFromStream,[])
link(name,8103499:Part,[])
}
Add(LZMA,12372662,777,280)
{
NumFastBytes=100
Point(onError)
Point(onProgress)
Point(onProgressMax)
Point(NumFastBytes)
link(onStream,5291126:doPack,[])
link(onError,2937064:In,[])
link(onProgress,658387:doPosition,[])
link(onProgressMax,658387:doMax,[])
link(NumFastBytes,16246606:Position,[])
}
Add(FileStream,9160003,959,259)
{
Mode=2
AutoCopy=0
Point(doPosition)
Point(doCopyFromStream)
link(FileName,13358558:Text,[])
}
Add(Edit,13358558,959,203)
{
Left=80
Top=70
Width=240
Text=""
ReadOnly=0
}
Add(Label,10395854,210,217)
{
Left=15
Top=75
Width=60
Height=17
Caption="Pack file"
}
Add(Hub,6126339,497,259)
{
link(onEvent1,13358558:doText,[(766,265)(766,209)])
link(onEvent2,8167377:doStart,[(529,272)(529,279)])
}
Add(Button,4267202,203,350)
{
Left=15
Top=135
Caption="Unpack"
link(onClick,5748844:doBrowse,[])
}
Add(Edit,14149603,294,350)
{
Left=80
Top=135
Width=240
Text=""
link(onChange,4717789:doExecute,[])
}
Add(LZMA,9541520,812,413)
{
Point(onError)
Point(onProgress)
Point(onProgressMax)
link(onStream,16576570:doCopyFromStream,[])
link(Stream,3188131:file,[(818,397)(727,397)])
link(onError,1784934:doWork2,[])
link(onProgress,2114059:doPosition,[])
link(onProgressMax,2114059:doMax,[])
}
Add(Browse,5748844,245,350)
{
Title="Select directory for unpacking"
NewStyle=0
link(onBrowse,14149603:doText,[])
}
Add(ODialog,4717789,336,350)
{
Filter="Аривы .arh|*.arh"
link(onExecute,6699180:doText,[])
}
Add(FileStream,15990580,427,350)
{
link(onLoad,9680130:doStart,[])
}
Add(Repeat,9710618,574,350)
{
Type=5
link(onRepeat,13446187:doEvent1,[])
link(Op1,16558484:Var1,[(580,338)(567,338)])
link(Op2,7466463:Var1,[(587,330)(560,330)])
}
Add(StreamUnPack,3188131,714,350)
{
DataCount=#4:name|4:file|
link(onUnPack,12582555:doEvent1,[])
link(Stream,15990580:Stream,[(720,338)(623,338)(623,453)(433,453)])
}
Add(Hub,12582555,763,350)
{
link(onEvent1,10514405:doString,[])
link(onEvent2,9541520:doDeCompress,[(792,363)(792,426)])
}
Add(FileStream,16576570,917,399)
{
Mode=1
AutoCopy=0
Point(doCopyFromStream)
link(FileName,10514405:FString,[])
}
Add(FormatStr,10514405,917,350)
{
Mask="%1\%2"
Point(FString)
link(Str1,14149603:Text,[(923,333)(1003,333)(1003,478)(300,478)])
link(Str2,3188131:name,[(930,340)(1079,340)(1079,470)(720,470)])
}
Add(ProgressBar,2114059,868,427)
{
Left=15
Top=200
Width=305
ProgressColor=16711680
Point(doMax)
}
Add(Message,5512458,1036,385)
{
Caption="Error"
Icon=1
}
Add(StrList,8468926,987,378)
{
@Hint=#11:Коды ошибок|
Strings=#38:Невозможно установить параметры сжатия|28:Входной поток очень короткий|20:Ошибка данных потока|24:Неверные свойства потока|0:|
Point(onGetString)
Point(doGetString)
link(onGetString,5512458:doMessage,[])
AddHint(53,60,83,13,@Hint)
}
Add(ProgressBar,658387,833,294)
{
Left=15
Top=100
Width=305
ProgressColor=-16777203
Point(doMax)
}
Add(Label,12768151,210,259)
{
Left=15
Top=175
Width=58
Height=17
Caption="Unpack file"
}
Add(Edit,6699180,383,350)
{
Left=80
Top=170
Width=240
Text=""
ReadOnly=0
link(onChange,15990580:doOpen,[])
}
Add(TrackBar,16246606,784,231)
{
Left=90
Top=10
Width=235
Height=20
Max=273
Min=5
TickCount=10
Position=100
}
Add(Label,7559356,210,175)
{
Left=10
Top=15
Width=78
Height=17
Caption="Сompres quality"
}
Add(StyleXP,7260468,161,259)
{
}
Add(Message,6449715,651,280)
{
Message="Finish"
}
Add(HubEx,1784934,966,420)
{
link(onEvent,8468926:doGetString,[])
}
Add(LineBreak,1519131,917,441)
{
Caption="err"
link(Out,1784934:doWork3,[(970,447)])
Primary=[2937064,-42,-154]
}
Add(FilePartElm,8103499,910,217)
{
Point(Part)
}
Add(MultiElement,16186774,420,259)
{
link(onEvent1,6126339:doEvent1,[])
}
BEGIN_SDK
Add(EditMulti,16311143,217,84)
{
EventCount=1
WorkCount=1
Width=335
Height=109
link(doWork1,12916087:doPart,[])
}
Add(Memory,6949699,434,98)
{
}
Add(FilePartElm,12916087,238,84)
{
Point(Part)
link(onPart,12088736:doString,[])
}
Add(FormatStr,12088736,279,84)
{
DataCount=1
Mask="%1.arh"
Point(FString)
link(onFString,12372000:doExecute,[])
}
Add(SDialog,12372000,322,84)
{
Filter="Аривы .arh|*.arh"
FileName=""
link(onExecute,6581540:doEvent1,[(375,90)(375,160)])
}
Add(Hub,6581540,385,154)
{
OutCount=3
link(onEvent1,1180747:doFileExists,[])
link(onEvent2,15374328:doEvent,[(417,167)(417,146)])
link(onEvent3,16311143:onEvent1,[(529,174)(529,90)])
}
Add(IndexToChanel,15374328,434,140)
{
Point(Index)
link(onEvent2,1180747:doDelete,[])
link(Index,6949699:Value,[])
}
Add(FileTools,1180747,483,133)
{
link(onEnd,6949699:doValue,[(522,139)(522,90)(424,90)(424,104)])
}
END_SDK
Add(Hub,13446187,616,350)
{
link(onEvent1,3188131:doUnPack,[])
link(onEvent2,1044259:doCompare,[(641,363)(641,419)])
}
Add(HubEx,8981773,637,280)
{
link(onEvent,6449715:doMessage,[])
}
Add(If_else,1044259,651,413)
{
link(onTrue,8981773:doWork3,[(695,419)(695,323)(641,323)])
link(Op1,16558484:Var3,[(657,404)])
link(Op2,7466463:Var3,[(664,396)])
}
Add(GetDataEx,16558484,561,399)
{
Angle=3
link(Data,15990580:Size,[(440,404)])
}
Add(GetDataEx,7466463,554,391)
{
Angle=3
link(Data,15990580:Position,[(447,396)])
}
Add(Thread,8167377,546,273)
{
FastStop=0
link(onExec,16211729:doSearch,[])
}
Add(Thread,9680130,497,350)
{
FastStop=0
link(onExec,9710618:doRepeat,[])
}



карма: 1

0