http://www.purebasic.com
https://www.purebasic.fr/english/
Bisonte wrote:what kind of "bin" file (fileformat?) what kind of images ?
I hear only a train commin...
yes netmaestro is compressed, i think with zlib.netmaestro wrote:I don't see any raw images in there, it's probably compressed.
BerndGameZelda wrote:Most of the files on the container use a filesystem called WESYS.
If the file starts with "\x00\x01\x00WESYS":
struct UncompressedWESYS
{
char magic[8]; // "\x00\x01\x00WESYS"
uint32_t size;
uint32_t zero;
uint8_t wesys[size];
}
If the file starts with "\x00\x01\x01WESYS"
struct ZlibWESYS
{
char magic[8]; // "\x00\x01\x01WESYS"
uint32_t cmprSize;
uint32_t uncmprSize;
uint8_t wesys[cmprSize]; // Uncompress with Zlib
}
---
For the two structures above, once you have the real data, the structure is:
struct WESYSFile
{
uint32_t nFiles;
uint32_t eight; // Always 8. May be a pointer to the file table, that is always at offset 8.
WESYSFileEntry files[nFiles];
}
struct WESYSFileEntry
{
uint32_t offset;
uint32_t size;
uint32_t fileNameOffset; // 0xFFFFFFF0 = unnamed file
}
Code: Select all
CompilerSelect #PB_Compiler_OS
CompilerCase #PB_OS_Linux
ImportC #PB_Compiler_Home + "purelibraries/linux/libraries/zlib.a"
CompilerCase #PB_OS_MacOS
ImportC "/usr/lib/libz.dylib"
CompilerCase #PB_OS_Windows
ImportC "zlib.lib"
CompilerEndSelect
uncompress(*dest, *destLen, *source, sourceLen)
EndImport
Procedure zipUnpackMemory(*source, sourceLen, *dest, destLen)
If Not uncompress(*dest, @destLen, *source, sourceLen)
ProcedureReturn destLen
EndIf
ProcedureReturn 0
EndProcedure
Filename$ = OpenFileRequester("Chose a WESYS file", "", "All files (*.*)|*.*", 0)
If Filename$
Uncompresed = #True
Uncompressed = #True
File = ReadFile(#PB_Any, Filename$)
If File
Size = Lof(File)
*FileBuffer = AllocateMemory(Size)
If *FileBuffer
If ReadData(File, *FileBuffer, Size) = Size
If PeekS(*FileBuffer + 3, 5) = "WESYS"
CompressFlag = PeekA(*FileBuffer + 2)
If CompressFlag = $01
Uncompressed = #False
UnCmprSize = PeekL(*FileBuffer + 12)
*Temp = AllocateMemory(UnCmprSize)
If *Temp
If zipUnpackMemory(*FileBuffer + 16, Size - 16, *Temp, UnCmprSize) = UnCmprSize
FreeMemory(*FileBuffer)
*FileBuffer = *Temp
Size = UnCmprSize
Uncompressed = #True
Else
FreeMemory(*Temp)
EndIf
EndIf
EndIf
If Uncompressed
Files = PeekL(*FileBuffer) - 1
For i = 0 To Files
OutOffset.q = PeekL(*FileBuffer + 4 + 4 + (12 * i)) & $FFFFFFFF
OutSize.q = PeekL(*FileBuffer + 4 + 4 + 4 + (12 * i)) & $FFFFFFFF
OutFilenameOffset.q = PeekL(*FileBuffer + 4 + 4 + 4 + 4 + (12 * i)) & $FFFFFFFF
;If OutFilenameOffset = $FFFFFFFF Or OutFilenameOffset = $FFFFFFF0
If OutFilenameOffset > Size
OutFilename$ = Filename$ + "_" + Str(i + 1)
Else
; not tested yet
OutFileName$ = GetPathPart(Filename$) + PeekS(*FileBuffer + OutFilenameOffset)
EndIf
Debug Hex(OutFilenameOffset)
If PeekS(*FileBuffer + OutOffset, 3) = "DDS"
OutFilename$ + ".dds"
EndIf
If PeekS(*FileBuffer + OutOffset + 16, 3) = "DDS"
OutFilename$ + ".dds"
OutOffset + 16
OutSize - 16
EndIf
OutFile = CreateFile(#PB_Any, OutFilename$)
If OutFile
WriteData(OutFile, *FileBuffer + OutOffset, OutSize)
CloseFile(OutFile)
EndIf
Next i
EndIf
EndIf
EndIf
FreeMemory(*FileBuffer)
EndIf
CloseFile(File)
EndIf
EndIfCode: Select all
If OpenFile(0, "d:\emerson_face2.bin")
*mem = AllocateMemory(Lof(0))
ReadData(0, *mem, Lof(0))
CloseFile(0)
EndIf
If *mem
UseJPEGImageDecoder()
UseJPEG2000ImageDecoder()
UsePNGImageDecoder()
UseTIFFImageDecoder()
*ptr = *mem
While *ptr < *mem
If CatchImage(0, *ptr)
Debug "found one"
EndIf
*ptr + 1
Wend
EndIf
Code: Select all
CompilerSelect #PB_Compiler_OS
CompilerCase #PB_OS_Linux
ImportC #PB_Compiler_Home + "purelibraries/linux/libraries/zlib.a"
CompilerCase #PB_OS_MacOS
ImportC "/usr/lib/libz.dylib"
CompilerCase #PB_OS_Windows
ImportC "zlib.lib"
CompilerEndSelect
uncompress(*dest, *destLen, *source, sourceLen)
EndImport
Procedure zipUnpackMemory(*source, sourceLen, *dest, destLen)
If Not uncompress(*dest, @destLen, *source, sourceLen)
ProcedureReturn destLen
EndIf
ProcedureReturn 0
EndProcedure
Structure WESYSFileEntry
offset.l
size.l
fileNameOffset.l ; 0xFFFFFFF0 = unnamed file
EndStructure
Filename$ = "Emerson_face.bin"
File = ReadFile(#PB_Any, Filename$)
If File
Size = Lof(File)
*FileBuffer = AllocateMemory(Size)
If *FileBuffer
If ReadData(File, *FileBuffer, Size) = Size
Magic$ = ""
For i = 3 To 7
Magic$ + Chr(PeekA(*FileBuffer + i))
Next i
Debug Magic$
If Magic$ = "WESYS"
CompressFlag = PeekA(*FileBuffer + 2)
Debug "Compressed: "+Str(CompressFlag)
If CompressFlag = $01
UnCmprSize = PeekL(*FileBuffer + 12)
*Temp = AllocateMemory(UnCmprSize)
If *Temp
If zipUnpackMemory(*FileBuffer + 16, Size - 16, *Temp, UnCmprSize) = UnCmprSize
numFiles = PeekL(*temp)
Debug "numFiles: "+Str(numFiles)
*wsf.WESYSFileEntry = *Temp +8
For i = 0 To numFiles-1
Debug *wsf\offset
Debug *wsf\size
Debug Hex(*wsf\fileNameOffset)
Debug PeekL(*Temp+*wsf\offset)
If PeekL(*Temp+*wsf\offset) = 808469847
If CreateFile(0, Str(i)+".dds")
Debug Str(PeekL(*Temp+*wsf\offset+4))
Debug Str(PeekL(*Temp+*wsf\offset+8))
Debug Str(PeekL(*Temp+*wsf\offset+12))
WriteData(0, *Temp+*wsf\offset+16, *wsf\size-16)
CloseFile(0)
EndIf
EndIf
*wsf+12
Next i
EndIf
FreeMemory(*Temp)
EndIf
EndIf
EndIf
EndIf
FreeMemory(*FileBuffer)
EndIf
CloseFile(File)
EndIf