Rückgabewert eines Threads in einer .dll

  • VB.NET

Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von .Scare.

    Rückgabewert eines Threads in einer .dll

    Hallo Com.

    Ich weis nicht ob ich einfacht nur auf dem Schlach stehe oder ob dies wirklich nicht so einfacht geht.

    Ich habe mein Hauptprojekt und darin eine .DLL

    vom Hauptprogramm aus starte ich eine Sub in der DLL in einem Thread. nun aber die Frage, wie bekomme ich das Resultat dieser Sub in das Hauptprogramm?

    Und ja, ich muss leider diese Sub in einem Thread laufen lassen, da diese eine Xml-Datei ausliest und weiter verarbeitet welche mehr als 4000 Zeilen hat... =(

    Was für ein Resultat? Eine Sub hat keinen Rückgabewert...
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    hups, falsche ausgedrückt. das Resultat ist in einer Variable z.b. Result_Text As String und diesen möchte ich irgendwie in meine MainClass weitergeben.

    Ich habe mir schon überlegt das Resultat im Temp zwischen zu speichern und nach dem beenden des threades von der MainClass wider auszulesen..

    aber ihc denke fast das es eigentlich noch etwas schöner geht oder nicht?

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „.Scare“ ()

    Im Normalfall sieht das in etwa so aus:
    Spoiler anzeigen
    Hauptprogramm:

    VB.NET-Quellcode

    1. Sub StartDoingStuff()
    2. With New Thread( _
    3. Sub()
    4. Dim Doer As New Dll.StuffDoer
    5. Dim Result = Doer.DoStuff()
    6. 'Was mit Result machen
    7. End Sub)
    8. .Start()
    9. End With
    10. End Sub
    Dll:

    VB.NET-Quellcode

    1. Public Class StuffDoer
    2. Public Function DoStuff() As DoStuffResult
    3. '...
    4. End Function
    5. End Class

    Oder, wenn die Methode das nicht direkt zurückgibt, sondern in eine Variable speichert:
    Spoiler anzeigen
    Hauptprogramm:

    VB.NET-Quellcode

    1. Sub StartDoingStuff()
    2. With New Thread( _
    3. Sub()
    4. Dim Doer As New Dll.StuffDoer
    5. Doer.DoStuff()
    6. Dim Result = Doer.Result
    7. 'Was mit Result machen
    8. End Sub)
    9. .Start()
    10. End With
    11. End Sub
    Dll:

    VB.NET-Quellcode

    1. Public Class StuffDoer
    2. Public Property Result As DoStuffResult
    3. Public Sub DoStuff()
    4. '...
    5. Result = ...
    6. End Sub
    7. End Class


    Wie sieht das bei Dir aus? Wie sehen die entsprechenden Klassen aus?
    "Luckily luh... luckily it wasn't poi-"
    -- Brady in Wonderland, 23. Februar 2015, 1:56
    Desktop Pinner | ApplicationSettings | OnUtils

    Niko Ortner schrieb:

    Im Normalfall sieht das in etwa so aus:
    Spoiler anzeigen
    Hauptprogramm:

    VB.NET-Quellcode

    1. Sub StartDoingStuff()
    2. With New Thread( _
    3. Sub()
    4. Dim Doer As New Dll.StuffDoer
    5. Dim Result = Doer.DoStuff()
    6. 'Was mit Result machen
    7. End Sub)
    8. .Start()
    9. End With
    10. End Sub
    Dll:

    VB.NET-Quellcode

    1. Public Class StuffDoer
    2. Public Function DoStuff() As DoStuffResult
    3. '...
    4. End Function
    5. End Class

    Oder, wenn die Methode das nicht direkt zurückgibt, sondern in eine Variable speichert:
    Spoiler anzeigen
    Hauptprogramm:

    VB.NET-Quellcode

    1. Sub StartDoingStuff()
    2. With New Thread( _
    3. Sub()
    4. Dim Doer As New Dll.StuffDoer
    5. Doer.DoStuff()
    6. Dim Result = Doer.Result
    7. 'Was mit Result machen
    8. End Sub)
    9. .Start()
    10. End With
    11. End Sub
    Dll:

    VB.NET-Quellcode

    1. Public Class StuffDoer
    2. Public Property Result As DoStuffResult
    3. Public Sub DoStuff()
    4. '...
    5. Result = ...
    6. End Sub
    7. End Class


    Wie sieht das bei Dir aus? Wie sehen die entsprechenden Klassen aus?


    Vielen dank für deine Hilfreiche Antwort!

    Ich habe den aufruf so:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub btn_convert_convert_Click(sender As Object, e As EventArgs) Handles btn_convert_convert.Click
    2. With New Thread(Sub()
    3. Dim converter As New Converter.Convert
    4. Dim Result As String = converter.Verarbeite(Application.StartupPath & "\item.xml")
    5. MsgBox(Result)
    6. End Sub)
    7. .Start()
    8. End With
    9. End Sub


    und die DLL sieht so aus:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Xml
    2. Imports System.IO
    4. Public Class Convert
    6. Public _
    7. _vnum, _name, _gb2312name, _type, _subtype, _weight, _size, _antiflag, _
    8. _flag, _wearflag, _immuneflag, _gold, _buy_price, _limittype0, _limitvalue0, _
    9. _limittype1, _limitvalue1, _applytype0, _applyvalue0, _applytype1, _applyvalue1, _
    10. _applytype2, _applyvalue2, _value0, _value1, _value2, _value3, _value4, _value5, _
    11. _socket0, _socket1, _socket2, _socket3, _socket4, _socket5, _refine_vnum, _
    12. _refine_set, _magic_pct, _specular, _socket_pct _
    13. As String
    15. Public convertet_Text As String
    16. Public zeile As Integer = 0
    18. Public Function Verarbeite(Path As String) As String
    19. Try
    20. Dim document As New XmlDocument
    21. document.Load(Path)
    22. Dim documentElement As XmlElement = document.DocumentElement
    23. Dim node As XmlNode
    24. Dim max_zeile As Integer = documentElement.ChildNodes.Count
    26. For Each node In documentElement.ChildNodes
    27. _vnum = node.Attributes.ItemOf("vnum").InnerText
    28. _name = node.Attributes.ItemOf("name").InnerText.Replace("'", "")
    29. _gb2312name = node.Attributes.ItemOf("gb2312name").InnerText
    30. _type = node.Attributes.ItemOf("type").InnerText
    31. _subtype = node.Attributes.ItemOf("subtype").InnerText
    32. _weight = node.Attributes.ItemOf("weight").InnerText
    33. _size = node.Attributes.ItemOf("size").InnerText
    34. _antiflag = node.Attributes.ItemOf("antiflag").InnerText
    35. _flag = node.Attributes.ItemOf("flag").InnerText
    36. _wearflag = node.Attributes.ItemOf("wearflag").InnerText
    37. _immuneflag = node.Attributes.ItemOf("immuneflag").InnerText
    38. _gold = node.Attributes.ItemOf("gold").InnerText
    39. _buy_price = node.Attributes.ItemOf("buy_price").InnerText
    40. _limittype0 = node.Attributes.ItemOf("limittype0").InnerText
    41. _limitvalue0 = node.Attributes.ItemOf("limitvalue0").InnerText
    42. _limittype1 = node.Attributes.ItemOf("limittype1").InnerText
    43. _limitvalue1 = node.Attributes.ItemOf("limitvalue1").InnerText
    44. _applytype0 = node.Attributes.ItemOf("applytype0").InnerText
    45. _applyvalue0 = node.Attributes.ItemOf("applyvalue0").InnerText
    46. _applytype1 = node.Attributes.ItemOf("applytype1").InnerText
    47. _applyvalue1 = node.Attributes.ItemOf("applyvalue1").InnerText
    48. _applytype2 = node.Attributes.ItemOf("applytype2").InnerText
    49. _applyvalue2 = node.Attributes.ItemOf("applyvalue2").InnerText
    50. _value0 = node.Attributes.ItemOf("value0").InnerText
    51. _value1 = node.Attributes.ItemOf("value1").InnerText
    52. _value2 = node.Attributes.ItemOf("value2").InnerText
    53. _value3 = node.Attributes.ItemOf("value3").InnerText
    54. _value4 = node.Attributes.ItemOf("value4").InnerText
    55. _value5 = node.Attributes.ItemOf("value5").InnerText
    56. _socket0 = node.Attributes.ItemOf("socket0").InnerText
    57. _socket1 = node.Attributes.ItemOf("socket1").InnerText
    58. _socket2 = node.Attributes.ItemOf("socket2").InnerText
    59. _socket3 = node.Attributes.ItemOf("socket3").InnerText
    60. _socket4 = node.Attributes.ItemOf("socket4").InnerText
    61. _socket5 = node.Attributes.ItemOf("socket5").InnerText
    62. _refine_vnum = node.Attributes.ItemOf("refine_vnum").InnerText
    63. _refine_set = node.Attributes.ItemOf("refine_set").InnerText
    64. _magic_pct = node.Attributes.ItemOf("magic_pct").InnerText
    65. _specular = node.Attributes.ItemOf("specular").InnerText
    66. _socket_pct = node.Attributes.ItemOf("socket_pct").InnerText
    68. zeile += 1
    70. convertet_Text = String.Concat(New String() {convertet_Text, "INSERT INTO'item_proto' VALUES ('", _vnum, _
    71. "', '", _name, _
    72. "', '", _gb2312name, _
    73. "', '", _type, _
    74. "', '", _subtype, _
    75. "', '", _weight, _
    76. "', '", _size, _
    77. "', '", _antiflag, _
    78. "', '", _flag, _
    79. "', '", _wearflag, _
    80. "', '", _immuneflag, _
    81. "', '", _gold, _
    82. "', '", _buy_price, _
    83. "', '", _limittype0, _
    84. "', '", _limitvalue0, _
    85. "', '", _limittype1, _
    86. "', '", _limitvalue1, _
    87. "', '", _applytype0, _
    88. "', '", _applyvalue0, _
    89. "', '", _applytype1, _
    90. "', '", _applyvalue1, _
    91. "', '", _applytype2, _
    92. "', '", _applyvalue2, _
    93. "', '", _value0, _
    94. "', '", _value1, _
    95. "', '", _value2, _
    96. "', '", _value3, _
    97. "', '", _value4, _
    98. "', '", _value5, _
    99. "', '", _socket0, _
    100. "', '", _socket1, _
    101. "', '", _socket2, _
    102. "', '", _socket3, _
    103. "', '", _socket4, _
    104. "', '", _socket5, _
    105. "', '", _refine_vnum, _
    106. "', '", _refine_set, _
    107. "', '", _magic_pct, _
    108. "', '", _specular, _
    109. "', '", _socket_pct, "');" & ChrW(13) & ChrW(10)})
    111. Next
    112. Catch ex As Exception
    113. MsgBox(ex.Message)
    114. Finally
    115. End Try
    116. Return convertet_Text.ToString()
    117. End Function
    118. End Class


    So wie es jetzt ist, gibt es keinen Fehler zurück und es läst sich supper starten. aber ich bekomme eine:

    Quellcode

    1. Eine Ausnahme (erste Chance) des Typs "System.NullReferenceException" ist in Converter.dll aufgetreten.


    Der Path den ich angebe stimmt allerdings und die Datei ist auch da.

    Der Aufruf sieht prinzipiell OK aus. Eventuell solltest Du System.IO.Path.Combine() verwenden, um den Pfad zusammenzustellen.

    Bei der Dll sieht's nicht so rosig aus.
    Ist die von Dir? Wenn ja, schreib sie um. Kapselung! Felder sollten fast nie public sein. Kapsle die Daten in eine eigene Klasse (ich nehme an, das soll ein Produkt sein, also Class Product) und verwende Properties für alles, was public sein muss.

    Als nächstes solltest Du das TryCatch rausnehmen. Vor allem sollte in einer Dll niemals sowas wie MsgBox oder MessageBox.Show drin stehen. Prüfe die Daten auf Gültigkeit und wirf, wenn es Probleme gibt, eine eigene Exception.

    Das Zusammenstellen des SQL-Befehls ist eine riesige Sicherheitslücke.
    vb-paradise.de/index.php/Thread/?postID=768621#post768621
    Trenne das Auslesen aus der Xml-Datei vom Datenbankzugriff.

    convertet_Text.ToString()

    Welchen Datentyp hat convertet_Text?
    Und was macht wohl die Funktion ToString()?
    Na? Merkste selber, 'ne?
    "Luckily luh... luckily it wasn't poi-"
    -- Brady in Wonderland, 23. Februar 2015, 1:56
    Desktop Pinner | ApplicationSettings | OnUtils

    Und auch hier frage ich: Warum nutzt du 2000 Variablen, anstatt einer List<> ?

    VB.NET-Quellcode

    1. Dim result As New List(Of String)
    2. Dim fields As String() = {"vnum", "name", ... , "socket_pct"}
    4. For Each ...
    6. For Each field As String in String()
    7. result.Add(node.Attributes.ItemOf(field).InnerText)
    8. Next
    10. convertet_Text = String.Concat(convertet_Text, String.Join("', '", result))
    12. Next
    »There's no need to "teach" atheism. It's the natural result of education without indoctrination.« — Ricky Gervais

    Niko Ortner schrieb:

    Als nächstes solltest Du das TryCatch rausnehmen


    Dies hatte ich drin damit es mir bei einem Fehler die Exeption Message anzeigt. =)

    Niko Ortner schrieb:

    Vor allem sollte in einer Dll niemals sowas wie MsgBox oder MessageBox.Show drin stehen.

    Dies habe ich natürlich nur zur überprüffung drin damit ich weis was wann wie herauskommt.

    Niko Ortner schrieb:

    Das Zusammenstellen des SQL-Befehls ist eine riesige Sicherheitslücke.

    Keine sorge, ich erstelle nur eine Datei.SQL, welche man von hand selber über Navicat der DB einspielen soll. ich verbinde mit keiner Datenbank oder sonstigem.

    Niko Ortner schrieb:

    Welchen Datentyp hat convertet_Text?
    Und was macht wohl die Funktion ToString()?
    Na? Merkste selber, 'ne?

    :P ja, da habe ich etwas rumprobiert ob allenfals da ein Fehler sein könnte oder nicht. logischerweise ist convertet_Text ja shcon ein String :P

    ThePlexian schrieb:

    Und auch hier frage ich: Warum nutzt du 2000 Variablen, anstatt einer List<> ?

    Weil ich mit den Listen so ein Problem habe =) die mögen mich nicht und ich Sie nicht xD

    VB.NET-Quellcode

    1. Dim result As New List(Of String)
    2. Dim fields As String() = {"vnum", "name", ... , "socket_pct"}
    4. For Each ...
    6. For Each field As String in String()
    7. result.Add(node.Attributes.ItemOf(field).InnerText)
    8. Next
    10. convertet_Text = String.Concat(convertet_Text, String.Join("', '", result))
    12. Next



    Verstehe ich das richtig? Bei deinem Beispiel müsste ich mit der Ersten For Each die Linien in der xml durchlaufen.
    und mit der 2ten in der ersten drin, die einzelnen felder?

    danke für eure Hilfestellungen


    Edit:

    So, ich habe mal einiges versucht, aber es will und wil nicht gehen. irgentwas übersehe ich.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Xml
    2. Imports System.IO
    4. Public Class Convert
    5. Dim result As New List(Of String)
    6. Dim fields As String() = {"vnum", "name", "gb2312name", "type", "subtype", "weight", "size", "antiflag", _
    7. "flag", "wearflag", "immuneflag", "gold", "buy_price", "limittype0", "limitvalue0", _
    8. "limittype1", "limitvalue1", "applytype0", "applyvalue0", "applytype1", "applyvalue1", _
    9. "applytype2", "applyvalue2", "value0", "value1", "value2", "value3", "value4", "value5", _
    10. "socket0", "socket1", "socket2", "socket3", "socket4", "socket5", "refine_vnum", _
    11. "refine_set", "magic_pct", "specular", "socket_pct"}
    13. Public convertet_Text As String
    15. Public Function Verarbeite(Path As String) As String
    17. Dim document As New XmlDocument
    18. document.Load(Path)
    19. Dim documentElement As XmlElement = document.DocumentElement
    20. Dim node As XmlNode
    21. Dim max_zeile As Integer = documentElement.ChildNodes.Count
    23. For Each line As Xml.XmlNode In documentElement.ChildNodes ''''/// was muss ich hier Durchlafen????
    24. For Each field As String In line ''''///Was muss ich hier durchlaufen????
    25. result.Add(node.Attributes.ItemOf(field).InnerText)
    26. MsgBox(result)
    27. Next
    28. convertet_Text = String.Concat(convertet_Text, String.Join("', '", result))
    29. Next
    31. Return convertet_Text
    32. End Function
    33. End Class


    Ich "Peile" gerade nicht ganz wie ich die For Each schleiffen füttere.

    Niko Ortner schrieb:

    nzipiell OK aus. Eventuell solltest Du System.IO.Path.Combine() verwenden, um den Pfad zusammenzustellen.Bei der Dll sieht's nicht so rosig aus.Ist die von Dir? Wenn ja, schreib sie um. Kapselung! Felder sollten fast nie public sein. Kapsle die Daten in eine eigene Klasse (ich nehme an, das soll ein Produkt sein, also Class Product) und verwende Properties für alles, was public sein muss.


    Denkst du das es so in die Richtung besser wäre, wen es dann laufen tut

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „.Scare“ ()

    Die MessageBox macht nichts anderes, als Dir die Debug-Möglichkeit zu nehmen.
    NullReference-Exeption

    Keine sorge, ich erstelle nur eine Datei.SQL
    Das macht in diesem Fall keinen Unterschied. Ich glaube kaum, dass Du Dir von Hand nochmal alles durchliest, bevor Du das SQL-Script ausführst.
    Da muss nur jemand '); DROP TABLE item_proto; -- in die Xml-Datei schreiben und die Tabelle ist futsch.
    "Luckily luh... luckily it wasn't poi-"
    -- Brady in Wonderland, 23. Februar 2015, 1:56
    Desktop Pinner | ApplicationSettings | OnUtils

    hihi, ja gut. da hast du schon recht, aber dieses Tool benutzt der, der die Datei benötigt. wen er lust hast Drop table zu schreiben dan ist er selberschuld. :P

    andere Frage, das Beispiel von @ThePlexian

    verstehst du was er meinte mit den beiden For Ech schleifen? ich blicke gerade nicht ganz durch was ich durchlaufen müsste damit.

    Du hast sooo viele String Variablen. Anstattdessen, nimmst du eine List<String>. Parallel dazu, hast du ein Array, wo alle deine Felder drin sind (also die du als String beim auslesen angibst). Durch das Array iterierst du, und addest jeweils den Text in die List. Wie mein Code halt andeutet.

    Ja ist doch richtig so ^^ Nur das MsgBox(List<T>) nicht geht.
    »There's no need to "teach" atheism. It's the natural result of education without indoctrination.« — Ricky Gervais

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „ThePlexian“ ()

    Ach so, ich Affe habe da etwas falsch verstanden... habe es nun so gemacht wie du Beschrieben hast... wen man es nun so ansieht hätte ich eigentlich auch selber drauf kommen können. =)

    Vielen Vielen dank für die Rasche und gute Hilfe an euch 2!!

    Somit hat es sich für mich erledigt in diesem Thema. =)