dll aus C in vb.net aufrufen

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 129 Antworten in diesem Thema. Der letzte Beitrag () ist von tron25.

    @tron25 Häng mal das aktuelle Projekt mit der neuen DLL an (Bitte keine Zwischenstände).
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @tron25 Kannst SDu parallel dazu noch die alte Version bedienen?
    Ich weiß jetzt nicht, was da rauskommen soll.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @tron25 Jou, das ganze ist ein wenig merkwürdig.
    Ich hab mal folgende Änderung vorgenommen:

    VB.NET-Quellcode

    1. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    2. For Each Zeile In TextBox1.Text.Split(vbNewLine)
    3. Dim res = LouTranslator.Translate(Zeile)
    4. TextBox2.AppendText(res)
    5. TextBox2.AppendText(Environment.NewLine)
    6. Next
    7. End Sub

    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @tron25 "Wochenende" bringt "ⷌ愼ս"
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @tron25 Jou.
    Dann stimmt irgendwas mit dem Aufruf nicht. ;(
    Nimm ggf. wieder die alte Version.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Schaut man sich github.com/liblouis/liblouis/b…er/liblouis/liblouis.h.in an, fällt sofort der Unterschied zwischen

    C-Quellcode

    1. typedef unsigned short formtype;

    und

    C-Quellcode

    1. typedef enum {
    2. // [...]
    3. } typeforms;

    auf. Die Enumeration typeforms dient lediglich dazu, den Parameter typeform vom Typ formtype* elegant formulieren zu können. Laut Dokumentation ist das ein Arrayparameter mit dynamischer Größe:

    It is an array of formtype with the same length as the input buffer pointed to by *inbuf.


    Die neue Signatur der DLL-Funktion ist lou_translateString(const char*, const widechar*, int*, widechar*, int*, formtype*, char*, int).

    Die verwaltete Deklaration muss daher lauten:

    VB.NET-Quellcode

    1. 'int EXPORT_CALL lou_translateString
    2. '(const char *tableList,
    3. ' const widechar *inbuf,
    4. ' int *inlen,
    5. ' widechar * outbuf,
    6. ' int *outlen,
    7. ' formtype *typeform,
    8. ' char *spacing,
    9. ' int mode);
    11. <DllImport("liblouis-3.dll")>
    12. Public Shared Function lou_translateString(
    13. <MarshalAs(UnmanagedType.LPStr)> tableList As String,
    14. <MarshalAs(UnmanagedType.LPWStr)> inbuf As String,
    15. ByRef inlen As Int32,
    16. <MarshalAs(UnmanagedType.LPWStr), Out()> outbuf As StringBuilder,
    17. ByRef outlen As Int32,
    18. typeform() As Typeforms,
    19. <MarshalAs(UnmanagedType.LPStr)> spacing As String,
    20. mode As Int32) As Int32
    21. End Function
    23. Public Enum Typeforms As UShort
    24. plain_text = &H0
    25. italic = &H1 ' emph_1
    26. underline = &H2 ' emph_2
    27. bold = &H4 ' emph_3
    28. emph_4 = &H8
    29. emph_5 = &H10
    30. emph_6 = &H20
    31. emph_7 = &H40
    32. emph_8 = &H80
    33. emph_9 = &H100
    34. emph_10 = &H200
    35. computer_braille = &H400
    36. no_translate = &H800
    37. no_contract = &H1000
    38. End Enum

    Das Array wird automatisch in beide Richtungen gemarshallt. Der unverwaltete Pointer ist letztlich ein unsigned short*, weil die Enumeration mit As UShort deklariert wurde.

    Der Aufruf sieht so aus (Auszug):

    VB.NET-Quellcode

    1. ' [...]
    2. Dim buffer As New StringBuilder(refLength)
    3. Dim typeform() = Enumerable.Repeat(NativeMethods.Typeforms.plain_text, refLength).ToArray()
    5. NativeMethods.lou_translateString("tables\de-de-g2.ctb", input, input.Length, buffer, refLength, typeform, Nothing, 0)
    7. ' Limit stringBuilder size in case of implicit memory reallocation
    8. ' [...]

    Das funktioniert aber noch nicht, weil die neue Version der DLL auch neue Tabellen benötigt. Vergleiche z.B. die Versionen der Datei de-g0-core.uti, dann siehst du den Unterschied. Die "emphasis opcodes" haben sich unter anderem geändert. Abhilfe: Lade die neuen Tabellen vom GitHub-Projekt.

    Sehr hilfreich ist übrigens auch diese Funktion:

    VB.NET-Quellcode

    1. <DllImport("liblouis-3.dll")>
    2. Public Shared Sub lou_setLogLevel(level As Int32)
    3. End Sub
    5. ' Aufruf: NativeMethods.lou_setLogLevel(0)
    Gruß
    hal2000

    Ich habe die Änderungen durchgeführt. Nun bekomme ich folgende Fehlermeldung:

    Fehler BC32050 Der TResult-Typparameter für "Public Shared Overloads Function Repeat(Of TResult)(element As TResult, count As Integer) As IEnumerable(Of TResult)" kann nicht per Rückschluss abgeleitet werden.

    Das Programm markiert folgende Zeile:

    VB.NET-Quellcode

    1. Dim typeform() = Enumerable.Repeat(NativeMethods.Typeforms.plain_text, refLength).ToArray()

    Ich habe nun den Code erneut eingefügt:

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    4. End
    5. End Sub
    7. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    8. For Each Zeile In TextBox1.Text.Split(vbNewLine)
    9. Dim res = LouTranslator.Translate(Zeile)
    10. TextBox2.AppendText(res)
    11. TextBox2.AppendText(Environment.NewLine)
    12. Next
    13. ' For Each Zeile In TextBox1.Text.Split(vbNewLine)
    14. ' TextBox2.AppendText(LouTranslator.Translate(Zeile) & Environment.NewLine)
    15. ' Next
    16. End Sub
    17. End Class


    und

    VB.NET-Quellcode

    1. Imports System.Runtime.InteropServices
    2. Imports System.Text
    4. Public Enum Typeforms As UShort
    5. plain_text = &H0
    6. italic = &H1 ' emph_1
    7. underline = &H2 ' emph_2
    8. bold = &H4 ' emph_3
    9. emph_4 = &H8
    10. emph_5 = &H10
    11. emph_6 = &H20
    12. emph_7 = &H40
    13. emph_8 = &H80
    14. emph_9 = &H100
    15. emph_10 = &H200
    16. computer_braille = &H400
    17. no_translate = &H800
    18. no_contract = &H1000
    19. End Enum
    21. Public Class LouTranslator
    22. Public Shared Function Translate(input As String) As String
    23. ' If String.IsNullOrEmpty(input) Then
    24. ' Throw New ArgumentNullException("input")
    25. ' End If
    26. Dim refLength As Int32 = input.Length + 32 ' size heuristic
    27. Dim buffer As New StringBuilder(refLength)
    28. Dim typeform() As NativeMethods.Typeforms = Enumerable.Repeat(Of NativeMethods.Typeforms)(NativeMethods.Typeforms.plain_text, refLength).ToArray()
    29. ' Limit stringBuilder size in case of implicit memory reallocation
    30. buffer.Length = refLength
    31. Return buffer.ToString()
    32. End Function
    33. End Class
    35. Public Class NativeMethods
    36. 'int EXPORT_CALL lou_translateString
    37. '(const char *tableList,
    38. ' const widechar *inbuf,
    39. ' int *inlen,
    40. ' widechar * outbuf,
    41. ' int *outlen,
    42. ' formtype *typeform,
    43. ' char *spacing,
    44. ' int mode);
    45. <DllImport("liblouis.dll")>
    46. Public Shared Function lou_translateString(
    47. <MarshalAs(UnmanagedType.LPStr)> tableList As String,
    48. <MarshalAs(UnmanagedType.LPWStr)> inbuf As String,
    49. ByRef inlen As Int32,
    50. <MarshalAs(UnmanagedType.LPWStr), Out()> outbuf As StringBuilder,
    51. ByRef outlen As Int32,
    52. typeform() As Typeforms,
    53. <MarshalAs(UnmanagedType.LPStr)> spacing As String,
    54. mode As Int32) As Int32
    55. End Function
    56. End Class


    Es erscheint immernoch die gleiche Fehlermeldung.

    @tron25 Hör auf mit dem LINQ, bau Dir die Liste zu Fuß zusammen!
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Die Enumeration "Typeforms" gehört in die Klasse NativeMethods - bei dir steht sie außerhalb.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Runtime.InteropServices
    2. Imports System.Text
    4. Module Module1
    6. Sub Main()
    7. Dim result = LouTranslator.Translate("Wochenende")
    8. End Sub
    10. End Module
    12. Class LouTranslator
    14. Public Shared Function Translate(input As String) As String
    15. If String.IsNullOrEmpty(input) Then
    16. Throw New ArgumentNullException("input")
    17. End If
    19. Dim refLength As Int32 = input.Length + 32 ' size heuristic
    20. Dim buffer As New StringBuilder(refLength)
    21. Dim typeform() = Enumerable.Repeat(NativeMethods.Typeforms.plain_text, refLength).ToArray()
    23. NativeMethods.lou_translateString("tables\de-de-g2.ctb", input, input.Length, buffer, refLength, typeform, Nothing, 0)
    25. ' Limit stringBuilder size in case of implicit memory reallocation
    26. buffer.Length = refLength
    28. Return buffer.ToString()
    29. End Function
    31. End Class
    33. Class NativeMethods
    35. 'int EXPORT_CALL lou_translateString
    36. '(const char *tableList,
    37. ' const widechar *inbuf,
    38. ' int *inlen,
    39. ' widechar * outbuf,
    40. ' int *outlen,
    41. ' formtype *typeform,
    42. ' char *spacing,
    43. ' int mode);
    45. <DllImport("liblouis-3.dll")>
    46. Public Shared Function lou_translateString(
    47. <MarshalAs(UnmanagedType.LPStr)> tableList As String,
    48. <MarshalAs(UnmanagedType.LPWStr)> inbuf As String,
    49. ByRef inlen As Int32,
    50. <MarshalAs(UnmanagedType.LPWStr), Out()> outbuf As StringBuilder,
    51. ByRef outlen As Int32,
    52. typeform() As Typeforms,
    53. <MarshalAs(UnmanagedType.LPStr)> spacing As String,
    54. mode As Int32) As Int32
    55. End Function
    57. Public Enum Typeforms As UShort
    58. plain_text = &H0
    59. italic = &H1 ' emph_1
    60. underline = &H2 ' emph_2
    61. bold = &H4 ' emph_3
    62. emph_4 = &H8
    63. emph_5 = &H10
    64. emph_6 = &H20
    65. emph_7 = &H40
    66. emph_8 = &H80
    67. emph_9 = &H100
    68. emph_10 = &H200
    69. computer_braille = &H400
    70. no_translate = &H800
    71. no_contract = &H1000
    72. End Enum
    74. End Class

    Gruß
    hal2000

    Vielen Dank. Es funktioniert jetzt.
    Hier nochmal der angepaßte Code:

    Die aufrufende Funktion:

    VB.NET-Quellcode

    1. GekuerztText.Text = ""
    2. For Each Zeile In UngekuerztText.Lines
    3. GekuerztText.AppendText(LouTranslator.Translate(Zeile) & Environment.NewLine)
    4. Next


    Und hier, der Code in der LibLouis-Klasse:

    VB.NET-Quellcode

    1. Imports System.Runtime.InteropServices
    2. Imports System.Text
    4. Class LouTranslator
    5. Public Shared Function Translate(input As String) As String
    6. If String.IsNullOrEmpty(input) Then
    7. Throw New ArgumentNullException("input")
    8. End If
    9. Dim refLength As Int32 = input.Length + 32 ' size heuristic
    10. Dim buffer As New StringBuilder(refLength)
    11. Dim typeform() = Enumerable.Repeat(NativeMethods.Typeforms.plain_text, refLength).ToArray()
    12. NativeMethods.lou_translateString("Braille\Brailletabellen\de-de-g2.ctb", input, input.Length, buffer, refLength, typeform, Nothing, 0)
    13. ' Limit stringBuilder size in case of implicit memory reallocation
    14. buffer.Length = refLength
    15. Return buffer.ToString()
    16. End Function
    17. End Class
    19. Class NativeMethods
    20. 'int EXPORT_CALL lou_translateString
    21. '(const char *tableList,
    22. ' const widechar *inbuf,
    23. ' int *inlen,
    24. ' widechar * outbuf,
    25. ' int *outlen,
    26. ' formtype *typeform,
    27. ' char *spacing,
    28. ' int mode);
    29. ' <DllImport("liblouis.dll")>
    30. <DllImport("liblouis.dll", BestFitMapping:=True, ThrowOnUnmappableChar:=True, CharSet:=CharSet.Unicode)>
    31. Public Shared Function lou_translateString(
    32. <MarshalAs(UnmanagedType.LPStr)> tableList As String,
    33. <MarshalAs(UnmanagedType.LPWStr)> inbuf As String,
    34. ByRef inlen As Int32,
    35. <MarshalAs(UnmanagedType.LPWStr), Out()> outbuf As StringBuilder,
    36. ByRef outlen As Int32,
    37. typeform() As Typeforms,
    38. <MarshalAs(UnmanagedType.LPStr)> spacing As String,
    39. mode As Int32) As Int32
    40. End Function
    42. Public Enum Typeforms As UShort
    43. plain_text = &H0
    44. italic = &H1 ' emph_1
    45. underline = &H2 ' emph_2
    46. bold = &H4 ' emph_3
    47. emph_4 = &H8
    48. emph_5 = &H10
    49. emph_6 = &H20
    50. emph_7 = &H40
    51. emph_8 = &H80
    52. emph_9 = &H100
    53. emph_10 = &H200
    54. computer_braille = &H400
    55. no_translate = &H800
    56. no_contract = &H1000
    57. End Enum
    58. End Class


    Vielen Dank nochmal an Alle.

Facebook
Telefonspende