ASM Libs Updated

Paul · Post by **Paul** » Wed Mar 02, 2005 3:55 am

http://www.reelmedia.org/pureproject

The libraries in the ASM section have all been updated and tested to work with PureBasic 3.93

The VBin library was given a complete overhaul and a few more features were added as well as a new VBin Creator for quickly assembling VBins.

RC4_Lib, MBD_Lib and RegINI_Lib have all been tweeked up and 2 new libraries will be posted as soon as the help files are complete.

Enjoy

gnozal · Post by **gnozal** » Wed Mar 02, 2005 8:59 am

Thank you Paul

J. Baker · Post by **J. Baker** » Wed Mar 02, 2005 3:24 pm

Thanks Paul! Like the new custom window of VBin!

DoubleDutch · Post by **DoubleDutch** » Sun Mar 13, 2005 10:33 pm

I had some problems with the encyption "password" stuff, files using this would not work properly afterwards???

Has anyone else had this problem?

-Anthony

Karbon · Post by **Karbon** » Mon Mar 14, 2005 2:23 pm

Thanks Paul!

Paul · Post by **Paul** » Mon Mar 14, 2005 4:10 pm

DoubleDutch wrote:I had some problems with the encyption "password" stuff, files using this would not work properly afterwards???

Has anyone else had this problem?

-Anthony

Works great here and I use it in many applications.
If a file is encoded, you are decoding them before using right?

Anyway, if you don't post your code that is causing the problem, there is no way to point you in the right direction

Kind of like going to a garage and saying "my car doesn't seem to run properly" but not bringing your car for the mechanic to look at.

DoubleDutch · Post by **DoubleDutch** » Wed Mar 16, 2005 12:36 am

Non-Working code, as requested

Code: Select all

Result=VBin_Create("test.bin") 
If Result=0 
 MessageRequester("Error","Could not create VBin")  
EndIf 

Result=VBin_AddFile("test.bin","C:\Program Files\PureBasic\Examples\Sources\Data\PureBasic.bmp","password")
If Result=0 
 MessageRequester("Error","Could not add file to VBin")  
EndIf 

TotalFiles=VBin_TotalFiles("test.bin")
If TotalFiles>0
  For Loop=1 To TotalFiles
    file$=VBin_Dir("test.bin",Loop)  
    osize=VBin_OriginalSize("test.bin",file$)
    csize=VBin_CompressedSize("test.bin",file$)
    MessageRequester("File:"+Str(Loop),"Name:"+file$+Chr(10)+"Original Size:"+Str(osize)+Chr(10)+"Compressed Size:"+Str(csize))  
  Next
Else
  MessageRequester("Error","Contains no files")
EndIf

Result=VBin_SaveFile("test.bin","C:\Program Files\PureBasic\Examples\Sources\Data\PureBasic.bmp","image.bmp","password") 
If Result=0 
 MessageRequester("Error","Could not save file from VBin")  
EndIf

Working code (all thats changed is "password" has been removed):

Code: Select all

Result=VBin_Create("test.bin") 
If Result=0 
 MessageRequester("Error","Could not create VBin")  
EndIf 

Result=VBin_AddFile("test.bin","C:\Program Files\PureBasic\Examples\Sources\Data\PureBasic.bmp")
If Result=0 
 MessageRequester("Error","Could not add file to VBin")  
EndIf 

TotalFiles=VBin_TotalFiles("test.bin")
If TotalFiles>0
  For Loop=1 To TotalFiles
    file$=VBin_Dir("test.bin",Loop)  
    osize=VBin_OriginalSize("test.bin",file$)
    csize=VBin_CompressedSize("test.bin",file$)
    MessageRequester("File:"+Str(Loop),"Name:"+file$+Chr(10)+"Original Size:"+Str(osize)+Chr(10)+"Compressed Size:"+Str(csize))  
  Next
Else
  MessageRequester("Error","Contains no files")
EndIf

Result=VBin_SaveFile("test.bin","C:\Program Files\PureBasic\Examples\Sources\Data\PureBasic.bmp","image.bmp") 
If Result=0 
 MessageRequester("Error","Could not save file from VBin")  
EndIf

Hopefully this will enable the garage to fix my car?

-Anthony

DoubleDutch · Post by **DoubleDutch** » Wed Mar 16, 2005 12:38 am

Forgot to mention that it fails at the save point ("Could not save file from VBin") on the "password" version...

-Anthony

Paul · Post by **Paul** » Wed Mar 16, 2005 3:20 am

Thanks for the example.
There was a problem with VBin_AddFile generating an improper CRC check when password was used. We use VBin Creator to build our BIN files so this was not noticed (since VBin Creator was generating proper CRC checks)

Problem is fixed and update is available on pureproject.net

Thanks again for the info.

See how easy it is to find and fix a problem when we have something to work with

A little tune up and we're good to go!

DoubleDutch · Post by **DoubleDutch** » Wed Mar 16, 2005 10:08 am

Many thanks for the library fix

Glad to have helped track it down with the example.

-Anthony

Shannara · Post by **Shannara** » Thu Mar 17, 2005 1:00 am

Hmm, looks like (according to the help) vBin2 is missing the compression rate option for adding files to bin files. Any chance to add this back in?

DoubleDutch · Post by **DoubleDutch** » Thu Mar 17, 2005 5:47 pm

The library crashes with VBin_AddFile and the included image:

Code: Select all

Result=VBin_Create("test.bin") 
If Result=0 
 MessageRequester("Error","Could not create VBin")  
EndIf 


If VBin_AddFile("test.bin","logo.png")=0
  MessageRequester("Error","Could not add file")
EndIf

MessageRequester("Okay","Finished")

Here is the image url:
http://www.doubledutchdesigns.com/download/logo.png

Here is the compiled program:
http://www.doubledutchdesigns.com/download/test2.exe

Any ideas?

-Anthony

Paul · Post by **Paul** » Thu Mar 17, 2005 6:38 pm

DoubleDutch wrote: Any ideas?
-Anthony

Yes, use "VBin Creator" ....
or download latest update

Thanx.

DoubleDutch · Post by **DoubleDutch** » Thu Mar 17, 2005 6:49 pm

Works fine now...

Thanks,

-Anthony

DoubleDutch · Post by **DoubleDutch** » Fri Mar 18, 2005 3:02 pm

How do you release the memory?
Is it like the 4th line below?

Code: Select all

Image=VBin_("MyBin","images\PBLogo.bmp") 
If Image 
 CatchImage(#Image,Image) 
 FreeMemory(Image) ; free memory used the VBin_ ??????
Else  
 MessageRequester("Error","Image not Found in VBin")  
 End  
EndIf