FlowFact - Entwicklungstools

zurück

Sub - FlowFact_InitConnector
Schnittstelle über FFConnector.dll initialisieren

  Sub FlowFact_InitConnector(ByVal strFlowFactPath As String, ByVal strUser As String, ByVal strPassword As String)  
 


strFlowFactPath: Pfadangabe zur FlowFact.exe
strUser: Benutzername
strPassword: Gültiges Kennwort


Public Sub FlowFact_InitConnector(ByVal strFlowFactPath As String, ByVal strUser As String, ByVal strPassword As String)
    FlowFact_Done

    On Error Resume Next
    'Set m_oConnector = GetObject("", "FFConnector.Application")
    Set m_oConnector = CreateObject("FFConnector.Application")
    If Err <> 0 Or (m_oConnector Is Nothing) = True Then
        MsgBox "FFConnector.Application-Objekt konnte nicht erstellt werden."
        Exit Sub
    End If
    On Error GoTo 0

    If strFlowFactPath = "" Then
        MsgBox "FlowFact_InitConnector: Pfadangabe fehlt."
        Exit Sub
    End If

    If Mid(strFlowFactPath, Len(strFlowFactPath), 1) = "\" Then
        strFlowFactPath = Mid(strFlowFactPath, 1, Len(strFlowFactPath) - 1)
    End If

    If oFileSystem.FolderExists(strFlowFactPath) = False Then
        MsgBox "FlowFact_InitConnector: Pfad '" & strFlowFactPath & "' nicht gefunden."
        Exit Sub
    End If


    On Error Resume Next
    '** Login erfordert das Kennwort in Großbuchstaben
    strPassword = UCase(strPassword)
    m_oConnector.Logon strFlowFactPath, strUser, strPassword
    If Err <> 0 Then
        If m_FlagSqlLog = True Then
            DoLog "FlowFact_InitConnector", "FlowFactPath: '" & strFlowFactPath & "'; User: '" & strUser & "'; Err: '" & Err.Description & "'"
            On Error Resume Next
        Else
            MsgBox "Anmeldung in FFConnector ist fehlgeschlagen."
        End If

        Exit Sub
    End If
    On Error GoTo 0

    Set m_oUtil = m_oConnector.Util
    Set m_oBlob = m_oConnector.Blob
    Set m_oDbIni = m_oConnector.DbIni
    m_oFlowFactFolder = strFlowFactPath

    m_oTools.Init Me
    m_oBase.Init Me, m_oTools

    m_InitType = INITTYPE_CONNECTOR

End Sub