PBOSL - A OpenSource Library-Collection for PureBasic

Shannara · Post by **Shannara** » Wed Oct 18, 2006 6:27 pm

Hmm, I dont use unicode, and dont use the broken threadsafe subsystem either. What did you do to get it to work?

ts-soft · Post by **ts-soft** » Wed Oct 18, 2006 6:39 pm

I think you haven't use the examples. In the help is missing some functions, sorry
You have to init the lib, here a example:

Code: Select all

Debug SQLite3_GetLibVersion()
Debug ""
  
If SQLite3_InitLib("sqlite3.dll") = #False
  MessageRequester("SQLite3-Demo", SQLite3_GetLastMessage())
  End
EndIf

sDB.s = "sample.db"

dbHandler = SQLite3_CreateDatabase(sDB, 1)

If dbHandler = 0
  MessageRequester("SQLite3-Demo", SQLite3_GetLastMessage())
  End
EndIf

; Create test-table to fill with data
sSQL.s = "Create Table TestTable (fld0, fld1, fld2)"
SQLite3_Execute(sSQL, dbHandler)

zeit1= ElapsedMilliseconds()

; Use transactions to speed up insert-statements!
sSQL = "BEGIN TRANSACTION"
SQLite3_Execute(sSQL, dbHandler)

; fill 1000 Records into the test-table
For intI = 0 To 999
  sSQL.s = "Insert Into TestTable (fld0, fld1, fld2) Values ('value_0_" + Str(intI) + "', 'value_1_" + Str(intI) + "', 'value_2_" + Str(intI) + "')"
  SQLite3_Execute(sSQL, dbHandler)
Next intI

; commit the transaction
sSQL = "COMMIT"
SQLite3_Execute(sSQL, dbHandler)

zeit2= ElapsedMilliseconds()

Define.SQLite3_Recordset RS ; declare Recordset-'Object'

; determine count of records
If SQLite3_GetRecordset("Select Count(*) As CountOfRecords From TestTable", dbHandler, @RS )
  
  If RS\Handle
    If SQLite3_GetRecordsetValueByName("CountOfRecords", @RS)
      Debug RS\sValue + " Records in " + Str(zeit2-zeit1) + " milliseconds inserted"
    Else
      MessageRequester("SQLite3-Demo", SQLite3_GetLastMessage())
    EndIf
  EndIf
  
Else
  MessageRequester("SQLite3-Demo", SQLite3_GetLastMessage())
EndIf

If SQLite3_GetRecordset("Select * From TestTable Limit 5", dbHandler, @RS)
   
  If RS\Handle 
    
    Debug ""
    Debug "Amount of columns: " + Str(RS\Cols)
    Debug "Amount of rows: " + Str(RS\Rows)
    Debug ""
    
    Debug "Index of then field named 'fld2': " + Str( SQLite3_GetFieldIndexByName("fld2", @RS) )
    
    Debug ""
    Debug "SQLite3_RecordsetMoveNext():"
    Debug "----------------------------"
    
    ; Browse through the records forward
    While RS\EOF = 0
      If SQLite3_GetRecordsetValueByName("fld0", @RS)
        Debug RS\sValue
      Else
        MessageRequester("", SQLite3_GetLastMessage())
      EndIf
      SQLite3_RecordsetMoveNext(@RS)
    Wend
    
    Debug ""
    Debug "SQLite3_RecordsetMovePrevious():"
    Debug "--------------------------------"
    
    ; Browse through the records backwards
    While RS\BOF = 0
      If SQLite3_GetRecordsetValueByName("fld0", @RS)
        Debug RS\sValue
      Else
        MessageRequester("", SQLite3_GetLastMessage())
      EndIf
      SQLite3_RecordsetMovePrevious(@RS)
    Wend
    
    Debug ""
    Debug "SQLite3_RecordsetMoveFirst():"
    Debug "-----------------------------"
    
    ; Jump to the first recordset
    SQLite3_RecordsetMoveFirst(@RS)
    If SQLite3_GetRecordsetValueByName("fld0", @RS)
      Debug "Content of field 'fld0' of the first recordset (ByName):"
      Debug RS\sValue
    Else
      MessageRequester("SQLite3-Demo", SQLite3_GetLastMessage())
    EndIf
    
    If SQLite3_GetRecordsetValueByIndex(0, @RS)
      Debug "Content of field 'fld0' of the first recordset (ByIndex):"
      Debug RS\sValue
    Else
      MessageRequester("SQLite3-Demo", SQLite3_GetLastMessage())
    EndIf
    
    Debug ""
    Debug "SQLite3_RecordsetMoveLast():"
    Debug "----------------------------"
    
    ; Jump to the last recordset
    SQLite3_RecordsetMoveLast(@RS)
    If SQLite3_GetRecordsetValueByName("fld0", @RS)
      Debug "Content of field 'fld0' of the last recordset (ByName):"
      Debug RS\sValue
    Else
      MessageRequester("SQLite3-Demo", SQLite3_GetLastMessage())
    EndIf
    If SQLite3_GetRecordsetValueByIndex(0, @RS)
      Debug "Content of field 'fld0' of the last recordset (ByIndex):"
      Debug RS\sValue
    Else
      MessageRequester("SQLite3-Demo", SQLite3_GetLastMessage())
    EndIf
    
    ; Release Recordset after use
    SQLite3_ReleaseRecordset(@RS)

  Else
    MessageRequester("SQLite3-Demo", SQLite3_GetLastMessage())
  EndIf
   
