C++ DLL in Delphi

[mcbain]

Danke für die Antwort.
Wenn ich es so deklariere:

Code:

  function ZBRGetHandle(var hPrinter: THandle; var printername: PChar; var printerType; var err: PInteger): boolean; stdcall; external 'ZBRPrinter.dll';

und dann so aufrufe:

Code:

ZBRGetHandle(hPrinter, printername , printerType, err)

Kommt ein Fehlercode heraus, der nicht existiert... Noch ne Idee evtl. ?

[DeddyH]

Nein, ich meinte das so:

Delphi-Quellcode:

function ZBRGetHandle(hPrinter: Phandle; printername: PChar; var printerType, err: Integer): Boolean; stdcall; external 'ZBRPrinter.dll';
...

procedure TForm2.btnSDKClick(Sender: TObject);
var hPrinter: Thandle;
    printerType, err: Integer;
    printerName: Pchar;
begin

  printerName := 'Zebra P430i Card Printer USB';
  ZBRGetHandle(@hPrinter, printername , printerType, err)

end;

[mcbain]

Bringt mir den gleichen Fehlercode 61, "Unable to open handle to Zebra printer driver"....ich verstehs nicht...

[brechi]

sicher dass, das handel stimmt? Haette es ja eher mit cdecl versucht:

Delphi-Quellcode:

procedure ZBRPRNGetSDKVer(out major, minor, engLevel: Integer); cdecl; external 'ZBRPrinter.dll'; 
function ZBRGetHandle(out hPrinter: THandle; printername: PChar; out printerType, err: Integer): Integer; cdecl; external 'ZBRPrinter.dll';

[mcbain]

An dem cdecl lags auch nicht.
Ich habe es nun herausgefunden, es lag an der Dokumentation.
Die Funktion muss folgendermaßen aussehen:

Code:

function ZBRGetHandle(var hPrinter: PHandle; printername: LPSTR; var printerType: Integer; var err: Integer) : Integer;stdcall; external 'ZBRPrinter.dll';

Wichtig dabei war, dass printername ein LPSTR ist und nichts anderes. In der Dokumentation steht da nämlich etwas von char....

Vielen Dank für eure Antworten.