SQLite Server

[Q*bert]

Count me in as another interested user!

[the.weavster]

I've downloaded the zip and will try it out.

The links above are for an old version which from memory wasn't multi-threaded and had a bug which could have caused a deadlock (although unlikely).

I will provide a link to the revised version soon.

weave.

[CSAUER]

Send the files to me, and I will upload again.

It sounds interesting, that you are working on a ERP system. I do it conceptionally, too. I do programing a framework which interfaces the database systems (it comunicates to MySQL as well as SQLite, it has a user management with authorisation checks, logs changes, has a dictionary concept, provides multi-language interfaces, and a scripting language).

Maybe we can discuss via Email.

Cheers
Christian

[Tipperton]

The SQLabs server you mentioned has been bought out by REALbasic and I believe it now only works with RB (and it's a ridiculous price).

Yesh.... try $500 USD for up to 5 concurrent connections and $1,500 for unlimited (currently at $999 introductory price).

Ouch! Looks like Real Software is getting greedy. RealBasic standard used to be $99, now it's $200. Professional used to be $400, now its $500.

[the.weavster]

You can now download the server and client library here:
http://www.oneledger.co.uk

Please also register with the forum:
http://www.oneledger.co.uk/forum/index.php

[the.weavster]

It sounds interesting, that you are working on a ERP system. I do it conceptionally, too. I do programing a framework which interfaces the database systems (it comunicates to MySQL as well as SQLite, it has a user management with authorisation checks, logs changes, has a dictionary concept, provides multi-language interfaces, and a scripting language).

Maybe we can discuss via Email.

Cheers
Christian

Cool, my e-mail address is on the site above.

[the.weavster]

If you downloaded earlier today and are getting an error message from the server about a missing configuration file it's here: http://www.oneledger.co.uk/download/Config.asc.
Sorry about that.

The default password is 'password'.

[the.weavster]

I've found a nasty bug in the client library. When a large dataset is being returned data seems to go missing from the receiving buffer.

I know it's the client library that has the problem because I dont have the same issue with the REALbasic client classses. I guess I must me handling ReceiveNetworkData() incorrectly somehow.

Anyway rather than fix it I have published the protocol for communicating with the server here: http://www.oneledger.co.uk/s4sprotocol.html

I will have to comment out a function in the server that disguises the exchanged text so it's not human readable and recompile it. I will do that this weekend so it will be available for download next Monday or Tuesday.

[the.weavster]

Downloads are available again.

I've also made some changes which have made the server very much faster.

[ankachen]

Downloads are available again.

I've also made some changes which have made the server very much faster.

Do you provide any client program or who can provide one for using? Thanks

[the.weavster]

Hi ankachen,

I haven't created an example client in PureBasic but there is one available to download which was created with REALbasic.

If you're asking about a client library it's not necessary, you communicate with the server using delimited text and a tcp socket. I think in PB you'd use the SendNetworkData() and ReceiveNetworkData() commands. The protocol is here: http://www.oneledger.co.uk/s4sprotocol.html

Unfortunately I don't think PureBasic has a Split() or Join() command for turning delimited strings into arrays and vice versa.

[Thalius]

Unfortunately I don't think PureBasic has a Split() or Join() command for turning delimited strings into arrays and vice versa.

don't think so either .. however i digged out some old code i wrote to fill an array from a string.

Maybe bit cludgy and you could simplyfy things but eh ... maybe helps:

Code: Select all

; Split String into Array

Dim myArr.String(6) 

;/ Args: *ptr2Array (l), String (s) , Delimeter (s)
Procedure Split2Arr(*MyArray.String,string.s,delim.s)
  Protected i.l, ArrSize.l
  ArrSize.l = PeekL(*MyArray - 8)
  For i.l = 0 To ArrSize.l 
    If i.l <= ArrSize.l
      *MyArray\s = StringField(string.s, i.l+1,delim.s) : *MyArray + 4
    EndIf
  Next  
EndProcedure
;/ Example

Split2Arr(@myArr(),"Hello I am a arrayed split string"," ")

Debug "0:"+myArr(0)\s
Debug "1:"+myArr(1)\s
Debug "2:"+myArr(2)\s
Debug "3:"+myArr(3)\s
Debug "4:"+myArr(4)\s
Debug "5:"+myArr(5)\s
Debug "6:"+myArr(6)\s

EDIT: stripped the struct i used for my project .. cleaner now

Thalius

[Flype]

it is a little bit easier/clearer this way :

Code: Select all

;---------------------------------------------------------------------

Macro CountArray(array)
  PeekL(@array - 8) 
EndMacro

Structure arr_DataTypes
  StructureUnion
    b.b
    w.w
    l.l
    f.f
    s.s
  EndStructureUnion
EndStructure

Procedure Split2Array(userArray.arr_DataTypes(1), string.s, delim.s)
  
  Protected i.l, ArrSize.l = CountArray(userArray()) 
  
  For i = 1 To ArrSize 
    userArray(i-1)\s = StringField(string, i, delim) 
  Next 
  
EndProcedure

;---------------------------------------------------------------------

Dim myArr.arr_DataTypes(6)

Split2Array(myArr(), "Hello I am a arrayed split string"," ")

For i = 0 To CountArray(myArr()) - 1
  Debug Str(i) + ": " + myArr(i)\s
Next

;---------------------------------------------------------------------

[Flype]

also, here is a good old post

http://www.purebasic.fr/english/viewtopic.php?t=21495

[Thalius]

also, here is a good old post ...

damn!! I must have skipped that one !! .. must.. read ... more !

Thanks Flype

Thalius