AFDatabase.FindChangedItems Method (AFIdentity, Boolean, AFTime, AFTime)

<BrowsableAttribute(false)>
<ObsoleteAttribute("This method has been replaced with FindChangedItems(AFIdentity,bool,int,object,out object).")>
Public Function FindChangedItems ( 
	identity As AFIdentity,
	searchSandbox As Boolean,
	sinceTime As AFTime,
	<OutAttribute> ByRef nextUpdateTime As AFTime
) As IList(Of AFChangeInfo)

Dim instance As AFDatabase
Dim identity As AFIdentity
Dim searchSandbox As Boolean
Dim sinceTime As AFTime
Dim nextUpdateTime As AFTime
Dim returnValue As IList(Of AFChangeInfo)

returnValue = instance.FindChangedItems(identity, 
	searchSandbox, sinceTime, nextUpdateTime)

public:
[BrowsableAttribute(false)]
[ObsoleteAttribute(L"This method has been replaced with FindChangedItems(AFIdentity,bool,int,object,out object).")]
IList<AFChangeInfo>^ FindChangedItems(
	AFIdentity identity, 
	bool searchSandbox, 
	AFTime sinceTime, 
	[OutAttribute] AFTime% nextUpdateTime
)

[<BrowsableAttribute(false)>]
[<ObsoleteAttribute("This method has been replaced with FindChangedItems(AFIdentity,bool,int,object,out object).")>]
member FindChangedItems : 
        identity : AFIdentity * 
        searchSandbox : bool * 
        sinceTime : AFTime * 
        nextUpdateTime : AFTime byref -> IList<AFChangeInfo> 

' This example demonstrates getting changes made by other users
'  and refreshing the objects.

' Get the System and System Cookie
Dim myPISystem As PISystem = New PISystems().DefaultPISystem
Dim sysCookie As Object = myPISystem.GetFindChangedItemsCookie(searchSandbox:=False)

' Wait for changes to be made...
'=======================================================


' Find changes made by other users.
Dim list As New List(Of AFChangeInfo)()
Dim resultsPerPage As Integer = 1000
While True
    Dim results As IList(Of AFChangeInfo) _
        = myPISystem.FindChangedItems(False, True, resultsPerPage, sysCookie, sysCookie)
    If ((results Is Nothing) OrElse (results.Count = 0)) Then
        Exit While
    End If

    list.AddRange(results)
End While

' Refresh objects that have been changed.
AFChangeInfo.Refresh(myPISystem, list)

' Find the objects that have been changed.
For Each info As AFChangeInfo In list
    Dim myObj As AFObject = info.FindObject(myPISystem, False)
    Console.WriteLine("Found changed object: {0}", myObj)
Next

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.

' This example demonstrates persisting and restoring the cookie
'  using the XmlSerializer. Other serializers could also be used.
'  Then the cookie is restored and used to get changes made while
'  the application was shut down.

' Get the System and Database and their Cookie Values
Dim myPISystem As PISystem = New PISystems().DefaultPISystem
Dim myDB As AFDatabase = myPISystem.Databases.DefaultDatabase

Dim sysCookie As Object = myPISystem.GetFindChangedItemsCookie(searchSandbox:=False)
Dim dbCookie As Object = Nothing
myDB.FindChangedItems(False, Integer.MaxValue, Nothing, dbCookie)

' Persist the cookie if you want to save to pick up changes
'  where you left off after restarting application.
Dim tmpDir As String = Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData)
Dim sysCookieFile As String = Path.Combine(tmpDir, "AFSysCookie.xml")
Dim dbCookieFile As String = Path.Combine(tmpDir, "AFDbCookie.xml")
Dim serializer As XmlSerializer = New XmlSerializer(GetType(Object()))
Using stream As FileStream = File.Create(sysCookieFile)
    serializer.Serialize(stream, sysCookie)
End Using
Using stream As FileStream = File.Create(dbCookieFile)
    serializer.Serialize(stream, dbCookie)
End Using

' Shut down application, and wait for changes to be made...
'=======================================================


' After application restarts, reload persisted cookies.
Using stream As FileStream = File.OpenRead(sysCookieFile)
    sysCookie = serializer.Deserialize(stream)
End Using
Using stream As FileStream = File.OpenRead(dbCookieFile)
    dbCookie = serializer.Deserialize(stream)
End Using

' Find changes made while application not running.
Dim list As List(Of AFChangeInfo) = New List(Of AFChangeInfo)
Dim resultsPerPage As Integer = 1000
While True
    Dim results As IList(Of AFChangeInfo) _
        = myPISystem.FindChangedItems(False, resultsPerPage, sysCookie, sysCookie)
    If ((results Is Nothing) OrElse (results.Count = 0)) Then
        Exit While
    End If

    list.AddRange(results)
End While
While True
    Dim results As IList(Of AFChangeInfo) _
        = myDB.FindChangedItems(False, resultsPerPage, dbCookie, dbCookie)
    If ((results Is Nothing) OrElse (results.Count = 0)) Then
        Exit While
    End If

    list.AddRange(results)
End While

list.AddRange(myPISystem.FindChangedItems(False, Integer.MaxValue, sysCookie, sysCookie))
list.AddRange(myDB.FindChangedItems(False, Integer.MaxValue, dbCookie, dbCookie))

' Find the objects that have been changed.
For Each info As AFChangeInfo In list
    Dim myObj As AFObject = info.FindObject(myPISystem, False)
    Console.WriteLine("Found changed object: {0}", myObj)
Next

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.