Suchergebnisse

Hallo, ich schreibe ein Programm, mit dem man normalen Text in die Blindenkurzschrift übersetzen kann. Zu VB6-Zeiten habe ich die erste Version geschrieben. Damals stand ich vor dem gleichen Problem und habe es gelöst, indem ich vorcompilierte EXE-Dateien verwendet habe. Nun möchte ich es richtig machen und die C-DLL einbinden und die Funktionen direkt aus dem Programm heraus aufrufen. Das Programm schreibe ich in VB2015. Nun zum Programm: Es gibt die Textboxen "Ungekuerztztext" und "Gekuerzttex…

Hallo, vielen Dank für die schnelle Antwort. Die Programme habe ich mir angeschaut, aber sie sind mir etwas zu kompliziert. Leider bin ich derzeit ziemlich im Zeitdruck, daher habe ich das Problem, wie früher, mit den schon kompilierten EXE-Dateien gelöst. Wenn ich mal viel Zeit habe, werde ich mir deine Programme erneut anschauen. Noch einmal vielen Dank Gruß tron225

Hallo, irgendwie läßt es mir doch keine Ruhe. Ich habe meinen Code nun folgendermaßen angepaßt: Deklaration: <DllImport("liblouis-2.dll", EntryPoint:="lou_translateString")> Private Shared Function lou_translateString(<MarshalAs(UnmanagedType.LPStr)> ByRef tableList As String, <MarshalAs(UnmanagedType.LPStr)> ByRef inbuf As String, ByRef inlen As Integer, <MarshalAs(UnmanagedType.LPStr)> outbuf As String, outlen As Integer, typeform As Byte, spacing As Byte, mode As Integer) As Integer End Funct…

Die Deklaration sieht nun folgendermaßen aus: <DllImport("liblouis-2.dll", EntryPoint:="lou_translateString")> Private Shared Function lou_translateString(<MarshalAs(UnmanagedType.LPStr)> ByRef tableList As String, <MarshalAs(UnmanagedType.LPWStr)> ByRef inbuf As String, ByRef inlen As Integer, <MarshalAs(UnmanagedType.LPWStr)> outbuf As String, outlen As Integer, typeform As Byte, spacing As Byte, mode As Integer) As Integer End Function Leider funktioniert es immer noch nicht. Ich habe versuch…

