Übersetzung C -> Delphi

[Nersgatt]

Hallo,

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

Code:

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

Diese habe ich so übersetzt:

Delphi-Quellcode:

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

Aufruf der Funktion:

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

[mkinzler]

Transferiere mal version und type zuvor in lokale Variablen

[Nersgatt]

Hm, Bahnhof...?

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

[mkinzler]

Delphi-Quellcode:

version, xtype : string;
begin

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

[Nersgatt]

Zitat von mkinzler:

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.

[mkinzler]

Funktioniert:

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; 
...

?

[Nersgatt]

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.

[mkinzler]

Hast du mal testweise das var weggelassen?

[Nersgatt]

Auch dann habe ich die selbe Fehlermeldung.

[Satty67]

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