Page 1 of 6
Progi1984 - Programs & Userlibs
Posted: Mon Jan 15, 2007 3:57 pm
by Progi1984
A list of my prods in an alone thread :
Wrappers
GoogleCode : RWrappers
__________________________________________________________________________________________________________________
Userlibs
RImage_4_10.zip
Size : 99Ko
Code: Select all
Functions which allows you to extract some informations about images like BMP and JPeG
_______________________
RPack.zip
Size : 72Ko
_______________________
RTask_4_10.zip
Size : 60Ko
Code: Select all
Easy management of Windows Tasks (Windows only)
_______________________
RVersion_4_10.zip
Size : 43Ko
Code: Select all
Permits to get the version or the licence key of an installed software
_______________________
REventLog_4_10.zip
Size : 85Ko
Code: Select all
Permits you to read and write in the Windows EventLog.
_______________________
RLibPlus.zip
Size : 360Ko
Code: Select all
The old name for this userlib is LibEditorPlus. This userlib has been upgraded et is applied in others gadgets.
_______________________
RCam_0.1_V4.10.zip
Size : 34Ko
__________________________________________________________________________________________________________________
RJSON.zip
Size : 20Ko
Code: Select all
Permits you to parse your JSON tree files in a PB XML Tree
__________________________________________________________________________________________________________________
Applications
ProgiRVB_1.0.zip
Size : 99Ko
_______________________
Posted: Mon Jul 02, 2007 8:22 am
by Progi1984
Release of some userlibs (Compiled for 4.10 Beta 2):
Wrapper SQLite->
DB_SQLite_0_1.zip
Code: Select all
Functions of the library Database but for SQLite
RImage->
RImage_4_10.zip
Code: Select all
Functions which allows you to extract some informations about images like BMP and JPeG
RPack->
RPack_4_10.zip
RTask->
RTask_4_10.zip
Code: Select all
Easy management of Windows Tasks (Windows only)
Posted: Wed Jul 11, 2007 1:29 pm
by Sveinung
Can't get your Rpack lib to work.
BTW all your constants return 0 (debug #RPack_Type_Tar)
Regards
Sveinung
Posted: Wed Jul 11, 2007 2:37 pm
by Progi1984
OK...
Have you the RPack userlib in the directory PureLibraries\UserLibraries\ ?
Have you the RPack_Res.res in the directory Residents\ ?
Have you restart your PB compiler ?
Posted: Wed Jul 11, 2007 2:54 pm
by Sveinung
Sorry! I missunderstod the doc. My misstake
Sveinung
Posted: Wed Jul 11, 2007 3:02 pm
by Sveinung
And thank you for the lib
Sveinung
Posted: Wed Jul 11, 2007 3:13 pm
by Progi1984
@Sveinung : so, i must explain better the installation of my differents lib...
Thank you for using it

And at the beginning of august, some others news

Posted: Wed Jul 18, 2007 6:27 am
by Karbon
Great stuff. Love the SQLite work.. Thank you!
Posted: Sun Jul 29, 2007 4:12 am
by Karbon
Any chance of a Unicode version of this SQLite lib?
I have some NULL values in int fields and such, and this code crashes with "invalid memory" :
Code: Select all
ProcedureDLL.l SQLite_GetDatabaseLong(database.l, Column.l)
Protected *self.S_SQLite_Object = DATABASE_ID(database)
If *self
Address = *self\Result_Handle
AddrInc = *self\Result_Cols * 4
If Column > *self\Result_Cols - 1
Column = *self\Result_Cols -1
EndIf
If Column < 0
Column = 0
EndIf
For Row.l = 0 To *self\Result_Pos
Address + AddrInc
Next
ProcedureReturn Val(PeekS(PeekL(Address + Column * 4)))
EndIf
EndProcedure
I can understand why, too, since for NULL values there would be no value at the memory address specified.
Also, what's up with the peekl, peeks, then val()? Unicode related?
Posted: Sun Jul 29, 2007 4:44 pm
by Karbon
The trick is to use MemoryStringLength in SQLite_GetDatabaseLong to test for a string of zero length before returning. That way you can handle NULLs in number columns.
Code: Select all
ProcedureDLL.l SQLite_GetDatabaseLong(database.l, Column.l)
Protected *self.S_SQLite_Object = DATABASE_ID(database)
If *self
Address = *self\Result_Handle
AddrInc = *self\Result_Cols * 4
If Column > *self\Result_Cols - 1
Column = *self\Result_Cols -1
EndIf
If Column < 0
Column = 0
EndIf
For Row.l = 0 To *self\Result_Pos
Address + AddrInc
Next
peaked_long.l = PeekL(Address + Column * 4)
mem_length.l = MemoryStringLength(peaked_long)
If mem_length > 0
peaked_string.s = PeekS(peaked_long)
val_peaked.l = Val(peaked_string)
ProcedureReturn val_peaked
Else
ProcedureReturn 0
EndIf
EndIf
EndProcedure
Same with the Float returning functions, too.
Posted: Sun Jul 29, 2007 6:47 pm
by Progi1984
Sorry but I have two weeks of holidays....
And i 'm going to have at home Internet ...
So in a week, I work on it to release (if I arrive to do that) a Unicode version

Posted: Sun Jul 29, 2007 8:16 pm
by Karbon
If you have anything started or any ideas as to what needs to be done please share them as I've already gotten started but admit I'm clueless about Unicode!
Posted: Mon Sep 03, 2007 11:00 am
by Progi1984
Release of September 2007
Wrapper SQLite->
DB_SQLite_0_2.zip
Taille : 183Ko
Code: Select all
Description : Functions of the library Database but for SQLite (with support Unicode)
_______________________
ProgiRVB->
ProgiRVB_1.0.zip
Taille : 99Ko
_______________________
Wrapper : HaruPDF->
RWHaruPDF_2.0.8.zip
Taille : 979Ko
Code: Select all
Wrapper for HaruPDF ( http://libharu.sourceforge.net/ )
_______________________
Wrapper : ISL->
RWISL_2.5.zip
Taille : 198Ko
Code: Select all
Wrapper for ISL (Images Style Library) ( http://www.paurex.com/?products&prod=isl )
_______________________
Wrapper : SDL->
RWSDL_1.2.11.zip
Taille : 1619Ko
Code: Select all
Wrapper for SDL ( http://www.sdl.org )
Posted: Fri Sep 07, 2007 10:30 pm
by Flype
nice progi1984, seems good.
Posted: Fri Sep 07, 2007 11:13 pm
by byo
Very good work, Progi1984.
You are restless.
