Funktion einer dll ausführen klappt nicht

[JohnRamace]

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

[himitsu]

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)

[JohnRamace]

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