Shared store

(5)

Loading ...

July 29th, 2008 3:18 pm Print Email

Have you ever faced below issues?

Inter processes communication (Ex - QTP and VBScript)?
Passing information from one Action to another action?
Passing information from one component to another component in BPT?
Creating objects which can persists for as long as you want to improve performance?
Passing information from one machine to another machine?
Keep information in memory even when you process exists (Ex – QTP, VBScript)?
If your answer to any of the above question is yes then here is the answer for you.

Knowledge inbox is proud to present one of the most innovative solutions to overcome above mentioned problems – KnowledgeInbox Shared Store

What is KnowledgeInbox SharedStore?

KnowledgeInbox Shared store is COM based ActiveX EXE that allows you to create logical stores and store objects and value inside them. The information stored can be persisted in memory for as long as the system is up after storing the information. Sample code Run below code in QTP

'Create the shared store
Set oSharedStore = CreateObject ("KnowledgeInbox.SharedStore")
 
'Add a new store
Set oStore = oSharedStore.AddStore("GeneralTest")
 
'Create a dictionary object in shared store
Set oDict = oSharedStore.CreateObject("Scripting.Dictionary")
 
'Add the dictionary object to the store
oStore.AddItem "TestDictionary" , oDict
 
'Update some values in dictionary
oDict("CA") = "California"
 
'Destroy the object
Set oDict = Nothing
 
'Instruct shared to store to remain in memory
oSharedStore.PersistInMemory = True
 
'Destroy the shared store
Set oSharedStore = Nothing

Close QTP and now open a VBScript notepad

'Create the shared object store
Set oSharedStore = CreateObject ("KnowledgeInbox.SharedStore")
 
'Get the specified store
Set oStore = oSharedStore.GetStore("GeneralTest")
 
'Get the specified object from the store
Set oDict = oStore.GetItem ("TestDictionary")
 
'Will display california
MsgBox oDict("CA")
 
'Now instruct shared store to unload when destroyed
oSharedStore.PersistInMemory = False
 
'Destroy the shared store
Set oSharedStore = Nothing