Ü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...? :oops:

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:

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?

[inherited]

Nein, das passt schon.
Aber im Header steht was von int* type, müsste es also nicht besser PInteger sein?

[tomsson74]

Nur mal so gefragt:

Die enstprechende DLL (IFreader.dll) befindet sich schon im Projektverzeichnis und wenn nicht, ist es sichergestellt dass diese von deinem Programm auch "sichtbar" ist ?

/Thomas

[Nersgatt]

Zitat:

Zitat von inherited

Nein, das passt schon.
Aber im Header steht was von int* type, müsste es also nicht besser PInteger sein?

Auch das bringt leider keine Änderung. Ich habe andere Funktionen, wo z.B.

Code:

unsignt int * value

deklariert ist. Diese habe ich mit

Delphi-Quellcode:

var value : LongWord

übersetzt. Die funktionieren Wunderbar...

[inherited]

Hast du vielleicht noch den C-Quellcode eines entsprechenden Aufrufs der funktioniert? Vielleicht erwartet die Funktion, dass der Speicher für die PChars bereits reserviert wurde.

[Nersgatt]

Hihi, das fragst Du gerade in der Minute, wo ich das Notebook runtergefahren und verpackt habe :mrgreen:
Ich werde nächste Woche nochmals schauen, ist auf jeden Fall ein guter Hinweis.