Bundled files

[primo]

is it possible to extract the bones.jpg and bones_all.x to the place the program.exe extract itself ? because the bundled thinbasic code exe does not left any trace of the remnants of its bundled exe even if we view the hiden files in the code.exe folder..
before many years i want to post a program which have pictures and i don't want the users to change those pictures but don't have any clue how to do that except using commercial programs which bundle everything (code and pictures) in one exe. so i have abandoned the project. but your new Lib Eros seems have this ability. i saw many people request this feature in the web but i don't see any solutions.

[ErosOlmi]

Hi Primo,

I removed you post from the other thread because it merits to be into a specific dedicated thread.
I will reply in few minutes about latest thinBundle functionalities we recently added in thinBasic 1.9.16.16

Eros

[ErosOlmi]

Latest thinBasic 1.9.16.16 has new features regarding bundling files.
You can specify what files to bundle inside bundled executable and where to extract at runtime.

Se more info at http://www.thinbasic.com/public/products/thinBasic/help/html/thinbundle.htm
And more specific bundling file info at http://www.thinbasic.com/public/products/thinBasic/help/html/bundle_file.htm
As you can see, you have many options on how to include and how to extract those bundled file.
If you do not specify where to extract attached files, they will be extracted into what we call IsolationPath, a temporary directory created on the fly into user temp area used to extract all needed modules and files bundled into the executable. Isolation path will have the name of a GUID and will be always different and unique at every bundled executable execution.

You can get info about this directory at runtime using new APP_... functions:

App_IsBundled http://www.thinbasic.com/public/products/thinBasic/help/html/app_isbundled.htm
App_IsIsolated http://www.thinbasic.com/public/products/thinBasic/help/html/app_isisolated.htm
App_IsolationPath http://www.thinbasic.com/public/products/thinBasic/help/html/app_isolationpath.htm


Attached thinBundle pictures where will be listed your bundled files recognized from your script.

Let me know if the above explanations are enough for what you need or you need some more info.

Ciao
Eros

[ErosOlmi]

A little side note: I'm not aware of anyone still using those bundling functionalities other than me at work.
So you would be the first :)

Keep me informed if it is working fine or you need some additional functionality. I will be happy to discuss and possibly to add new features.

Ciao
Eros

[primo]

Thank you Eros, i have tried the program GDIp_LoadImage.tbasic from the thinbasic examples with the images.zip with password asd the images is inside images folder. but don't know how to extract all the images pictures and not the images one by one
sBuffer = ZLib_ExtractToString(ZIPFileName, "images\bones.jpg", "asd")
Save_File(APP_ScriptPath & "images\bones.jpg", sBuffer)
i want to display the images without the others catch it to modify it

wrong code:

'------------------------------------------------------------------------------
' Load needed modules
'------------------------------------------------------------------------------
Uses "UI", "File", "GdiP"
Uses "ZLib"
#BUNDLE File "" , "images.zip", "images.zip" , FileIsMandatory=0, ReplaceExisting=1, DeleteOnClose=1
Dim sBuffer As String
Dim ZIPFileName As String

ZIPFileName = APP_ScriptPath & "images.ZIP"

sBuffer = ZLib_ExtractToString(ZIPFileName, "images\bones.jpg", "asd")
Save_File(APP_ScriptPath & "images\bones.jpg", sBuffer)


'---Test if module was loaded. If not, abort!
'if uses("GDIP") < 0 then
' msgbox 0, "GDI+ lib not found"
' stop
'end if

dim wWidth as long value 425
dim wHeight as long value 425

function TBMain()

'------------------------------------------------------------------------------
' Create dialog
'------------------------------------------------------------------------------
dim hDlg as dword
DIALOG NEW pixels, 0, "thinBasic using GDI+", -1, -1, wWidth, wHeight, _
%WS_DLGFRAME OR _
%DS_CENTER OR _
%WS_CAPTION OR _
%WS_SYSMENU OR _
0 TO hDlg

'------------------------------------------------------------------------------
' Show dialog
'------------------------------------------------------------------------------
DIALOG SHOW modal hDlg, call dlgCallback

end function

callback function dlgCallback() as long
Dim ImagesDir As String = APP_SourcePath + "Images\"
'dim JPGFileName as string = App_SourcePath + "Images\ferrari-enzo.png"
dim lWidth as long
dim lHeight as long
dim nFiles as long
dim sFiles() as string
dim Counter as long
dim x as long
dim y as long
dim cWidth as long
dim cHeight as long
dim cForLine as long

dim hBitmap, hGpBitmap, pThumbnail AS long

select case cbMsg

case %WM_INITDIALOG
'------------------------------------------------------------------------------
' Create controls and Load images
'------------------------------------------------------------------------------
nFiles = DIR_ListArray(sFiles, ImagesDir, "*.jpg", %FILE_NORMAL Or %FILE_ADDPATH)

