Hi all,
I have a function which export a file from documentum, but have some strange case.
contextFactory = contextFactory.Instance
serviceContext = contextFactory.NewContext
' SETUP credentials
Dim repoId As RepositoryIdentity
repoId = New RepositoryIdentity()
repoId.RepositoryName = defDocbase
repoId.UserName = defUsername
repoId.Password = defPassword
serviceContext.AddIdentity(repoId)
serviceFactory = serviceFactory.Instance
' CREATE object service reference
objectService = serviceFactory.GetRemoteService(Of IObjectService)(serviceContext, "core", _dfsEndPoint)
Dim transferProfile As New ContentTransferProfile()
transferProfile.TransferMode = ContentTransferMode.UCF
transferProfile.DestinationDirectory = tempDirPath
transferProfile.ContentRegistryOption = ContentRegistryOption.UNREGISTERED
objectService.GetServiceContext.SetProfile(transferProfile)
Dim contentProfile As New ContentProfile()
contentProfile.FormatFilter = FormatFilter.ANY
contentProfile.PageFilter = PageFilter.ANY
Dim operationOptions As New OperationOptions()
operationOptions.ContentProfile = contentProfile
Dim objId As New ObjectId(original_fileObjID)
Dim objIdentity As New ObjectIdentity(objId, defDocbase)
Dim objectIdSet As New ObjectIdentitySet()
Dim objIdList As List(Of ObjectIdentity) = objectIdSet.Identities
objIdList.Add(objIdentity)
Dim dataPackage As DataPackage = objectService.Get(objectIdSet, operationOptions) <---- stop here with no response
Dim path As String = dataPackage.DataObjects(0).Contents(0).GetAsFile.FullName
The program was stopped at Dim dataPackage As DataPackage = objectService.Get(objectIdSet, operationOptions) with no any response, no exception throw and no timeout operation.
Can anyone kindly advice how can i do?
Best Regards,
Carson.