Как можно программно сунуть файлы в архив

@Le Thaw · Регистрация: 07.09.2010

Студворк — интернет-сервис помощи студентам

Как можно программно сунуть файлы в архив.

@Le Thaw · 26.10.2011, 09:12 **[ТС]**

На самом деле, запись будет производится не в файл, а в память.

Это понятно)

Это имя виртуального файла (оно зарезервировано в системе).

Как оно зарезервировано. Как задать другое имя. Или оно всегда такое неизменно?

@PB · 26.10.2011, 12:25

Сообщение от Le Thaw

Как оно зарезервировано.

В системе есть ряд зарезервированных имен файлов, таких как:

Имя Назначение
AUX асинхронный интерфейс (Auxiliary – вспомогательный выход)
CLOCKS драйвер часов
СОМ1 первый последовательный интерфейс (от COMmunication)
COM2 второй последовательный интерфейс
COM3 третий последовательный интерфейс
COM4 четвертый последовательный интерфейс
CON консоль (клавиатура и дисплей)
LPT1 первый параллельный интерфейс (от Line PrinTer 1)
LPT2 второй параллельный интерфейс
LPT3 третий параллельный интерфейс
NUL отсутствующий выход («черная дыра»)
PRN принтер (от PRiNter)

Сообщение от Le Thaw

Как задать другое имя.

А зачем?
Нужно ведь данные спрайта поместить в память или нет?
Вот, файл с именем NUL это запись в память. А из памяти можно записать на диск (или прямо в архив, пример выше) под любым именем.

@Le Thaw · 26.10.2011, 14:55 **[ТС]**

Понятно, спасибо.
И еще вопрос. Что быстрее работает, запись в память или в файл функцией saveimage. Мне кажется что быстрее в память. Но может разницы и нет, и нет смысла записывать в память.

Добавлено через 13 минут
Ассемблерный код, как я понимаю, выделяет ячейку памяти, размером максимально допустимым(т.е. свободным). Дальше записывается код изображения, и только этот размер используется в памяти?
Правильно?

@PB · 26.10.2011, 15:16

Сообщение от Le Thaw

Что быстрее работает, запись в память или в файл

В память конечно.

Сообщение от Le Thaw

Ассемблерный код, как я понимаю, выделяет ячейку памяти, размером максимально допустимым

Нет.
Я в асме не очень хорошо разбираюсь, но судя по коду, производится подмена адреса функции в стеке и в место стандартной, вызывается процедура fwritef(), в которой выделяется память и записываются данные картинки в память, указатель на которую хранится в переменной mem.

@Le Thaw · 26.10.2011, 15:31 **[ТС]**

Я в асме не очень хорошо разбираюсь, но судя по коду, производится подмена адреса функции в стеке и в место стандартной, вызывается процедура fwritef(), в которой выделяется память и записываются данные картинки в память, указатель на которую хранится в переменной mem.

Ну как. Сначала выделяется память размером в 2 миллиарда байт. А потом уже в ячейку записывается код изображения.
Проверил я это тем, что узнал размер выделенной памяти до ассемблера, и после.

Комментарий модератора

Не нужно цитаты заключать в тег BASIC

@PB · 26.10.2011, 15:49

Сообщение от Le Thaw

Сначала выделяется память размером в 2 миллиарда байт

Как определил?
Столько не выделяется.

Сообщение от Le Thaw

Проверил я это тем, что узнал размер выделенной памяти до ассемблера, и после.

Где, в переменной memsize?

Там ноль после выполнения асм кода и вообще, асм не изменяет эту переменную.

Только что проверил - работает нормально для PNG рисунка, размером 140 КБ, было выделено 110 КБ памяти в которую был записан код рисунка.

@Le Thaw · 26.10.2011, 17:12 **[ТС]**

Вот так проверял

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
UsePNGImageEncoder() 
UsePNGImageDecoder() 
Global mem=AllocateMemory(16) 
Global memsize=0 
 
 
ProcedureC fwritef(a,b,c,d) 
   mem=ReAllocateMemory(mem,memsize+c) 
   CopyMemory(a,mem+memsize,c) 
   memsize+c 
   ProcedureReturn c 
EndProcedure 
 
 
fwrite=@fwritef()
Debug fwrite
!extrn _fwrite 
!mov eax,[_fwrite+2] 
!push dword[eax] 
!push [v_fwrite] 
!pop dword[eax] 
!pop [v_fwrite] 
Debug fwrite
 
