AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein Delphi Funktion einer dll ausführen klappt nicht

Funktion einer dll ausführen klappt nicht

Ein Thema von JohnRamace · begonnen am 12. Feb 2020 · letzter Beitrag vom 13. Feb 2020
Antwort Antwort
JohnRamace

Registriert seit: 13. Jan 2010
Ort: Wien
2 Beiträge
 
#1

Funktion einer dll ausführen klappt nicht

  Alt 12. Feb 2020, 17:21
Hallo Leute

Es gibt auf http://liblouis.org ein Braille-System, das ich gerne nutzen würde.
Man kann sich dort das Paket runterladen. Auch eine dll ist dabei und eine liblouis.h
Damit kann man einen Normaltext in Braille übersetzen.

Ich hab versucht, diese für Delphi anzupassen.

Hier die Funktion aus der liblouis.h:

LIBLOUIS_API int EXPORT_CALL
lou_translateString(const char *tableList, const widechar *inbuf, int *inlen, widechar *outbuf, int *outlen, formtype *typeform, char *spacing, int mode);

Meine interpretation:

type
* formtype = Integer;
function lou_translateString(
* tableList: PAnsiChar;
* inbuf: PAnsiChar;
* var inlen: Integer;
* outbuf: PAnsiChar,
* var outlen: Integer;
* typeform: formtype;
* spacing: Char;
* mode: Integer): Integer; stdcall; external 'liblouis.dll';

Aufruf:

* i := lou_translateString(
*** 'c:\tables\de-g2.ctb', // Brailletabelle
*** 'Das ist ein Test', 16, // Text
*** PAnsiChar(output), 16, // übersetzter Text
*** 0, #0, 0);

Das funktioniert aber nicht.
Weiß jemand, wie man die Funktion richtig deklariert?

Hoffe, man kann mir helfen

Vielen Dank
Gruß Christian
Punzi
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
35.261 Beiträge
 
Delphi 10.3 Rio
 
#2

AW: Funktion einer dll ausführen klappt nicht

  Alt 12. Feb 2020, 17:34
Delphi-Quellcode:
function lou_translateString(
  tableList: PAnsiChar; // const char *tableList
  inbuf: PWideChar; // const widechar *inbu
  var inlen: Integer; // int *inlen
  outbuf: PWideChar; // widechar *outbuf
  var outlen: Integer; // int *outlen
  var typeform: formtype; // formtype *typeform
  spacing: PAnsiChar; // char *spacing >> ODER var spacing: AnsiChar
  mode: Integer // int mode
): Integer; stdcall;
  external 'liblouis.dll';
Referenzen dort übergeben, wo auch *Referenzen verlangt sind (z.B. spacing ist eine Referenz)
und Wide (Unicode) dort, wo auch Wide verlangt wird (inbuf/outbuf wind WIDE)

Was EXPORT_CALL ist, wissen wir nicht, aber bist du dir sicher dass es stdcall und nicht vielleicht cdecl ist?

Und PS: bitte [CODE]dein Code[/CODE] oder [DELPHI]dein Code[/DELPHI] damit man es besser lesen kann.



lou_translate... scheint keine eigene Error-Methode ala lou_GetLastError zu haben, also könntest du auch einfach mal machsehn ob sie GetLastError des Windows bentzen.
http://liblouis.org/documentation/liblouis.html

Delphi-Quellcode:
SetLastError(ERROR_FILE_INVALID); // 0 oder irgendein Fehler, um zu sehen ob es überhaupt verändert wurde
x := lou_translateString(...);
if x = 0 then
  RaiseLastOSError; //Show(GetLastError)
PS:
Zitat:
The function returns 1 if no errors were encountered2 and 0 otherwise.
Statt Int/Integer könnte man hier auch direkt LongBool verwenden. (True = OK)
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014

Geändert von himitsu (13. Feb 2020 um 12:26 Uhr)
  Mit Zitat antworten Zitat
JohnRamace

Registriert seit: 13. Jan 2010
Ort: Wien
2 Beiträge
 
#3

AW: Funktion einer dll ausführen klappt nicht

  Alt 13. Feb 2020, 14:28
Hallo himitsu!

Danke für deine Hilfe.
Ich quäl mich echt schon seit Tagen rum.
Hier noch ein paar Infos. Ich glaube ich hab da einen groben Denkfehler. Vielleicht kommt jemand drauf:

Zu sagen ist noch, dass WideChar und formtype folgendermaßen definiert sind:

Code:
typedef unsigned int widechar; // hat das irgend einen Einfluss?
typedef unsigned short formtype;
Und die Aufrufe sind mit stdcall definiert:

Code:
#define EXPORT_CALL __stdcall
Hier nochmals die Deklaration der Funktion:

Code:
function lou_translateString(
  tableList: PAnsicCar; // const char *tableList
  inbuf: PWideChar;     // const widechar *inbuf
  var inlen: Integer;   // int *inlen
  outbuf: PWideChar;    // widechar *outbuf
  var outlen: Integer;  // int *outlen
  var typeform: formtype; // formtype *typeform
  var spacing: AnsiChar;   // char *spacing >> ODER var spacing: AnsiChar
  mode: Integer         // int mode
  ): Integer; stdcall; external 'liblouis.dll';
Hier meine Deklarationen:

Code:
type
  formtype = Word; // unsigned short
var
  i: Integer;
  tab: AnsiString;
  input, output: WideString;
begin
  tab := 'de-g2.ctb'; // Umgebungsvariable LOUIS_TABLEPATH sollte zuvor auf Tabellenpfad gesetzt werden
  Input := 'Das ist ein Test';
  inlen := Length(input);
  output := '';
  outlen := inlen;
  typeform := 0;
  spacing := #0;
  i := lou_translatestring(
    PAnsiChar(tab),
    PWideChar(input), inlen,
    PWideChar(output), outlen,
    typeform, spacing, 0);
  if i = 0 then
    ShowMessage('Fehler')
  else
    ShowMessage('OK');
end;
Irgend etwas mache ich aber immer noch falsch. Es klappt einfach nicht.
Ich denke das Problem ist bei "input" und "output". Muss man die beiden Variablen irgendwie anders übergeben oder definieren?

Danke schon mal für euer Gehirnschmalz
Christian

PS: Ich hab auch liblouis angehängt. Darin befinden sich alle Tabellen und die dll und liblouis.h zum Nachmachen
Angehängte Dateien
Dateityp: zip liblouis-3.12.0-win32.zip (3,93 MB, 2x aufgerufen)
Punzi
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 05:49 Uhr.
Powered by vBulletin® Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2019 by Daniel R. Wolf