[gelöst] PasccalSane Problem mit sane_get_devices

[MacWomble]

Hallo,

ich habe mich heute an Pascalsane https://www.lazarus-components.org/Comp ... scal-Sane/ versucht. Leider bekomme ich eine Fehlermeldung:

Error: Projekt Libsane Demo hat Exception-Klasse »External: SIGSEGV« ausgelöst. Bei Adresse 7FFFF7BD36C2

Code: Alles auswählen

procedure SaneGetDeviceList ( aList: TStrings ) ;
var
  x: longint;
  res: SANE_Status;
  Devicelist: ^DeviceArray;
  s: string;
begin
  //test
  res := sane_init(0, nil);
  if res = SANE_STATUS_GOOD then
     try
        res := sane_get_devices(Devicelist,SANE_FALSE); // <<<<<<<< Hier tritt der Fehler auf
        x := 0;
        if res = SANE_STATUS_GOOD then
           while Devicelist^[x] <> nil do
             begin
               s := Devicelist^[x]^.name;
               aList.Add(s);
               Inc(x);
             end;
     finally
        sane_exit;
     end;
end;                                   

Hat das eventuell schon mal jemand hin bekommen?

[Socke]

Musst du die Variable Devicelist irgendwie initalisieren?

[MacWomble]

Keine Ahnung, ich habe Pascalsane von der angegebenen Stelle herunter geladen und versucht, das Demoprogramm zum Arbeiten zu bewegen.

[Warf]

Probier doch mal:

Code: Alles auswählen

procedure SaneGetDeviceList ( aList: TStrings ) ;
var
  x: longint;
  res: SANE_Status;
  Devicelist: DeviceArray;
  s: string;
begin
  //test
  res := sane_init(0, nil);
  if res = SANE_STATUS_GOOD then
     try
        res := sane_get_devices(@Devicelist,SANE_FALSE); // <<<<<<<< Hier tritt der Fehler auf
        x := 0;
        if res = SANE_STATUS_GOOD then
           while Assigned(Devicelist[x]) do
             begin
               s := Devicelist[x]^.name;
               aList.Add(s);
               Inc(x);
             end;
     finally
        sane_exit;
     end;
end;

Oder ist sane_get_devices call by reference? dann macht das was ich geschrieben hab keinen sinn

[MacWomble]

Super - Danke!

So funktioniert es einwandfrei!