LoadImage(0, "1.png") 
SaveImage(0,"nul",#PB_ImagePlugin_PNG) 
;теперь в памяти по адресу mem лежит jpg картинка рамером memsize. 
;проверим 
 
 
CreateFile(0,"test.png") 
WriteData(0,mem,memsize) 
CloseFile(0)

Только что проверил - работает нормально для PNG рисунка

Я не говорил что не работает, или работает не нормально)

@PB · 26.10.2011, 17:38

У меня этот код выделяет примерно столько же памяти, сколько весит сам рисунок.
Но это естественно не 2 ГБ памяти.

@Le Thaw · 26.10.2011, 19:20 **[ТС]**

А можно загрузить картинку из памяти.
Т.е.

PureBasic
1
2
LoadImage(0, "1.png") 
SaveImage(0,"nul",#PB_ImagePlugin_PNG)

И то что находится в памяти о изображении, использовать так, чтобы загрузить новое.
Попробовал так

PureBasic
1
2
CatchImage(1, mem, memsize)
SaveImage(1,"as.png",#PB_ImagePlugin_PNG)

Но файл изображения получается пустой

@PB · 26.10.2011, 19:48

Сообщение от Le Thaw

Но файл изображения получается пустой

Правильно, потому что была заменена процедура записи чтобы писать данные в память.
Ее нужно восстановить перед тем, как начать писать в файл.

Assembler
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
UsePNGImageEncoder() 
UsePNGImageDecoder() 
Global mem=AllocateMemory(16) 
Global memsize=0 
 
 
ProcedureC fwritef(a,b,c,d) 
   mem=ReAllocateMemory(mem,memsize+c) 
   CopyMemory(a,mem+memsize,c) 
   memsize+c 
   ProcedureReturn c 
EndProcedure 
 
 
fwrite=@fwritef()
!extrn _fwrite 
!mov eax,[_fwrite+2] 
!push dword[eax] 
!push [v_fwrite] 
!pop dword[eax] 
!pop [v_fwrite] 
 
LoadImage(0, "D:\1.png") 
SaveImage(0,"nul",#PB_ImagePlugin_PNG) 
;теперь в памяти по адресу mem лежит jpg картинка рамером memsize. 
;проверим 
 
!mov eax,[_fwrite+2] 
!push dword[eax] 
!push [v_fwrite] 
!pop dword[eax]
!pop [v_fwrite] 
 
CatchImage(1, mem, memsize)
SaveImage(1,"D:\as.png",#PB_ImagePlugin_PNG)

@Le Thaw · 28.10.2011, 19:21 **[ТС]**

Как очистить память адреса "nul".
Надо 2 раза подряд записать код одной картинки в память, потом из памяти в файл, и 2ой круг...
Очищаю память так

PureBasic
1
2
3
    FreeMemory(mem)
    mem=AllocateMemory(16) 
    fwrite=@fwritef()

Но так не получается. Выходит, что размер области памяти после записи 1ой картинки равен 1015, после очистки и записи снова, равен 2030.

@PB · 28.10.2011, 20:10

Сообщение от Le Thaw

Очищаю память так

Еще нужно переменную memsize обнулять.

@Le Thaw · 29.10.2011, 17:30 **[ТС]**

Пытаюсь сунуть картинку из банка в архив. Делаю так

PureBasic
1
2
3
4
5
6
7
8
9
10
    !extrn _fwrite 
    !mov eax,[_fwrite+2] 
    !push dword[eax] 
    !push [v_fwrite] 
    !pop dword[eax] 
    !pop [v_fwrite] 
    Debug memsize
    SaveImage(Image()\ID,"nul",#PB_ImagePlugin_JPEG)
    Debug memsize
    PureZIP_Archive_CompressMem(Image()\Name+".png", *mem, memsize)

Получается пустой архив, да еще и раненый.
Если функцию компрессии поставить перед асм кодом, то все работает. Что делать?

@PB · 29.10.2011, 18:01

Выше уже отвечал на этот вопрос Как можно программно сунуть файлы в архив
Нужно восстановить перехваченную функцию.

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
    !extrn _fwrite 
    !mov eax,[_fwrite+2] ; Перехват функции.
    !push dword[eax] 
    !push [v_fwrite] 
    !pop dword[eax] 
    !pop [v_fwrite] 
 
    Debug memsize
    SaveImage(Image()\ID,"nul",#PB_ImagePlugin_JPEG)
    Debug memsize
 
    !mov eax,[_fwrite+2] ; Восстановление функции.
    !push dword[eax] 
    !push [v_fwrite] 
    !pop dword[eax]
    !pop [v_fwrite]
 
    PureZIP_Archive_CompressMem(Image()\NAME+".png", *mem, memsize)
    FreeMemory(*mem) : memsize = 0 ; Освобождаем память.

@Le Thaw · 29.10.2011, 21:34 **[ТС]**

Не получается из архива сунуть файл в память.

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
  SavedFile=OpenFileRequester("Выберите файл стилей", "", "Style (*.stl)|*.stl|", 0)
  Name_Archive=GetFilePart(SavedFile)
  PureZIP_Archive_Read(Name_Archive)
  PureZIP_Archive_FindFirst() 
  PureZIP_Archive_FileInfo(@myFileinfo)
  memsize=myFileinfo\unCompressedSize
  namefile.s=myFileinfo\FileName
  
  
  
  NumberFile=PureZIP_FindFile(Name_Archive, namefile)
  bite=PureZIP_ExtractMemory(Name_Archive, NumberFile, *mem, memsize)

Пробовал и функцией PureZIP_Archive_ExtractMem извлекать, но тот же итог. Функция возвращает <0

@PB · 29.10.2011, 21:52

Сообщение от Le Thaw

Функция возвращает <0

Такой код работает.

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Name_Archive.s=OpenFileRequester("Выберите файл стилей", "", "Style (*.stl)|*.zip", 0)
If  PureZIP_Archive_Read(Name_Archive)
  PureZIP_Archive_FindFirst() 
  PureZIP_Archive_FileInfo(@myFileinfo.PureZIP_FileInfo)
  memsize=myFileinfo\unCompressedSize
  namefile.s=myFileinfo\FileName
  
  *mem = AllocateMemory(memsize)
  If *mem
    NumberFile=PureZIP_FindFile(Name_Archive, namefile)
    bite=PureZIP_ExtractMemory(Name_Archive, NumberFile, *mem, memsize)
    Debug bite
    ShowMemoryViewer(*mem, bite)
    FreeMemory(*mem) ; Когда память больше не нужна, ее нужно освободить.
  Else
    Debug "Ошибка при выделении памяти."
  EndIf
  
  PureZIP_Archive_Close()
Else
  Debug "Ошибка при открытии архива."
EndIf

@Le Thaw · 29.10.2011, 22:08 **[ТС]**

Все равно возвращает -3. И пишет

Указанное местоположение памяти не действительно для того, чтобы читать.

Попробовал вручную сунуть файл в пустой архив. Все получается.
А если программно засунут файл, то не получается.
В архиве, файлы заархив. программно, в имени файла в конце стоит символ "*". Если заархив. файлы вручную, то звездочки нет.
Видимо дело в этом.

@PB · 29.10.2011, 22:18

Сообщение от Le Thaw

возвращает -3

Это #Z_DATA_ERROR.

int uncompress (Bytef *dest, uLongf *destLen, const Bytef *source, uLong sourceLen);
Декомпрессирует исходный буфер в буфер назначения. sourceLen содержит длину в байтах исходного буфера. Перед вызовом функции, destLen должен содержать максимальный размер буфера назначения, который должен быть достаточно большим, чтобы вместить полностью несжатые данные. (Размер несжатых данных должен быть предварительно сохранен компрессором и передан декомпрессору посредством других способов, описание которых выходит за рамки данной библиотеки.) После вызова функции, destLen содержит актуальный размер несжатых данных.
Эта функция может быть использована для всего файла за один проход, если этот файл спроецирован в память.
Функция uncompress возвращает:
Z_OK в случае успеха
Z_MEM_ERROR если недостаточно памяти
Z_BUF_ERROR если недостаточно места в буфере назначения
Z_DATA_ERROR если входные данные были повреждены

Такое наблюдается на всех архивах?
Может архив битый?

@Le Thaw · 29.10.2011, 22:33 **[ТС]**

Понял в чем проблема. Создавал архив в формате *zip. Вручную менял на *stl.
Всему виной это. Хотя странно, как это может повлиять.

Добавлено через 6 минут
А нет. Не в этом дело.
Запускаю программу. Создаю в ней архив. Пихаю файл. Открываю архив(сколько угодно раз), все норм.
Закрываю прогу. Открываю заного, открываю архив, все плохо, ответ -3.

@PB · 29.10.2011, 22:37

Возможно ошибка в коде проги, создающей архив.

Новые блоги и статьи Все статьи Все блоги /
Теория всего 12. ВГК anaschu 21.07.2026 ### Главные семантические изменения и дешифровка новой физики 1. `REPRODUCTIVE_EMISSION` вместо фотосинтеза (`PS_base`): Энергия и ресурсы, которые класс средних мужчин (`_W_MEN_DONORS`). . .	Публикация отклонённая на хабре. Как «пернатого» заставить осваивать новые горизонты опыта через масштабирование задачи и целеполагание Hrethgir 21.07.2026 https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11948&stc=1&d=1784657928 Привет Хабр. В этой статье я расскажу, как один закон эпистемологии позволил мне с ходу запустить уникальный. . .	Теория всего 11. Основные параметры anaschu 21.07.2026 Дешифровка тензорного ядра Soil Chemistry 2. 0: Истинный инвариант Теории Всего Чистовой исходный код многокомпонентной сукцессии зафиксирован. Модель оперирует единым вектором состояния. . .	Теория всего 10. Клод трусишка anaschu 21.07.2026 Алгоритмический суицид ИИ: Когда математика ОДУ взламывает цензурные шлюзы Свежайший мета-прецедент нашей разработки! Клод официально отказался строить итоговую кроссплатформенную модель, как. . .
Теория всего 9. Окончательная проработка метафоры "дерево = традиции" anaschu 21.07.2026 Скрытые параметры ядра ОДУ: Механика Глубинного Рока Клод утаил от вас ключевую математику кризисов. В движке игры зашиты пять скрытых коэффициентов, определяющих, как именно ТНК и Мемы ломают. . .	Теория всего 8. Clauude трусишка. Ответ джемени anaschu 21.07.2026 Игровой баланс «Модели Всего»: Алгоритмический блок как механика Семантического БуфераЭтот скриншот отказа Клода — идеальный, чистейший прецедент для нашей Теории Всего. Вы столкнулись не просто с. . .	Теория всего 7. Дерево - это патриархат, грибы - это феминизм anaschu 21.07.2026 Уничтожение Патриархата: Как ТНК, Мемы и Половой отбор зачистили «Сексуальный Пролетариат» Величайшая иллюзия современного человека — вера в «свободу воли», «социальный прогресс» и «эволюцию. . .	История и социология Терры на примере борьбы микориз за пространство. 1. Глоссарий терры. anaschu 21.07.2026 Решил тут подумать о возможности сделать лор некоторой комп игры - стратегии, или худжественной книги антиутопии, которые будут юзать планету,которая максимально будет похожа на нашу землю, но где. . .

@Le Thaw 37 / 37 / 1 Регистрация: 07.09.2010 Сообщений: 752

	Как можно программно сунуть файлы в архив 22.10.2011, 14:53. Показов 7790. Ответов 44 Метки нет (Все метки) Как можно программно сунуть файлы в архив. 0

@Le Thaw 37 / 37 / 1 Регистрация: 07.09.2010 Сообщений: 752
	26.10.2011, 14:55 [ТС]
	Понятно, спасибо. И еще вопрос. Что быстрее работает, запись в память или в файл функцией saveimage. Мне кажется что быстрее в память. Но может разницы и нет, и нет смысла записывать в память. Добавлено через 13 минут Ассемблерный код, как я понимаю, выделяет ячейку памяти, размером максимально допустимым(т.е. свободным). Дальше записывается код изображения, и только этот размер используется в памяти? Правильно? 0

@PB Просто прогер 1292 / 1079 / 13 Регистрация: 13.03.2009 Сообщений: 2,502
	26.10.2011, 17:38
	У меня этот код выделяет примерно столько же памяти, сколько весит сам рисунок. Но это естественно не 2 ГБ памяти. 1

@Le Thaw 37 / 37 / 1 Регистрация: 07.09.2010 Сообщений: 752
	29.10.2011, 22:33 [ТС]
	Понял в чем проблема. Создавал архив в формате zip. Вручную менял на stl. Всему виной это. Хотя странно, как это может повлиять. Добавлено через 6 минут А нет. Не в этом дело. Запускаю программу. Создаю в ней архив. Пихаю файл. Открываю архив(сколько угодно раз), все норм. Закрываю прогу. Открываю заного, открываю архив, все плохо, ответ -3. 0

@PB Просто прогер 1292 / 1079 / 13 Регистрация: 13.03.2009 Сообщений: 2,502
	29.10.2011, 22:37
	Возможно ошибка в коде проги, создающей архив. 1