Blogs

  • Browse Blogs
  • My Blog
  • My Updates

Tags Help

  • View as cloud  | list

Similar Blogs

photo

Yellow is the...

55 Entries |  Tim Tripcony
Updated 
No Ratings 0     Comments 22
photo

TexasSwede

66 Entries |  Karl-Henry Martinsso...
Updated 
No Ratings 0     Comments 59
photo

Lotus Nut

69 Entries |  Chris Whisonant
Updated 
Ratings 4     Comments 96
photo

Urs Meli

19 Entries |  Urs Meli
Updated 
No Ratings 0     Comments 14
photo

Uh Clem's Adm...

35 Entries |  Chris Mobley
Updated 
Ratings 5     Comments 42

Dogear Bookmarks

.Domino Framework

Blog Authors:  Peter Presnell  

All entries tagged with replicaid

New DominoDatabase.ReplicaID Property

Peter Presnell  |     |  Tags:  inspector replicaid .dominoframework  |  Comments (0)

Earlier today Tim Tripcomy wrote a great article about Nexus, a new tool he has developed to allow databases to be assigned new replica ids.  After reading the article I decided to finally get around to adding a Read/Write ReplicaID property to the .Domino Framework's DominoDatabase class based upon this code.  (Thanks Tim, I remember seeing the breaking par code a long time ago and forgot where I had seen it).  I will also be updating the Inspector tool included with the fraemwork so that the replicaid becomes editable.  The code is as follows:-

'/** ' * Replica ID of database (NotesDatabase property is read-only) ' */ Property Get ReplicaID As String If (iDB Is Nothing) Then Exit Property ReplicaID$ = iDB.ReplicaID$ End Property Property Set ReplicaID As String Dim DB_Path As String*256 Dim hDB As Long Dim ReplicaInfo As DBReplicaInfo If (Len(ReplicaID$) < 16 Or Len(ReplicaID$) > 17) Then Exit Property ' ReplicaID must be 16 characters with optional ":" in the middle (as used by @formulae) If iDB Is Nothing Then Exit Property Call OSPathNetConstruct(0, iDB.Server$, iDB.FilePath$, DB_Path) API_Return_Code = NSFDbOpen(DB_Path, hDb) If (API_Return_Code <> 0) Then Exit Property API_Return_Code = NSFDbReplicaInfoGet(hDb, ReplicaInfo) If (API_Return_Code = 0) Then ReplicaInfo.ReplicaID.Byte(0) = Val("&H"+Right(ReplicaID$,8)) ReplicaInfo.ReplicaID.Byte(1) = Val("&H" + Left(ReplicaID$,8)) API_Return_Code = NSFDbReplicaInfoSet(hDb, ReplicaInfo) End If API_Return_Code = NSFDbClose(hDb) End Property

Skip to main content link. Accesskey S
IBM Lotus Connections Help Tools About

Tags

A tag is a keyword that is used to categorize an entry. To view the entries with a particular tag, click a tag name or enter a tag in the box.
The tag cloud indicates the frequency of tag use. Popular tags appear darkest. The slider control adjusts how many tags are displayed in the tag cloud.