Вверх ↑
Ответов: 1133
Рейтинг: 81
#1: 2011-02-06 07:31:09 ЛС | профиль | цитата
Во первых немного не в тему. Здесь обсуждение совсем другой программы.
Если для вашего вопроса нет подходящей темы, не ленимся, создаем новую тему с подробным описанием проблемы.

В вашем случае стоило бы описать более конкретно, что вы хотите получить от программы. Также что и каким образом она должна делать.
Взглянув на схему невозможно понять, что вы хотите сжимать? Пути с заголовками, или все таки файлы???
Вычисление хеш суммы работает токо в одном направлении, также с хеш получить исходные данные не получится.
Во третьих чтобы все получилось надо делать все поэтапно, сначала научится упаковывать, потом распаковывать и по ходу изучения дорабатывать программу.
Делать все подряд токо на основе своих предположений не разумно.
Для начала изучаем справку, примеры в составе HiAsm, примеры на форуме приведенные пользователями. А уж потом, если что не получается, просим помощи.


Add(ZLIB,29583,735,175)
{
link(onStream,13446509:doEvent1,[])
}
Add(MainForm,6154164,504,203)
{
Width=424
Height=104
Caption="Пример использования компонента ZLIB"
}
Add(FileStream,3591058,672,175)
{
link(onLoad,29583:doCompress,[])
link(FileName,8391724:Text,[])
}
Add(FileStream,8781623,840,182)
{
Mode=1
Point(doCopyFromStream)
link(onLoad,9334310:doMessage,[])
link(FileName,16388165:Value,[])
}
Add(Button,4479836,567,357)
{
Left=330
Top=40
Width=75
Enabled=1
Caption="Разпаковать"
Point(doEnabled)
link(onClick,7520501:doEvent1,[])
}
Add(Hub,13446509,784,175)
{
OutCount=3
link(onEvent1,8781623:doOpen,[(812,181)(812,188)])
link(onEvent2,8781623:doCopyFromStream,[(812,188)(812,202)])
link(onEvent3,8781623:doClose,[])
}
Add(ZLIB,15977970,728,350)
{
link(onStream,4932148:doEvent1,[])
}
Add(FileStream,2618446,665,357)
{
AutoCopy=0
link(onLoad,15977970:doDeCompress,[])
link(FileName,895296:Text,[(671,326)(675,326)])
}
Add(FileStream,8181486,840,357)
{
Mode=1
Point(doCopyFromStream)
link(onLoad,15758870:doMessage,[])
link(FileName,16461318:Result,[])
}
Add(Hub,4932148,777,350)
{
OutCount=3
link(onEvent1,8181486:doOpen,[(823,356)(823,363)])
link(onEvent2,8181486:doCopyFromStream,[(816,363)(816,377)])
link(onEvent3,8181486:doClose,[])
}
Add(Button,3924294,567,175)
{
Left=330
Top=10
Width=75
Enabled=1
Caption="Создать"
Point(doEnabled)
link(onClick,1789216:doEvent1,[])
}
Add(Message,9334310,896,182)
{
Message="Compress OK!""
link(Caption,8781623:Size,[(909,170)(940,170)(940,226)(853,226)])
}
Add(Message,15758870,896,357)
{
Message="DeCompress OK!"
}
Add(Hub,1789216,623,175)
{
link(onEvent1,3591058:doOpen,[])
link(onEvent2,3591058:doClose,[])
}
Add(Hub,7520501,637,357)
{
link(onEvent1,2618446:doOpen,[])
link(onEvent2,2618446:doClose,[])
}
Add(Browse,2102642,623,133)
{
BrowseObj=3
link(onBrowse,8391724:doText,[])
}
Add(Edit,8391724,672,133)
{
Left=5
Top=10
Width=285
Text=""
link(onChange,2754386:doStrCat,[])
}
Add(Button,579079,567,133)
{
Left=290
Top=10
Width=25
Caption="..."
link(onClick,2102642:doBrowse,[])
}
Add(Edit,895296,669,283)
{
Left=5
Top=40
Width=285
Text=""
link(onChange,8913450:doEvent1,[(708,289)(708,286)])
}
Add(Button,9288941,564,283)
{
Left=290
Top=40
Width=25
Caption="..."
link(onClick,11582438:doBrowse,[(606,289)(606,286)])
}
Add(Browse,11582438,616,280)
{
BrowseObj=3
link(onBrowse,895296:doText,[(658,286)(658,289)])
}
Add(StrCat,2754386,735,133)
{
Str2=".zipp"
link(onStrCat,16388165:doValue,[])
}
Add(Memory,16388165,840,133)
{
link(onData,3924294:doEnabled,[(884,139)(884,160)(555,160)(555,181)])
}
Add(FilePartElm,3591176,847,273)
{
Mode=2
Point(Part)
}
Add(FilePartElm,16527525,749,287)
{
Mode=0
link(onPart,16461318:doStrCat,[(811,293)(811,321)])
}
Add(Hub,8913450,714,280)
{
link(onEvent1,3591176:doPart,[(788,286)(788,279)])
link(onEvent2,16527525:doPart,[])
}
Add(StrCat,16461318,840,315)
{
link(onStrCat,4479836:doEnabled,[(884,321)(884,342)(555,342)(555,363)])
link(Str2,3591176:Part,[])
}
Add(InfoTip,6717098,546,84)
{
Info=#16:Упаковка файлов.|20: (Имя файла + .zipp)|
Font=[MS Sans Serif,10,0,16711680,1]
Width=407
Height=151
}
Add(InfoTip,7842944,546,245)
{
Info=#18:Разпаковка файлов.|19:(Имя файла - .zipp)|
Font=[MS Sans Serif,10,0,16711680,1]
Width=407
Height=151
}
Add(InfoTip,8726240,959,84)
{
Info=#64:Во время архивации имена файлов остаются прежними с добавлением |53:нового разширения .zipp (например: Документ.txt.zipp)|59:При разархивации дополнительное разширение .zipp удаляется.|0:|
Font=[MS Sans Serif,10,0,16711680,1]
Width=134
Height=312
}




карма: 2

0