%REM
*********************************************
Agent test\bankCOM
Created Jan 23, 2015 by Mikhail Cholokov/CRUINTERNET
Description: Comments for Agent
%END REM
Option Public
Option Declare
Use "ErrorHandling"
Use "TempDir"
Sub Initialize
On Error GoTo ErrH
Dim sName As Variant
Dim sKey1 As Variant
Dim sKey2 As Variant
Dim Result As Variant
Dim path As String
Dim devmgr
sName = "testname"
sKey1 = "testKey1"
sKey2 = "testKey2"
path = "C:\test"
Set devmgr = createobject( "iFOBSDocIntegrator.DocOperation")
Result = devmgr.Login(sName,sKey1,sKey2,StringToBytes(path, True))
Print {1:}Result
Result = devmgr.Login(sName,sKey1,sKey2,path)
Print {2:}Result
Result = devmgr.Login(sName,sKey1,sKey2,StringToBytes(path, False))
Print {3:}Result
Quit:
Exit Sub
ErrH:
Error Err, RaiseError
End Sub
%REM
*--------------------------------------------
Function StringToBytes
Description: Comments for Function
%END REM
Function StringToBytes(txt As String, twobytes As Boolean)
Dim routineName As String
routineName="StringToBytes"
On Error GoTo ErrH
'your code here
Dim sess As New NotesSession
Dim stream1 As NotesStream
Dim stream2 As NotesStream
Dim bytes1 As Variant
Dim bytes2 As Variant
Dim buf (0) As Byte
buf(0)=0
Set stream1 = sess.CreateStream
Call stream1.WriteText(txt)
Call stream1.Write(buf)
stream1.Position = 0
bytes1 = stream1.Read
Call stream1.Close()
Dim tmp As String
If twobytes Then
Set stream2 = sess.CreateStream
Dim tmpdir As New TempFolderManager
tmp=tmpdir.NewFilename({txt}, True)
Print {temp name:}tmp
Call stream2.Open(tmp, "Unicode")
Call stream2.WriteText(txt)
Call stream2.Write(buf)
stream2.Position = 0
bytes2 = stream2.Read
Call stream2.Close()
StringToBytes=bytes2
MsgBox {Stop}
Else
StringToBytes=bytes1
End If
Quit:
Exit Function
ErrH:
Error Err, RaiseError
Resume Quit
End Function
