Immer wieder beliebt: C-DLL in Delphi diesmal "character string array"

[Ydobon]

Es sind generell die Ansi-Versionen.
Einen einzelnen Code habe ich nicht, probiert habe ich in etwa 'Array of AnsiString/PAnsiString', 'Array of Array of AnsiChar/PAnsiChar/Byte' als dynamische Felder oder nicht. Als normale Variable mit const oder var, als typisierten Zeiger oder einfachen.
Ein richtiges Beispiel habe ich auch nicht.

Code:

Let the input arguments array and order contain the following elements:

        array           order

      "FEYNMAN"           1
      "BOHR"              2
      "EINSTEIN"          0
      "NEWTON"            4
      "GALILEO"           3

   Then

      bschoc_c ( "NEWTON",   5, lenvals, array, order )    ==   3
      bschoc_c ( "EINSTEIN", 5, lenvals, array, order )    ==   2
      bschoc_c ( "GALILEO",  5, lenvals, array, order )    ==   4
      bschoc_c ( "Galileo",  5, lenvals, array, order )    ==  -1
      bschoc_c ( "BETHE",    5, lenvals, array, order )    ==  -1

[hoika]

Hallo,
long bschoc (const char * value,
long ndim,
long lenvals,
const void * array,
const long * order)

Hm, ich verstehe im Moment auch gar nicht, was die Parameter machen.
Steht aber zumindestens schon mal hier

https://naif.jpl.nasa.gov/pub/naif/t.../bschoc_c.html

Die Beispiele sind total MurKs (für mich).
Es gibt im ganzen Internet nicht einen Delphi-Link für bschoc -> Ich bin raus

[Ydobon]

Zitat von hoika:

Steht aber zumindestens schon mal hier

Ja, da ist es auch her. Nachdem ich bisher nur die Funktionen übersetzt hatte, die ich gerade für meine Programme brauche, wollte ich mir mal das Komplettpaket vornehmen. Im Notfall wird sie halt in Delphi nachgebaut.

[Fritzew]

Zitat von Ydobon:

Hallo!

Code:

  long bschoc (const char   * value,
               long           ndim,   
               long           lenvals,
               const void   * array,
               const long   * order)

Sieht doch eigentlich gar nicht so schlimm aus. Das Feld soll mit [ndim][lenvals] dimensioniert werden. Ich hoffe jemand von euch hat da mehr Ahnung vom Thema.

So wie ich das sehe erwartet die function den value als fortlaufendes char Array(Byte) im Fortranstyle.
also Fixe längen
in Etwa als Delphi Array: Valuetype = Array[5, 30] of Ansichar; // [ndim][lenvals]