Вверх ↑
Этот топик читают: Гость
Ответов: 119
Рейтинг: 0
#1: 2011-02-05 23:07:37 ЛС | профиль | цитата
Подскажите в чем ошибка, не могу сохранить распакованные файлы
code_22446.txt
карма: 0

0
Ответов: 1133
Рейтинг: 81
#2: 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
Ответов: 119
Рейтинг: 0
#3: 2011-02-06 16:50:34 ЛС | профиль | цитата
Извините, но форум чудной, лички нет, правил не нашел, ссылки работают не пойми как.
Очень нравится, что тут быстро помогают, но хочется не просто, чтоб сделали за тебя, а указали именно на ошибку, но и за первое спасибо)))
Заинтересовала программа HiUpdate, не испугала надпись "для опытных пользователей" виндовс и ворд я знаю очень хорошо.
Ну это так ради смеха)))
Так вот решил использовать это програму ради своих нужд, посмотрел принцип работы и начал делать необходимые инструменты, быть может легче было их спросить.
В первом сообщении это да согласен не сформулировал мысль.
Я понял, что по запакованному списку скачиваются запакованные файлы, я скачал один из файлов http://hiasm.com/hi_zvcs/findcomponent.sha , и начал его распаковывать,но необходимо работать с группой файлов.
Каждый файл запакован отдельно по своему первоначальному имени.

code_22455.txt
карма: 0

0
файлы: 1code_22455.txt [1003B] [124]
Ответов: 315
Рейтинг: 1
#4: 2011-02-06 16:55:34 ЛС | профиль | цитата
Solid, личка есть, "ЛС" (слева, под ником ответившего пользователя)
карма: 0

0
Ответов: 3349
Рейтинг: 233
#5: 2011-02-06 17:07:43 ЛС | профиль | цитата
GS_Lab, Она не доступно участникам.
карма: 1

0
Ответов: 119
Рейтинг: 0
#6: 2011-02-06 17:12:10 ЛС | профиль | цитата
Оффтоп, вобщем при отправлении лички создает тему если недоступна, то лучше, чтоб ее не было, удалите мои сообщения проба лички.
карма: 0

0
Ответов: 1133
Рейтинг: 81
#7: 2011-02-06 17:14:22 ЛС | профиль | цитата
Solid писал(а):
Я понял, что по запакованному списку скачиваются запакованные файлы, я скачал один из файлов http://hiasm.com/hi_zvcs/findcomponent.sha , и начал его распаковывать,но необходимо работать с группой файлов.

А чего его распаковывать по приведенной ссылке скачивается нормальный .sha файл.
Во вторых ето должно работать так, получаете хеш суму файла на сервере, потом сравниваете с хеш такого же файла на компе, если не совпадает качаем, если совпадает пропускаем.

Извиняюсь, недоглядел. Файл действительно запакован, а я случайно не тот файл открыл.
карма: 2

0
Ответов: 119
Рейтинг: 0
#8: 2011-02-06 17:39:50 ЛС | профиль | цитата
Файл не нормальный, а запакованный, для того чтобы сделать запаковщик, делаю распаковщик. Не пойму почему не сохраняет, файл распаковывается успешно и по имени из массива должен сохранятся...но увы.
карма: 0

0
Ответов: 1133
Рейтинг: 81
#9: 2011-02-06 17:59:22 ЛС | профиль | цитата
Несколькими постами выше я привел Вам пример упаковки и распаковки файлов.
Попробуйте с помощью моего примера распаковать файл, а потом распакованный файл переименовать с расширением .sha

карма: 2

0
Ответов: 119
Рейтинг: 0
#10: 2011-02-06 20:36:27 ЛС | профиль | цитата
tom-it писал(а):
Несколькими постами выше я привел Вам пример упаковки и распаковки файлов.
Попробуйте с помощью моего примера распаковать файл, а потом распакованный файл переименовать с расширением .sha

Моя схема работает и так прекрасно и сохраняет, но не могу распаковать группу файлов, не сохраняет, вручную один файл без проблем.
карма: 0

0
Ответов: 1133
Рейтинг: 81
#11: 2011-02-06 21:42:08 ЛС | профиль | цитата
Solid писал(а):
но не могу распаковать группу файлов

Так сойдет?
code_22456.txt
карма: 2

1
файлы: 1code_22456.txt [4.7KB] [201]
Голосовали:Solid
Ответов: 119
Рейтинг: 0
#12: 2011-02-06 23:35:53 ЛС | профиль | цитата
Спасибо, большое распаковку переделал все работает. А вот запаковка постоянно вылетает ошибка рунтайм ерор
карма: 0

0
Ответов: 1133
Рейтинг: 81
#13: 2011-02-07 00:21:58 ЛС | профиль | цитата
[flood]
Solid писал(а):
А вот запаковка постоянно вылетает ошибка рунтайм ерор

Ну выкладывайте что не работает, в свободное время посмотрим.[/flood]


карма: 2

0
Ответов: 119
Рейтинг: 0
#14: 2011-02-07 00:36:34 ЛС | профиль | цитата
Да, нет из вашего примера пакую файлы sha и вылетает ошибка(( а распаковка работает.
карма: 0

0
Ответов: 1133
Рейтинг: 81
#15: 2011-02-07 01:09:28 ЛС | профиль | цитата
Ето потому что не все компоненты работают под компилятором FPC,а пример был создан под Delphi. Сегодня уже поздновато, завтра попробую найти в чем загвоздка.
карма: 2

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)