ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / C++ [игнор отключен] [закрыт для гостей] / (Builder) Архиватор
10 сообщений из 10, страница 1 из 1
(Builder) Архиватор
    #34906270
Фотография vah
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vah
Участник
Не подскажете, как можно сделать архиватор в Builder? У меня есть архиватор на VBA нужно сделать хотя бы такой же в Builder.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Dim ShellApp  As Object, DestFolder As Object
'Create empty Zip File
If Dir(ZipName) <> "" Then Kill ZipName
Open ZipName For Output As #1
Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0)
Close #1

Set ShellApp = CreateObject("Shell.Application")
Set DestFolder = ShellApp.NameSpace((ZipName))
'Copy the file into the zip folder
DestFolder.CopyHere (FileName)
'Keep script waiting until Compressing is done
Do Until DestFolder.Items.Count =  1 
    Sleep  333 
Loop
Set ShellApp = Nothing
Заранее благодарен.
...
Рейтинг: 0 / 0
31.10.2007, 08:37:11
| Ответить | Цитировать | Написать  
(Builder) Архиватор
    #34906564
Фотография cap83
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
cap83
Участник
Читай про zlib
...
Рейтинг: 0 / 0
31.10.2007, 10:33:34
| Ответить | Цитировать | Написать  
(Builder) Архиватор
    #34908634
Leshij
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Leshij
Участник
On Wed, 31 Oct 2007 08:37:11 +0300, vah <nospam@sql.ru>; wrote:

> Автор: vah
> Не подскажете, как можно сделать архиватор в Builder? У меня есть
> архиватор на
> VBA нужно сделать хотя бы такой же в Builder.
Если нужно архивировать файлы, проще всего вызвать архиватор
из командной строки, типа
CreateProcess(L"rar.exe", L"a file.bin archive.rar", ...).
Если нужно заархивировать блок памяти, его можно созранить в файл
и тоже вызвать архиватор.
--
Здесь у нас туманы и дожди, здесь у нас холодные рассветы,
Здесь на неизведанном пути ждут замысловатые сюжеты!
Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
31.10.2007, 18:46:47
| Ответить | Цитировать | Написать  
(Builder) Архиватор
    #34909146
Фотография Gluk (Kazan)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gluk (Kazan)
Участник
Leshij
Если нужно заархивировать блок памяти, его можно созранить в файл
и тоже вызвать архиватор.


А если нужно сетевой протокол компрессовать тож будешь в файл записывать и рар дергать ???
...
Рейтинг: 0 / 0
01.11.2007, 08:22:23
| Ответить | Цитировать | Написать  
(Builder) Архиватор
    #34911109
Leshij
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Leshij
Участник
On Thu, 01 Nov 2007 08:22:23 +0300, Gluk (Kazan) <nospam@sql.ru>; wrote:

> А если нужно сетевой протокол компрессовать тож будешь в файл записывать
> и рар
> дергать ???
> Тема Ответить Сообщение
Вопрос был про файлы. Для сетей согласен, лучше вызывать API архиватора.
--
Здесь у нас туманы и дожди, здесь у нас холодные рассветы,
Здесь на неизведанном пути ждут замысловатые сюжеты!
Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
01.11.2007, 17:32:27
| Ответить | Цитировать | Написать  
(Builder) Архиватор
    #34911990
Фотография vah
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vah
Участник
Leshij
CreateProcess(L"rar.exe", L"a file.bin archive.rar", ...).


После архивирования мне нужно копировать на флэшку, а это происходит не дожидаясь создания архива. Как это можно сделать, чтобы программа дожидалась окончания создания архива?
...
Рейтинг: 0 / 0
02.11.2007, 09:28:58
| Ответить | Цитировать | Написать  
(Builder) Архиватор
    #34912069
pandrew
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pandrew
Гость
vahПосле архивирования мне нужно копировать на флэшку, а это происходит не дожидаясь создания архива. Как это можно сделать, чтобы программа дожидалась окончания создания архива?
WaitForInputIdle(hProcess,INFINITE);
...
Рейтинг: 0 / 0
02.11.2007, 10:02:32
| Ответить | Цитировать | Написать  
(Builder) Архиватор
    #34912113
Карабас Барабас
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Карабас Барабас
Участник
Если я все правильно понимаю, то WaitForInputIdle тут не в кассу.

Надо использовать WaitForSingleObject
Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
02.11.2007, 10:11:07
| Ответить | Цитировать | Написать  
(Builder) Архиватор
    #34913397
maXmo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
maXmo
Участник
мощно, как я понял, прога создаёт файл, пишет туда сигнатуру зипа (PK...), потом средствами шелла копирует в эту зиповую «папку» нужные файлы.
...
Рейтинг: 0 / 0
02.11.2007, 14:59:41
| Ответить | Цитировать | Написать  
(Builder) Архиватор
    #34913551
Фотография Gluk (Kazan)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gluk (Kazan)
Участник
maXmoмощно, как я понял, прога создаёт файл, пишет туда сигнатуру зипа (PK...), потом средствами шелла копирует в эту зиповую «папку» нужные файлы.

их энергию бы да в мирных целях ...
...
Рейтинг: 0 / 0
02.11.2007, 15:38:18
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / C++ [игнор отключен] [закрыт для гостей] / (Builder) Архиватор
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=57&gotonew=1&tid=2027874]:
 0ms
get settings:
 10ms
get forum list:
 20ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 304ms
get topic data:
 11ms
get first new msg:
 7ms
get forum data:
 3ms
get page messages:
 46ms
get tp. blocked users:
 1ms
others: 232ms
total:  642ms
созд. / загр.: 642ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]