OSCARLib Frage

  • Allgemein

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von jvbsl.

    OSCARLib Frage

    Hallo Zusammen,

    ich experimentiere zurzeit etwas mit der OSCARLib herum. Allerdings hab ich da ein kleines Problem. Evtl. ist das auch keine Sache die speziell die OSCARLib betrifft daher bitte ich es zu Entschuldigen wenn das hier das falsche Forum sein sollte.

    Also ich fang mal an:

    Wenn ich das richtig verstanden habe muss man bei der Lib für alles ein Handler erstellen.

    Das sieht jetzt momentan bei mir so aus:

    VB.NET-Quellcode

    1. 'Add Handler
    2. AddHandler _session.LoginFailed, AddressOf _login_Failed
    3. AddHandler _session.LoginCompleted, AddressOf _login_Completed
    4. AddHandler _session.ContactListFinished, AddressOf _login_ContactListFinished
    6. AddHandler _session.StatusUpdate, AddressOf _session_StatusUpdate
    7. AddHandler _session.WarningMessage, AddressOf _session_WarningMessage
    9. AddHandler _session.AuthorizationRequestReceived, AddressOf _auth_RequestReceived
    10. AddHandler _session.AuthorizationResponseReceived, AddressOf _auth_ResponseReceived
    11. AddHandler _session.FutureAuthorizationReceived, AddressOf _auth_FutureReceived
    13. AddHandler _session.Statuses.UserInfoReceived, AddressOf _status_UserInfoReceived
    14. AddHandler _session.Statuses.UserStatusReceived, AddressOf _status_UserStatusReceived
    15. AddHandler _session.Statuses.UserOffline, AddressOf _status_UserOffline


    Jetzt weiß ich aber nicht wie prüfen kann ob etwas schon "fertig" ist da das ja alles im einem extra Thread läuft.

    Bsp.:

    VB.NET-Quellcode

    1. Private Sub _status_UserStatusReceived(ByVal sender As Object, ByVal userinfo As UserInfo)
    3. If userinfo.ICQUserStatus = ICQStatus.Online Then
    5. _users.Add(userinfo.ScreenName & " | " & "Online")
    7. Else
    8. _users.Add(userinfo.ScreenName & " | " & "Offline")
    10. End If
    12. End Sub


    Erstes kann daraus schon mal nicht auf die GUI zugreifen, daher schreibe ich es in ein List Of (String). Aber ich weiß jetzt ja nicht wenn das abgeschlossen ist.
    Klar könnte ich jetzt hier mit while schleifen arbeiten, aber da muss es doch eine schönere Lösung geben. (?)

    Vollständigkeit halber hier der komplette Code
    (Hier habs ich mal mit while schleifen versucht. Tut auch aber ist halt keine saubere Lösung finde ich) :

    Spoiler anzeigen


    VB.NET-Quellcode

    1. Public Class Form1
    2. Inherits QRibbonForm
    3. Dim _session As New Session(My.Settings.UIN, My.Settings.Password)
    4. Dim _users As New List(Of String)
    5. Dim _complete As Boolean = False
    7. Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    9. If _session.LoggedIn = False Then
    11. _session.Logoff()
    13. End If
    15. End Sub
    17. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    19. 'Add Handler
    20. AddHandler _session.LoginFailed, AddressOf _login_Failed
    21. AddHandler _session.LoginCompleted, AddressOf _login_Completed
    22. AddHandler _session.ContactListFinished, AddressOf _login_ContactListFinished
    24. AddHandler _session.StatusUpdate, AddressOf _session_StatusUpdate
    25. AddHandler _session.WarningMessage, AddressOf _session_WarningMessage
    27. AddHandler _session.AuthorizationRequestReceived, AddressOf _auth_RequestReceived
    28. AddHandler _session.AuthorizationResponseReceived, AddressOf _auth_ResponseReceived
    29. AddHandler _session.FutureAuthorizationReceived, AddressOf _auth_FutureReceived
    31. AddHandler _session.Statuses.UserInfoReceived, AddressOf _status_UserInfoReceived
    32. AddHandler _session.Statuses.UserStatusReceived, AddressOf _status_UserStatusReceived
    33. AddHandler _session.Statuses.UserOffline, AddressOf _status_UserOffline
    36. _session.SetDefaultIdentification()
    38. _session.Logon(My.Settings.login_server, My.Settings.login_port)
    40. While _session.LoggedIn = False
    42. End While
    44. Label_status.Text = "Online"
    46. For Each _buddy As SSIBuddy In _session.SSI.GetSSIBuddyList
    48. _session.Statuses.RequestBasicUserInfo(_buddy.Name, BasicUserInfoRequest.OnlineInfo)
    50. Next
    52. While _complete = False
    55. End While
    58. For Each _user In _users
    61. lv_users.Items.Add(_user)
    63. Next
    66. End Sub
    68. Private Sub _login_Failed(ByVal sess As Session, ByVal errorcode As LoginErrorCode)
    69. MessageBox.Show("Failed to Login: " & errorcode.ToString)
    70. End Sub
    72. Private Sub _login_Completed(ByVal sess As Session)
    73. MessageBox.Show("Login Complete")
    74. End Sub
    76. Private Sub _login_ContactListFinished(ByVal sess As Session, ByVal lastModificationDate As Date)
    77. _session.ActivateBuddyList()
    78. End Sub
    80. Private Sub _session_StatusUpdate(ByVal sess As Session, ByVal message As String)
    81. Throw New NotImplementedException
    82. End Sub
    84. Private Sub _auth_RequestReceived(ByVal sess As Session, ByVal screenname As String, ByVal reason As String)
    85. Throw New NotImplementedException
    86. End Sub
    88. Private Sub _session_WarningMessage(ByVal sess As Session, ByVal errorcode As ServerErrorCode)
    89. Throw New NotImplementedException
    90. End Sub
    92. Private Sub _auth_ResponseReceived(ByVal sess As Session, ByVal screenname As String, ByVal authorizationGranted As Boolean, ByVal reason As String)
    93. Throw New NotImplementedException
    94. End Sub
    96. Private Sub _auth_FutureReceived(ByVal sess As Session, ByVal screenname As String, ByVal reason As String)
    97. Throw New NotImplementedException
    98. End Sub
    100. Private Sub _status_UserInfoReceived(ByVal sender As Object, ByVal info As UserInfoResponse)
    101. Throw New NotImplementedException
    102. End Sub
    104. Private Sub _status_UserStatusReceived(ByVal sender As Object, ByVal userinfo As UserInfo)
    106. If userinfo.ICQUserStatus = ICQStatus.Online Then
    108. _users.Add(userinfo.ScreenName & " | " & "Online")
    110. Else
    111. _users.Add(userinfo.ScreenName & " | " & "Offline")
    113. End If
    115. _complete = True
    117. End Sub
    119. Private Sub _status_UserOffline(ByVal sender As Object, ByVal userinfo As UserInfo)
    120. Throw New NotImplementedException
    121. End Sub
    123. End Class




    Ich weiß das ist nicht so wirklich gut erklärt, aber ich hoffe ihr versteht was mein Problem ist. Vielen Dank.

    Gruß Seji

    ich hätte das mit einem Invoke gemacht(oder natürlich in einer Extra Klasse alles nochmal neu mit den Events...)

    VB.NET-Quellcode

    1. Private Delegate Sub UserStatusReceived(ByVal sender As Object, ByVal userinfo As UserInfo)
    2. Private Sub _status_UserStatusReceived(ByVal sender As Object, ByVal userinfo As UserInfo)
    3. If Me.InvokeRequired Then
    4. Me.Invoke(New UserStatusReceived(AddressOf _status_UserStatusReceived),New Object() {sender,userinfo})
    5. Else
    6. If userinfo.ICQUserStatus = ICQStatus.Online Then
    8. _users.Add(userinfo.ScreenName & " | " & "Online")
    10. Else
    11. _users.Add(userinfo.ScreenName & " | " & "Offline")
    13. End If
    14. End If
    15. End Sub

    _users ist nun deine ListBox
    guck dir den(/die) Code(veränderungen) an und verstehe ihn(/diese), dann sollte es dir auch möglich sein das ganze auf die anderen Events zu übertragen...
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

    Hallo,

    vielen dank für dein schneller Antwort. Ich werde mir das mal anschauen.
    Allerdings ist mir nicht ganz klar wozu dieses Delegate Sub gut ist. Benötige ich das damit der Invoke funktioniert?

    Gruß Seji

    EDIT: Sry gut Delegate Sub benötige ich um den Invoke zu fahren. Jetzt geht er aber in den Handler immer zweimal (was ja logisch ist -> invoke ruft das ja nochmal auf) aber eigentlich dürfte er da doch wegen dem Else nicht reingehen, oder?

    er geht wegen dem Else beim ersten mal nicht rein, beim zweiten mal sollte dies jedohc der Fall sein ;)...
    außerdem wäre es anstatt dem Delegaten auch möglich die EventArgs zu verwenden(evtl. UserStatusReceivedEventArgs?!)
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

    Also EventArgs hab ich keine gesehen bei der Lib. Allerdings geht der mir 4x durch wodurch er dann zweimal im Else landet. Aber warum ist mir nicht klar.

    Code again:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports Qios.DevSuite.Components.Ribbon
    2. Imports csammisrun.OscarLib
    3. Public Class Form1
    4. Inherits QRibbonForm
    5. Public _session As New Session(My.Settings.UIN, My.Settings.Password)
    7. Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    9. If _session.LoggedIn = False Then
    11. _session.Logoff()
    13. End If
    15. End Sub
    17. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    19. 'Add Handler
    20. AddHandler _session.LoginFailed, AddressOf _login_Failed
    21. AddHandler _session.LoginCompleted, AddressOf _login_Completed
    22. AddHandler _session.ContactListFinished, AddressOf _login_ContactListFinished
    24. AddHandler _session.StatusUpdate, AddressOf _session_StatusUpdate
    25. AddHandler _session.WarningMessage, AddressOf _session_WarningMessage
    27. AddHandler _session.AuthorizationRequestReceived, AddressOf _auth_RequestReceived
    28. AddHandler _session.AuthorizationResponseReceived, AddressOf _auth_ResponseReceived
    29. AddHandler _session.FutureAuthorizationReceived, AddressOf _auth_FutureReceived
    31. AddHandler _session.Statuses.UserInfoReceived, AddressOf _status_UserInfoReceived
    32. AddHandler _session.Statuses.UserStatusReceived, AddressOf _status_UserStatusReceived
    33. AddHandler _session.Statuses.UserOffline, AddressOf _status_UserOffline
    35. lv_users.Items.Clear()
    37. _session.SetDefaultIdentification()
    39. _session.Logon(My.Settings.login_server, My.Settings.login_port)
    42. End Sub
    44. Private Sub _login_Failed(ByVal sess As Session, ByVal errorcode As LoginErrorCode)
    45. MessageBox.Show("Failed to Login: " & errorcode.ToString)
    46. End Sub
    47. Private Delegate Sub LoginCompleted(ByVal sess As Session)
    48. Private Sub _login_Completed(ByVal sess As Session)
    50. If Me.InvokeRequired Then
    51. Me.Invoke(New LoginCompleted(AddressOf _login_Completed), New Object() {sess})
    52. Else
    53. Label_status.Text = "Online"
    55. End If
    57. End Sub
    59. Private Sub _login_ContactListFinished(ByVal sess As Session, ByVal lastModificationDate As Date)
    60. _session.ActivateBuddyList()
    61. For Each _buddy As SSIBuddy In _session.SSI.GetSSIBuddyList
    63. _session.Statuses.RequestBasicUserInfo(_buddy.Name, BasicUserInfoRequest.OnlineInfo)
    65. Next
    66. End Sub
    68. Private Sub _session_StatusUpdate(ByVal sess As Session, ByVal message As String)
    69. Throw New NotImplementedException
    70. End Sub
    72. Private Sub _auth_RequestReceived(ByVal sess As Session, ByVal screenname As String, ByVal reason As String)
    73. Throw New NotImplementedException
    74. End Sub
    76. Private Sub _session_WarningMessage(ByVal sess As Session, ByVal errorcode As ServerErrorCode)
    77. Throw New NotImplementedException
    78. End Sub
    80. Private Sub _auth_ResponseReceived(ByVal sess As Session, ByVal screenname As String, ByVal authorizationGranted As Boolean, ByVal reason As String)
    81. Throw New NotImplementedException
    82. End Sub
    84. Private Sub _auth_FutureReceived(ByVal sess As Session, ByVal screenname As String, ByVal reason As String)
    85. Throw New NotImplementedException
    86. End Sub
    88. Private Sub _status_UserInfoReceived(ByVal sender As Object, ByVal info As UserInfoResponse)
    89. MsgBox(info.Info.ICQUserStatus.ToString)
    90. End Sub
    92. Private Delegate Sub UserStatusReceived(ByVal sender As Object, ByVal userinfo As UserInfo)
    93. Private Sub _status_UserStatusReceived(ByVal sender As Object, ByVal userinfo As UserInfo)
    94. If Me.InvokeRequired Then
    95. Me.Invoke(New UserStatusReceived(AddressOf _status_UserStatusReceived), New Object() {sender, userinfo})
    96. Else
    98. lv_users.Items.Add(userinfo.ScreenName & " | " & "Online")
    100. End If
    101. End Sub
    102. Private Delegate Sub UserOffline(ByVal sender As Object, ByVal userinfo As UserInfo)
    103. Private Sub _status_UserOffline(ByVal sender As Object, ByVal userinfo As UserInfo)
    104. If Me.InvokeRequired Then
    105. Me.Invoke(New UserOffline(AddressOf _status_UserOffline), New Object() {sender, userinfo})
    106. Else
    107. lv_users.Items.Add(userinfo.ScreenName & " | " & "Offline")
    109. End If
    110. End Sub
    112. Private Sub lv_users_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles lv_users.MouseDoubleClick
    114. message.Label_user_remote.Text = lv_users.SelectedItem.ToString.Split("|")(0).ToString.Trim
    115. message.Show()
    117. End Sub
    118. End Class


    Gruß Seji

    woher weißt du, dass es vier mal passiert? Aufgrund von Haltepunkten, oder Aufgrund dessen was im Formular passiert?
    Das sieht mir nämlich viel mehr nach einem(mehr oder weniger) Fehler in der Lib aus...
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

    Hm also beim login passt es, nur bei der Kontaktliste macht er den loop.

    Habs jetzt so gelöst:

    VB.NET-Quellcode

    1. Dim _exit As Boolean = False
    3. If Me.InvokeRequired Then
    4. Me.Invoke(New UserStatusReceived(AddressOf _status_UserStatusReceived), New Object() {sender, userinfo})
    5. Else
    7. For Each _user In lv_users.Items
    9. If _user.ToString = userinfo.ScreenName & " | " & "Online" Then
    11. _exit = True
    12. Exit For
    14. End If
    16. Next
    18. If _exit = False Then
    20. lv_users.Items.Add(userinfo.ScreenName & " | " & "Online")
    22. End If
    24. _exit = False
    26. End If


    Aber ich denke ich komm so jetzt erstmal weiter. Also vielen Dank!!

    Gruß Seji

    VB.NET-Quellcode

    1. If lv_users.Items.Contains(userinfo.ScreenName & " | " & "Online") = False Then
    2. lv_useres.Items.Add(userinfo.ScreenName & " | " & "Online")
    3. End If
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---