Einzelnen Beitrag anzeigen

JohnRamace

Registriert seit: 13. Jan 2010
Ort: Wien
2 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#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