Kofax DM API Instrukcja Użytkownika Pobierz pdf (Strona 150)

130 CHAPTER 4

AddLogin

'DM API supports.

MyLoginType.LIBRARY_LOGIN = 0

MyLoginType.NETWORK_BINDERY = 1

MyLoginType.NETWORK_NDS = 2

MyLoginType.MS_NETWORK = 8

'Create an instance of the logon object.

Dim pClient As PCDLogin

Set pClient = New PCDLogin

'Get the Library, User Name, and Password from

'the form.

Dim Library As String

Dim User As String

Dim Password As String

Library = txtLib.Text

User = txtUser.Text

Password = txtPassword.Text

'Use the Attaché password to log on to

'the indicated library.

Dim rc As Long

rc = pClient.AddLogin( _

MyLoginType.LIBRARY_LOGIN, _

Library, _

User, _

Password )

'The DM Server authenticates

'the logon.

rc = pClient.Execute

'Check the return code for success.

If rc <> 0 Then MsgBox "A problem occurred."

'Clean up.

Set pClient = Nothing

1 2 ... 145 146 147 148 149 150 151 152 153 154 155 ... 527 528

Komentarze do niniejszej Instrukcji

Brak uwag