---

Mal eine Frage zum Thema Smarteam Programmierung:
Kann man Smarteam auch von extern mittels Programmen ansprechen ?
D.h. z.B. Anlegen von CATIA Product Struktur mittels Übergabefile, welches Metadaten und Struktur enthält ?
mfg
Bettina

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ja,

man muß nur alles selbst tun,
Session aufmachen, login, ..

Beispiel in VB

Sub Main()
Set fso = CreateObject("Scripting.FileSystemObject")
Set smEngine = New SmApplic.SmFreeThreadedEngine
If Not smEngine Is Nothing Then
    smEngine.Init "SmTeam32"
    Set smSession = New SmApplic.smSession
    smSession.Init smEngine, "ST Safety", smEngine.ConfigurationName
   

    If Not smSession Is Nothing Then
        Set fs = fso.OpenTextFile("STsafety.ini", ForReading, False)
        Line = fs.ReadLine()
        Line = fs.ReadLine()
        pos = InStr(Line, ";")
        DatabaseName = Left(Line, pos - 1)
        Line = Mid(Line, pos + 1)
        pos = InStr(Line, ";")
        DataBasePassword = Left(Line, pos - 1)
        Line = Mid(Line, pos + 1)
        pos = InStr(Line, ";")
        UserName = Left(Line, pos - 1)
        Line = Mid(Line, pos + 1)
        pos = InStr(Line, ";")
        UserPassword = Left(Line, pos - 1)
        fs.Close
        Set fs = fso.OpenTextFile("STsafety.log", ForAppending, True)
       
        smSession.OpenDatabaseConnection DatabaseName, DataBasePassword, False
        If smSession.UserLogin(UserName, UserPassword) Then
            MsgBox "Userlogin erfolgreich!"
        Else
            MsgBox "Fehler: Userlogin nicht erfolgreich!"
        End If
        fs.Close
        smSession.Close
        Set smSession = Nothing
    Else
        MsgBox "Fehler: smSession nicht initialisiert!"
    End If
   
    smEngine.Terminate
    Set smEngine = Nothing

Else
    MsgBox "Fehler: smEngine nicht initialisiert!"
End If

End Sub

------------------
Gruß Ingo

Leipzig 2012
one family

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Bettina,

du findest alles was man braucht auf der 'Documentation' CD unter SMARTEAM Delelopment Suite.
In dem PDF 'STCom Programmer Guide' und in der Hilfe 'STCom API Reference Guide' sind neben den Methoden und Eigenschaften auch Beispielskripte und konzeptionelle Zusammenhänge beschrieben.

Gruß
Christian

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke für die Infos.
Hab jetzt mal versucht mich zu der DB zu verbinden, erhalte dann jedoch immer die Meldung, daß user/password inkorrekt sind.
Was nun ?????
Verwende Session.OpenDatabaseConnection "ecsora2.ecs", "password", True
Danke Bettina

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Bettina,

ist "escora2.esc" der database alias ? Vermutlich hast Du im DB Model Designer (oder mit der dbregistration.exe)  einen 'handlicheren' Namen für deine DB eingegeben.

'*******************************************************

In meinen Skripts beziehe ich mich immer auf die standard Datenbank.

siehe  (in diesem Fall jedoch als Standard Engine):

Public Sub LoginST(Applikation As String, SilentMode As Boolean)

Dim FirstDb As SmApplic.SmDatabase
Dim GUIServices  As Object
Set SmEngineIntern = New SmApplic.SmEngine
SmEngineIntern.Init "SmTeam32"
SmEngineIntern.UseMultiLanguage = True
Set SmSessionIntern = SmEngineIntern.CreateSession(Applikation, SmEngineIntern.ConfigurationName)
Set FirstDb = SmEngineIntern.Databases(0)
SmSessionIntern.OpenDatabaseConnection FirstDb.Alias, FirstDb.Password, True
If SilentMode = True Then
  SmSessionIntern.UserLogin "joe", "joe"
' SmSessionIntern.UserLogin "{username}", "{password}"
 
Else
  Set GUIServices = SmSessionIntern.GetService("SmGuiSrv.SmCommonGUI")
  GUIServices.Dialogs.ExecuteLogin
End If

End Sub

Gruß
Christian

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke, so hats geklappt.
Bettina

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP