Hallo,

ich habe etwas Probleme, eine Header-Datei von C nach Delphi 2006 zu übersetzen.
Ich habe folgende Deklaration:

markieren

Code:

DLL_EXPORT signed int FAR PASCAL searchReader(int* port, unsigned char* version, unsigned char* type);

Diese habe ich so übersetzt:

markieren

Delphi-Quellcode:

  Function searchReader(var port : Integer;
                        var version : PChar;
                        var &type : PChar) : Integer; external 'IFreader.dll';

Aufruf der Funktion:

zusammenfalten · markieren

Delphi-Quellcode:

var port, res : Integer;
    version, xtype : PChar;
begin

  res := SearchReader(port, version, xtype);
  if res >= 0 then
  begin
    lstStatus.Items.add('SearchReader successful');
    lstStatus.Items.add('Port: ' + intToStr(Port));
    lstStatus.Items.add('Version: ' + Version);
    lstStatus.Items.add('Type: ' + xType);
  end
  else
  begin
    lstStatus.Items.add('SearchReader Error: ' + intToStr(res));
  end;


end;

Beim Aufruf der Funktion bekomme ich jedoch eine Zugriffsverletzung. Kann mir jemand sagen, was ich falsch mache?

Danke!
Jens

Transferiere mal version und type zuvor in lokale Variablen

Hm, Bahnhof...?

Ich habe doch im Aufruf Version und Type als lokale Variablen deklariert. Das ist vermutlich nicht das, was Du meinst, oder?

markieren

Delphi-Quellcode:

version, xtype : string;
begin

  res := SearchReader(port, PChar(version), PChar(xtype));

Zitat von mkinzler:

markieren

Delphi-Quellcode:

version, xtype : string;
begin

  res := SearchReader(port, PChar(version), PChar(xtype));

Das geht leider nicht:
[Pascal Fehler] unitfrmMain.pas(33): E2197 Konstantenobjekt kann nicht als Var-Parameter weitergegeben werden
Version und Type sind ja Rückgabewerte der Funktion. Daher auch als VAR deklariert.

Funktioniert:

zusammenfalten · markieren

Delphi-Quellcode:

...
var
  version, xtype : PChar;
  sversion, stype: string;
begin

  res := SearchReader(port, version, xtype);
  if res >= 0 then
  begin
    sversion := version;
    stype := xtype;
    lstStatus.Items.add('SearchReader successful');
    lstStatus.Items.add('Port: ' + intToStr(Port));
    lstStatus.Items.add('Version: ' + sversion);
    lstStatus.Items.add('Type: ' + sType);
  end;
...

?

Leider nein, aber das ist ja auch im Prinzip das selbe, wie meine erste Version.

Aufruf von res := SearchReader(port, version, xtype); wobei version und xtype als PChar deklariert sind. Bei Dir wird nur nachher aus dem PChar ein String gemacht. Die Zugriffsverletzung tritt ja schon beim Aufruf von SearchReader auf.

Hast du mal testweise das var weggelassen?

Auch dann habe ich die selbe Fehlermeldung.

Sorry, falls unqualifiziert: Ist unsigned char* nicht eher PByte?