Показать сообщение отдельно
Старый 10.03.2015, 01:49   #1
barsunduk
ПроЭктировщик
 
Аватар для barsunduk
 
Регистрация: 09.05.2010
Адрес: рф ро шахты
Сообщений: 177
Написано 66 полезных сообщений
(для 271 пользователей)
Распаковка из архива-ресурса мимо файла

кто-нибудь в курсе, можно ли сообразить какой-то аналог разархиватора? только не в файл чтобы распаковывал нужное вхождение, а в память. если конкретно - хочу все ресурсы запаковать в архив zip и доставать по одному файлу. что-то типа этого кода (см. ниже), но вместо ExtractWhatEverWayPngFromZipToBuffer(some_paramete rs) - рабочая процедурка чтоб была:

UseZipPacker()
 
Procedure CatchPng(pngfilename.s)
  *
Buffer AllocateMemory(idunno_100500bytes)
  
PngSize ExtractWhatEverWayPngFromZipToBuffer(some_parameters)
  
res CatchImage(#PB_Any, *Buffer, PngSize)
  
ProcedureReturn res
EndProcedure
 
png 
CatchPng("imagefromzip.png")
Debug png
 
DataSection
  zipStart
:
  
IncludeBinary "data.zip"
  
zipEnd:
EndDataSection 
__________________
to be or not to be - it's not a question!
2b or not 2b = ff
(Offline)
 
Ответить с цитированием