Can you advise, how do you want me to check ? I dont think it is any use trying this myself.
Sub Main() Dim poolRef As FPPool Dim newpcStr1 As String = "128.221.200.180" Dim pPEAFile As String = "C:\Centera\ASIDataServices\Test\emea2_profile1_rdqeDcw1.pea" poolRef = New FPPool(newpcStr1 & "?" & pPEAFile) Dim outName As System.Text.StringBuilder ' = New System.Text.StringBuilder() On Error GoTo 600 100: Pool.GetCapability(poolRef, EMC.Centera.FPApi.FP.DELETE, EMC.Centera.FPApi.FP.ALLOWED, outName, 128) ' - the following also was tried, but of no use
' "FP_DELETE", "FP_ALLOWED", outName, 128) 150: If String.Compare(outName.ToString(), EMC.Centera.FPApi.FP.TRUE) = 0 Then Debug.Print("Can delete clip - capability present")
Else Debug.Print("Can delete clip - capability NOT present") End If 600: MsgBox(Pool.GetLastError) 'throws EMC.Centera.FPTypes.FPLibraryException
mckeown_paul
409 Posts
0
June 16th, 2011 12:00
what error is being generated?
mckeown_paul
409 Posts
0
June 14th, 2011 12:00
what exception is thrown?
rlearn
6 Posts
0
June 16th, 2011 07:00
FPTypes.FPLibraryException
rlearn
6 Posts
0
June 19th, 2011 00:00
Can you advise, how do you want me to check ? I dont think it is any use trying this myself.
Sub Main()
Dim poolRef As FPPool
Dim newpcStr1 As String = "128.221.200.180"
Dim pPEAFile As String = "C:\Centera\ASIDataServices\Test\emea2_profile1_rdqeDcw1.pea"
poolRef = New FPPool(newpcStr1 & "?" & pPEAFile)
Dim outName As System.Text.StringBuilder ' = New System.Text.StringBuilder()
On Error GoTo 600
100: Pool.GetCapability(poolRef, EMC.Centera.FPApi.FP.DELETE, EMC.Centera.FPApi.FP.ALLOWED, outName, 128)
' - the following also was tried, but of no use
' "FP_DELETE", "FP_ALLOWED", outName, 128)
150: If String.Compare(outName.ToString(), EMC.Centera.FPApi.FP.TRUE) = 0 Then
Debug.Print("Can delete clip - capability present")
Else
Debug.Print("Can delete clip - capability NOT present")
End If
600:
MsgBox(Pool.GetLastError) 'throws EMC.Centera.FPTypes.FPLibraryException
End Sub