Else
  MessageRequester("SQLite3-Demo", SQLite3_GetLastMessage())
EndIf

SQLite3_CloseDatabase(dbHandler)
  
SQLite3_End()

End

Please show the examples from the examplepackage.

Shannara · Post by **Shannara** » Wed Oct 18, 2006 7:00 pm

Ah, thats what it was. Thanks for the example.

ts-soft · Post by **ts-soft** » Mon Oct 30, 2006 5:17 am

PBOSL-Binaries PB4 Linux Online

PBOSL_AnimSprite
PBOSL_RFile (new)

SFSxOI · Post by **SFSxOI** » Tue Jan 16, 2007 10:36 pm

Will the help for this library collection be updated to work with Vista?

ts-soft · Post by **ts-soft** » Tue Jan 16, 2007 10:45 pm

SFSxOI wrote:Will the help for this library collection be updated to work with Vista?

I have no vista and will never install

What is the problem with the help?

DoubleDutch · Post by **DoubleDutch** » Tue Jan 16, 2007 11:04 pm

I think Vista has yet another new type of help file.

ts-soft · Post by **ts-soft** » Tue Jan 16, 2007 11:10 pm

DoubleDutch wrote:I think Vista has yet another new type of help file.

I have read, only helpfiles (*.hlp) not supported, but you can download, that
this works. CHM should work on vista. If not, so give me someone informations, what is to change.

SFSxOI · Post by **SFSxOI** » Wed Jan 17, 2007 10:31 pm

Sorry I couldn't get back to this before now. I can use the help fine on my remaining XP machine. However, when I try to use it on the Vista machine nothing ever shows. The topics show on the left and you can select stuff but trying to select any subject I get one of two things in the right pane, it either says "Navigation to the webpage was canceled" or it says "The address is not valid".

The same PBOSL.chm work fine in XP, just not Vista.

The purebasic help works and the Droopy Lib help works in Vista, Just not the PBOSL help. I tried a fresh download of the library again to make sure something wasn't corrupted, same thing happens.

EDIT: Arghhhhhh! Just got it figured out. Vista has marked the file as coming from another computer. What you have to do is right click on the .chm, choose properties, then click the 'Unblock" button, after that it works fine. I had not even thought about that because the other .chm files just worked, I wonder what was different about this one? Anyway...sorry for the confusion, and thanks for the help.

ts-soft wrote:
DoubleDutch wrote:I think Vista has yet another new type of help file.
I have read, only helpfiles (*.hlp) not supported, but you can download, that
this works. CHM should work on vista. If not, so give me someone informations, what is to change.

ts-soft · Post by **ts-soft** » Wed Jan 17, 2007 10:39 pm

I can't test this. The source is available on: http://cvs.pureforge.net/pbosl/
or pm me, i will send the source, to anybody that will help, make changes for
vista.

SFSxOI · Post by **SFSxOI** » Fri Jan 19, 2007 2:04 am

Actually the .chm file finally worked OK. It was my fault, I forgot about Vista's zeal for security. What you have to do is right click on the .chm, choose properties, then click the 'Unblock" button, after that it works fine. Its not a problem on your end, and Vista will always think the file came from somewhere else and do that for the most part. Vista is sensitive concerning permissions, so the way a person has their system setup for permissions has part of a responsibility in this, for example I had to go in and give my user full permissions over the PureBasic install folder to get it to run correctly and after that PureBasic runs perfectly in Vista.

I've spent the better part of the day running thru some of the PBOSL libraries, and all that i've checked so far seem to work in Vista

ts-soft wrote:I can't test this. The source is available on: http://cvs.pureforge.net/pbosl/
or pm me, i will send the source, to anybody that will help, make changes for
vista.

ts-soft · Post by **ts-soft** » Fri Jan 19, 2007 2:09 am

SFSxOI wrote: I've spent the better part of the day running thru some of the PBOSL libraries, and all that i've checked so far seem to work in Vista

To hear delightedly, this

SFSxOI · Post by **SFSxOI** » Sat Jan 20, 2007 1:47 am

OK, found one that doesn't seem to exist in the PBOSL library even though its listed in the help. I get this:

Code: Select all

IsPIDAlive() is not a function, array, macro, or linked list

Thats as far as i've gotten so far for checking these in Vista, will do some more if you'd like.

ts-soft · Post by **ts-soft** » Sat Jan 20, 2007 1:58 am

thanks for information, i will change this.

ts-soft · Post by **ts-soft** » Sat Jan 27, 2007 3:19 am

Update:
PBOSL_Cryption New Version by dige (ascii only)
PBOSL_ScreenGadgets Version 1.2

PBOSL-Updatechecker for windows by kiffi (helpers: edel, ts-soft)
(linux version in progress)