x = 5
y = 5
cForLine = 4
cWidth = (wWidth - (x * (cForLine + 2)) ) / cForLine
cHeight = cWidth

for Counter = 1 to nFiles

Control Add Label, CBHNDL, 1000 + Counter, "", x, y, cWidth, cHeight, %SS_SUNKEN Or %SS_BITMAP

'---Create an image handle
hGpBitmap = GDIp_CreateBitMapFromFile(sFiles(Counter))
'---Get image W and H
' lWidth = GDIP_GetImageWidth(hGpBitmap)
' lHeight = GDIP_GetImageHeight(hGpBitmap)
'---Alternative way to get width and height directly from file:
' GDIp_GetImageSizeFromFile(JPGFileName, lWidth, lHeight)

pThumbnail = GDIp_GetImageThumbnail(hGpBitmap, cWidth, cHeight)


'---Convert to a hBitbam handle
hBitmap = GDIp_CreateHBitMapFromBitmap(pThumbnail, 0)

'MsgBox 0, sFiles(Counter) & Str$(hGpBitmap) & Str$(pThumbnail) & Str$(hBitmap)
'---Release GDI image
GDIp_DisposeImage(hGpBitmap)
GDIp_DisposeImage(pThumbnail)

'---Converto to other formats
'GDIp_ConvertImage(sFiles(Counter), sFiles(Counter) & ".BMP", "image/bmp")
'GDIp_ConvertImage(sFiles(Counter), sFiles(Counter) & ".JPG", "image/jpeg")
'GDIp_ConvertImage(sFiles(Counter), sFiles(Counter) & ".TIFF", "image/tiff")
'GDIp_ConvertImage(sFiles(Counter), sFiles(Counter) & ".gif", "image/gif")

CONTROL SEND cbHndl, 1000 + Counter, %STM_SETIMAGE, %IMAGE_BITMAP, hBitmap

'---Release temp hBitmap
'object_delete(hBitmap)
'control set resize hDlg, 1000 + Counter, 0, 1, 0, 0

x += 5 + cWidth
if mod(Counter, cForLine) = 0 then
x = 5
y += 5 + cHeight
end if

next

end select

end function


http://wikisend.com/download/576776/images.zip

[ErosOlmi]

Hi primo,

there are several problems I need to solve in order to give you a full working example:

ZLib_ExtractToString does not work with Zip files having subdirectory inside. I need to fix this (easy)
#BUNDLE File ... I need to add an option to extract files into IsolationPath. Actually always execution path is used and this will be visible (easy)
GDI Plus: I'm pretty sure I can add some functions working with buffer instead of having to store images files into the disk (I have to better study GDI+ and see what I can do)



Anyway an example to list and save files on disk from Zip can be something like the following but first ZLib_ExtractToString must be fixed unless you replace "\" with"/" before passing file name to ZLib_ExtractToString.
Give me few days (max during the week-end) and I will fix all and possibly simplify a lot.

Eros



String ExePath '---Will contain execution path
Dim sBuffer As String
Dim ZIPFileName As String


'---Determine Execution path checking if script is bundled or not
If APP_IsIsolated Then
ExePath = APP_IsolationPath
Else
ExePath = APP_SourcePath
End If
PrintL "Exe path:", ExePath


'---Now we have the name of the ZIP
ZIPFileName = ExePath & "images.ZIP"
PrintL "Zip name:", ZIPFileName


'---List files inside zip file. Files will contain full path inside zip
sBuffer = ZLib_List(ZIPFileName)


'---Load a matrix of file names and file info. See ZLib_List help
String sFiles()
Long nFiles
nFiles = Parse sBuffer, sFiles, $CRLF, $TAB
PrintL "Number of files in ZIP:", nFiles

'---Make directory if it does not exists
DIR_MakeAll(ExePath & "\images")

'---Extract all files from ZIP and save to disk
String sFileNameInZip
String sFileNameOnly
Long Counter
For Counter = 1 To nFiles
sFileNameInZip = sFiles(Counter, 1)
sFileNameOnly = Remain$(sFileNameInZip, "\")
sBuffer = ZLib_ExtractToString(ZIPFileName, sFileNameInZip, "asd")

'---Save file
Save_File(ExePath & "images\" & sFileNameOnly, sBuffer)

PrintL "File saved", ExePath & sFileName
Next

[primo]

Hi Eros
i thought now that there is no point we add passworded images.zip to the bundled code exe. because images.zip itself is passworded, so there is no point to include it inside the exe.
so no need to put effort about this topic, since myself was ambiguous about the idea of bundling. but instead of that yes to simplify the bundling: such as including the files such as pictures from the IDE of bundling with a button like browse instead of writing in the code #BUNDLE File

[ErosOlmi]

OK, so give me few days and I will fix zLib regarding sub directory problem and I will release a new thinBasic version.
I have few ideas on how to automatically extract all zipped files into a string array and few others massive functionalities.

Eros