27 lines
537 B
Text
27 lines
537 B
Text
|
;***************************************************************
|
||
|
|
;*
|
||
|
|
;* IMSS Sample
|
||
|
|
;*
|
||
|
|
;* (c) 2023 by Linder Hard- und Software
|
||
|
|
;*
|
||
|
|
;* GPL v2.0 Only
|
||
|
|
;*
|
||
|
|
;*
|
||
|
|
;***************************************************************
|
||
|
|
|
||
|
|
EnableExplicit
|
||
|
|
|
||
|
|
Define MyUUID.s
|
||
|
|
XIncludeFile "imss.pbi"
|
||
|
|
|
||
|
|
MyUUID = imss::Create()
|
||
|
|
|
||
|
|
Debug "Database Created:"+MyUUID
|
||
|
|
|
||
|
|
imss::Save(MyUUID, "TestName", "TestValue")
|
||
|
|
Debug "Test:"+imss::Get(MyUUID, "TestName")
|
||
|
|
imss::Del(MyUUID, "TestName")
|
||
|
|
Debug "Test:"+imss::Get(MyUUID, "TestName")
|
||
|
|
imss::Kill(MyUUID)
|
||
|
|
Debug "Killed"
|