Ich habe mir nochmal die Beschreibung für "charset" und "callingconvention" durchgelesen und folgender Code ist dabei herausgekommen: Deklaration: <DllImport("liblouis-2.dll", EntryPoint:="lou_translateString", CharSet:=CharSet.Ansi, CallingConvention:=CallingConvention.StdCall)> Public Shared Function lou_translateString(<MarshalAs(UnmanagedType.LPStr)> ByRef tableList As String, <MarshalAs(UnmanagedType.LPWStr)> ByRef inbuf As StringBuilder, ByRef inlen As Integer, <MarshalAs(UnmanagedType.LPW…

Sieht die Formatierung nun besser aus? Ich füge jetz die Tags manuell hinzu. Der Code sieht nun so aus: VB.NET-Quellcode (23 Zeilen) Ich habe folgende Kleinigkeiten geändert: <MarshalAs(UnmanagedType.LPWStr)> ByRef inBuf As String, Hier habe ich StringBuilder mit String ausgetauscht. Dim result as Integer = lou_translateString(path, ungekuerzterText, length1, gekuerzterText, length1, 0, 0, 0) Hier habe ich Pad mit Pfad ausgetauscht. if = 0 then Hier habe ich result eingefügt. Das Programm starte…

So, nun bekomme ich zwar keine Fehlermeldung mehr, aber ich bekomme auch keinen gekürzten Text. VB.NET-Quellcode (24 Zeilen)

Meintest du es so? VB.NET-Quellcode (24 Zeilen) Ich bekomme folgende Fehlermeldung: Schweregrad Code Beschreibung Projekt Datei Zeile Unterdrückungszustand Fehler BC30311 Der Wert vom Typ "String" kann nicht in "StringBuilder" konvertiert werden. PunktBilder D:\Programmierung\PunktBilder\PunktBilder 2016\PunktBilder\PunktBilder\PunktbilderFormular.vb 563 Aktiv Als fehlerhafte Zeile wird mir folgende markiert: Dim result As Integer = lou_translateString(pfad, ungekuerzterText, length1, gekuerzter…

Nun bekomme ich beim Ausführen folgende Fehlermeldung: Der Assistent für verwaltetes Debugging ""PInvokeStackImbalance"" hat ein Problem in ""D:\Programmierung\PunktBilder\PunktBilder 2016\PunktBilder\PunktBilder\bin\Debug\PunktBilder.vshost.exe"" festgestellt. Zusätzliche Informationen: Ein Aufruf an die PInvoke-Funktion "PunktBilder!PunktBilder.PunktbilderFormular::lou_translateString" hat das Gleichgewicht des Stapels gestört. Wahrscheinlich stimmt die verwaltete PInvoke-Signatur nicht mit de…

Wie kann ich eine oder mehrere Dateien einfügen? Es wird die DLL-Datei und die Übersetzungstabelle benötigt.

Bitteschön. Als Übersetzungstabelle wird die Datei "de-de-g2.ctb" angegeben. Wenn alles funktioniert, müßte aus dem Wort "wochenende" die abgekürzte Version "wo4ccde" herauskommen. 4 ist die Abkürzung für "ch" und "c" bedeutet "en".

Zum Testen braucht man lediglich die DLL und zwei Textboxen. In der ersten Textbox steht ein beliebiger Text, der dann mit Hilfe der DLL in Blindenkurzschrift übersetzt werden soll. Wenn man beispielsweise in das erste Textfeld das Wort "Wochenende" einträgt und die Funktion ausführt, sollte dann im zweiten Textfeld die Zeichenkette "wo4ccde" stehen. Beim Übersetzen wurden die Buchstaben "ch" in "4" und "en" jeweils in "c" umgewandelt. Als Übersetzungsdatei wählt man "de-de-g2.ctb" im Verzeichni…

Hallo, vielen Dank für eure Bemühungen. Die Funktion mit Wahr oder Falsch habe ich nur geschrieben, um erst einmal festzustellen, ob der DLL-Aufruf syntaktisch korrekt funktioniert. Ich möchte eigentlich die DLL nutzen, um einen Text in Kurzschrift übersetzen zu lassen. Wenn ich morgen wieder auf Arbeit bin, lege ich die Readme-Datei hier herein. Dort werden die Funktionen beschrieben. Leider werde ich aber daraus nicht schlau. Vielleich könnt ihr mehr damit anfangen. Nochmals, vielen Dank und b…

Wenn ich deinen Code bei mir einfüge, läuft das Programm auch ohne Fehler. Allerdings möchte ich die Funktion jederzeit aufrufen können und ihr einen Text mitgeben, der dann übersetzt wieder in einem anderen Textfeld ausgegeben werden soll. Wenn ich den Inhalt der "Sub Main" in eine Funktion kopiere, bekomme ich einen Assertionsfehler. Im Folgenden habe ich das komplette LibLouis-Paket hinzugefügt. Wenn man die Datei auspackt, gibt es im Hauptverzeichnis eine Readme.txt. In der werden die Funkti…

Vielen Dank. Ich werde es gleich Morgen früh testen. Verzeiht mir die folgende Frage, aber wo schreibe ich die Klassen hin? In ein Modul oder in die Form? Den Modul-Bereich schreibe ich natürlich in mein globales Modul. Ich habe schon für mein Programm eins, in dem, wie schon geschrieben, globale Variablen deklariert werden.

Hallo, erst einmal möchte ich sagen, daß Begriffe wie Sehen, Schauen, Betrachten, Gucken usw. auch für mich und andere Sehbehinderte oder Blinde alltägliche Redewendungen sind. Jeder sagt beispielsweise "Auf Wiedersehen!", egal, ob er es kann oder nicht. Allerdings muß ich zugeben, daß Bildbeispiele, zumindest für mich, tatsächlich nicht optimal sind ;-). Das ich eine Klasse über das Menü hinzufügen kann, da hätte ich auch selber drauf kommen können. Ich kann verstehen, daß manche Fragen etwas s…

Hallo, In der Funktion "Translator" habe ich folgende zeile aktualisiert: VB.NET-Quellcode (1 Zeile) Wenn ich die Funktion Translator schrittweise ausführe, sehe ich, daß in Buffer.ToString der übersetzte Text steht. In der Funktion "TextUebersetzen" führe ich folgende Anweisung aus: VB.NET-Quellcode (1 Zeile) Leider bleibt GekuerztText.Text immernoch leer. Ich dachte, daß die Zeile: VB.NET-Quellcode (1 Zeile) automatisch den Zielstring beim Aufruf der Funktion zurückgibt. Wie muß der Funktionsa…

Hallo, Sorry für meine letzte Frage. Der Fehler lag in meinem Quellcode. Die Funktion "TextUebersetzen" wird von mehreren Stellen aus aufgerufen. Ich habe in dieser Funktion nach der Übersetzung ein "Exit Sub" geschrieben und nicht daran gedacht, daß das Programm nach dieser Zeile nicht nur den restlichen Code verläßt, sondern auch wieder zurück in die übergeordnete Funktion zurückgeht. Dort wird die Variable der alten Version wieder in "GekuerztText.text" geschrieben. Nachdem ich die entspreche…

Hallo, ich habe festgestellt, daß ich keine längeren Texte in Kurzschrift übersetzen lassen kann. Wenn ich den folgenden Text eingebe, funktioniert es noch: hallo welt. heute ist mittwoch. morgen ist donnerstag. danach fänht das wochenende an. Anschließend beginnt die neu Schreibe ich aber einen weiteren Buchstaben dazu und lasse den Text übersetzen, stürzt das programm ab, sobald ich eine beliebige Taste (außer den Cursortasten) drücke. Es erscheint keine Fehlermeldung. Auch bei einer Mausbeweg…

Folgende Klassen habe ich: VB.NET-Quellcode (36 Zeilen)

Danke, es funktioniert. Mir ist noch etwas auftgefallen. Zeilenumbrüche in meiner Textbox für den ungekürzten Text werden durch zwei Leerzeichen ersetzt. Kann das evtl. am verwendeten Zeichensatz liegen?

Wenn ich den Text zeichenweise auslese, bekomme ich auch ein "VbCrLf" bzw. "VbCr" und danach ein "VbLf" angezeigt. Das ist doch das Gleiche, wie ein "NewLine"? Oder?

Ich habe jetzt "VbCrLf" durch "Environment.NewLine" ersetzt. Leider hat es nicht funktioniert.

Ich habe die For-Schleife folgendermaßen angepaßt: VB.NET-Quellcode (4 Zeilen) Wenn ich jetzt den Text hallo welt übersetzen lasse, kommt folgendes dabei heraus: haqo 104 wyt 10 Die 104 ist das "h" aus der ersten Zeile und die 10 ist das "VBLf" des Zeilenumbruchs. Als Trennzeichen im "Split" habe ich folgendes testweise eingesetzt: enviroment.newline, vbnewline, vbcrlf, vbcr & vblf, chr(13) & chr(10) Leider bekomme ich überall das Gleiche Ergebnis. Es funktioniert. Allerdings fängt jede Zeile na…

Der ungekürzte Text wird in das linke Eingabefeld eingetragen. Nach dem Übersetzen, erscheint der übersetzte Text im rechten Eingabefeld.

Danke, jetzt funktioniert es. [vbnet] For Each Zeile In UngekuerztText.Lines GekuerztText.AppendText(LouTranslator.Translate(Zeile) & Environment.NewLine) Next [/vbmet]

Hallo nochmal, heute habe ich ein Update von LibLouis heruntergeladen. Leider habe ich nicht das gewünschte Ergebnis erhalten. Da habe ich die alte und neue Funktion in der DLL verglichen. In der alten steht: int EXPORT_CALL lou_translateString (const char *tableList, const widechar *inbuf, int *inlen, widechar * outbuf, int *outlen, char *typeform, char *spacing, int mode); Die neue lautet: int EXPORT_CALL lou_translateString(const char *tableList, const widechar *inbuf, int *inlen, widechar *o…

Hier die Definition:Hier die Definition: C#-Quellcode (22 Zeilen) Hier noch die ".h"-Dateien

Ich habe die den Code eingefügt und folgende Zeile angepaßt: VB.NET-Quellcode (1 Zeile) Leider bekomme ich kein Ergebnis. Ich vermute, daß ich die folgende Zeile ebenfalls anpassen muß: VB.NET-Quellcode (1 Zeile)

Ich bekomme folgende Fehlermeldung: "parameter #6" kann nicht gemarshallt werden: Ungültige verwaltete/nicht verwaltete Typenkombination (Int32/UInt32 muss mit I4, U4 oder "Error" kombiniert werden).