Moin,

ich versuche seit einigen Tagen, ein Messgerät von National Instruments unter Delphi zum Laufen zu bringen. Ich habe eine Headerdatei und eine c-lib, die per OLE auf die tatsächliche dll zugreift. Technisch gesehen ziemlicher Unsinn weil zu langsam.

Meine aktuelle Frage: ich würde gerne aus dieser Deklaration (stellvertretend für einige hundert) einen Delphi-Aufruf machen:

markieren

Code:

int32 __CFUNC    DAQmxCreateTask         (const char taskName[], TaskHandle *taskHandle);

Das sieht dann bei mir im Prinzip so aus:function DAQmxCreateTask(const taskName : string; var taskHandle : TTASKHANDLE) : int32; external 'NICAIU.DLL'; Das mit dem string wird natürlich nicht klappen. Array of pChar braucht eine feste Länge. PChar(string) geht in der Deklaration nicht.
Gibt es eine Möglichkeit, einen nullterminierten string als Typ zu deklarieren?

Die Basis der Übersetzungen kommt aus Dr. Bob's Tool, was doch ziemlich gestolpert ist. National Instruments gibt eine pas-Datei heraus, die vergleichbar ist und auch voller Fehler steckt (sieht auch automatisch übersetzt aus - Delphi wird von NI nicht unterstützt). Die wollen ja auch ihre überteuerten Labview-Lizenzen verkaufen.
Dabei haben sie leider die Performance vergessen. Das Problem wird sicher noch mehr Fragen aufwerfen...

Danke, Messie

Probier mal :

markieren

Delphi-Quellcode:

Type Blub = Array of PChar;

function DAQmxCreateTask(const taskName : Blub ; var taskHandle : TTASKHANDLE) : int32; external 'NICAIU.DLL';

und

markieren

Code:

*taskHandle

müste
type PtaskHandle = ^TTASKHANDLE sein. damit also
function DAQmxCreateTask(const taskName : Blub ; var taskHandle : PtaskHandle ) : int32; external 'NICAIU.DLL'; Evtl reicht auch
function DAQmxCreateTask(const taskName : Pchar; var taskHandle : PtaskHandle ) : int32; external 'NICAIU.DLL'; und dann itterierst du durch Taskname durch bis du auf #0 stöst

Wenn man es mit "var" macht, übergibt Delphi doch automatisch (intern) einen Pointer, oder täusche ich mich da ?

Zitat von Corpsman:

Evtl reicht auch
function DAQmxCreateTask(const taskName : Pchar; var taskHandle : PtaskHandle ) : int32; external 'NICAIU.DLL';

Ja, da möchte ich nochmal nachfragen: ist in der oben gezeigten Deklaration PChar gleich array of PChar? Das würde sinnvoll erscheinen. Bei bestimmten Funktionen aus der WinAPI ist das so, nun weiß ich nicht, ob das allgemein in Delphi gilt.

Grüße, Messie

const char [] ist ein Array of AnsiChar mit unbekannter Länge, vermutlich also ein PAnsiChar. Array of PChar ist garantiert falsch. Beim zweiten Parameter kann entweder explizit ein Zeiger übergeben werden oder es wird var verwendet. Außerdem musst du noch mit der Aufrufkonvention aufpassen.

markieren

Delphi-Quellcode:

type
PTaskHandle = ^TTaskhandle;

function DAQmxCreateTask(const taskname : array of Char; taskhandle : PTaskHandle) : Int32;

Bleibe lieber mit der Deklination der Typen so nah wie möglich am Original, um dir etwaiges Fehlverhalten zu ersparen.

Edit: Auch bei so wenigen Wörtern kann man sich doch imens vertippen :p

Hi
function DAQmxCreateTask(taskname : PChar; var taskhandle : TaskHandle) : Int32; würde ich verwenden.

Im Original heisst es const char tastkname[], was zeigt dass ein Pointer übergeben wird, wobei die Daten auf die er zeigt nicht verändert werden sollen.
taskhandle dagegen ist ein Rückgabewert und sollte als var deklariert werden. Damit wird automatisch ebenfalls ein Pointer auf diese Variable übergeben.

Ein string läßt sich dann einfach mit

markieren

Delphi-Quellcode:

var
  sTaskname: string;
  taskhandle: TaskHandle;
  ...
  sTaskname := 'meinetask';
  result := DAQmxCreateTask(pChar(sTaskname), taskhandle);

oder direkt
  result := DAQmxCreateTask('meinetask', taskhandle); übergeben.

Wenn man sich mal die unit windows anschaut - sofern man den Quellcode hat - findet man dutzende dieser Beispiele.

Gruss

Ich habe TTaskHandle jetzt auch als Pointer bezeichnet, kommt dem Original void* doch am nächsten

Um jetzt keinen neuen Thread eröffen zu müssen:

Was ist denn bitte

Zitat:

typedef unsigned __int64

für ein Typ in Delphi? Denn cardinal endet ja bei 32 bit.

Grüße, Messie

Statt einem PAnsiChar kann man sogar einen AnsiString verwenden, da dessen interner Zeiger auf den Textanfang und nicht auf den Anfang der String-Struktur zeigt und am Ende sogar eine #0 angehängt ist.
Also solange der "String" nicht in der Funktion verändert wird.
function DAQmxCreateTask(const taskname: AnsiString; var taskhandle: TTaskHandle): LongInt;

Zitat von messie:

Was ist denn bitte

Zitat:

typedef unsigned __int64

für ein Typ in Delphi? Denn cardinal endet ja bei 32 bit.

Grüße, Messie

UInt64.