Hallo,
aufgrund der infrastrukturbedingten Einschränkungen muss ich eine ReplicaID ändern.
Da dies mit LotusScript nicht geht (meines Wissens) möchte ich das per C-API machen - bin aber auf ein Problem gestoßen.
Der Code sieht derzeit folgendermaßen aus:
Type TIMEDATESTRUCTURE
Innards(1) As Long
End Type
Declare Sub W32_NSFNoteGetInfo Lib "nnotes" Alias "NSFNoteGetInfo" (_
Byval note_handle As Long, _
Byval note_member As Integer, _
value_ptr As Any )
Declare Sub W32_NSFDbSetObjectStoreID Lib "nnotes" Alias "NSFDbSetObjectStoreID" (_
Byval DBHANDLE As Long,_
Byval DBID As Variant)
Declare Sub W32_NSFDbGetObjectStoreID Lib "nnotes" Alias "NSFDbGetObjectStoreID" (_
Byval DBHANDLE As Long,_
DBID As Any)
Declare Function W32_NSFDbOpen Lib "nnotes" Alias "NSFDbOpen" (_
Byval filename As String, _
hDB As Long)_
As Integer
Sub changeRepID
Dim path As String
Dim hdb As Long
Dim ret As Integer
Dim repID As TIMEDATESTRUCTURE
path="EU-APPL20!!ADMIN\changethisrepid.nsf"
ret = W32_NSFDbOpen (path, hDB)
'get replicaID
Call W32_NSFDbGetObjectStoreID (hdb,repid)
End Sub
Der letzte Aufruf liefert immer Nichts zurück. Irgendwo habe ich gelesen, dass das ein Timedate Format ist, daher habe ich das Timestructure aus einem anderen Script, das C-seitig ebenfalls einen Timedate verlangt übernommen.
Offenbar ist da aber noch ein Fehler drin.
Kann mir daher jemand sagen, wie ich den Typ DBID nach LotusScript übernehmen kann? Oder ist da noch ein anderer Fehler drin?