Deutsches Lazarusforum

Ich bin seit fast sechs Monaten bei München.

Ich wohne in Aken und bin als Leiharbeiter bundesweit (meist im Südwesten) auf Montage.

Maik81SE hat geschrieben: Mi 6. Mär 2024, 21:35Es knallt in der Zeile:

Code: Alles auswählen

for b := 0 to (Items[_einnahme][xy.x, xy.y].Bemerkung.Count - 1) do

Dann müsste der Fehler bei _einnahme, xy.x und xy.y zu suchen sein.

Procedure auszug
with Control_Edit.memo1.Lines do begin
Add(IntToStr(_einnahme + 1) + '. Einnahme:');
Add('Schlagwort: ' + Items[_einnahme][xy.x, xy.y].Schlagwort);
Add('Stärke: ' + Items[_einnahme][xy.x, xy.y].Day_Info);
Add('Schmerzen: ' + Items[_einnahme][xy.x, xy.y].Schmerz);
Add ...

Vermutlich hätte es gereicht den Ordner .Lazarus zu löschen.

@Matthias

Ich habe ja nicht viel gemacht. Irgendwann mal Lazarus 2.2.2 über die Softwareverwaltung von Ubuntu installiert. Weil da nichts aktualisiert wurde, habe ich es vor ein, zwei Wochen deinstalliert. Dann die drei deb-Pakete von Sourceforge heruntergeladen und installiert. Und dann spann ...

Ich habe hier Ubuntu, bis vor kurzem Lazarus 2.2.2 und nun 3.0.0. Über das Hauptmenue "Werkzeug" - "Einstellungen" kommt man zu den IDE-Einstellungen mit dem Lazarus-Verzeichnis. Dort stehen auch nicht existierende Verzeichnisse zur Auswahl wie das zu Lazarus 2.2.2. Eben hatte ich Lazarus gestartet ...

Auf die Googleseite kommt man von https://wiki.freepascal.org/PascalSane.

Zum Thema Scannen finde ich auch nichts anderes. Die sane.h habe ich von https://github.com/chadjoan/libsane/tree/master/c

Habe eben noch mal Skanlite ausprobiert. Da ist das wie hier. Der LiDE400 wird auch angezeigt wenn ...

Ich hatte die Demo als Grundlage genommen. Die Auflistung funktioniert, aber eben mit der Macke, weshalb ich dieses Thema angefangen habe.

Das ist wirklich ein Oldie. Man findet auch nichts neueres und ohnehin nur wenig. Dort steht als Datum 3. Mai 2008. Vielleicht ist das Alter für die Macke ...

https://code.google.com/archive/p/ocrivist/downloads

Ich habe die sane.h und die sane.pas genommen und daraus "meine" sane.pas gemacht. Deshalb stimmen nicht alle Namen in den beiden sane.pas überein.

Ich hatte die Scannerklasse beim Aufruf der Gerätesuche immer freigegeben und neu erneut. Das ...

Seit Oktober 2022 "arbeite" ich an meiner ersten vernünftigen Anwendung unter Linux, einem Scannprogramm. Das hat mit dem Canon LiDE100 gut funktioniert. Vor ein paar Monaten habe ich einen Canon LiDE400 bekommen und es haben sich ein paar Macken gezeigt, welche ich nach und nach beseitigen will ...

War gestern wohl zu spät.

type
SANE_Device = record
name : SANE_String_Const; // unique device name
vendor : SANE_String_Const; // device vendor string
model : SANE_String_Const; // device model name
dev_type : SANE_String_Const; // device type (e.g., "flatbed scanner")
end;
PSANE_Device ...

procedure TForm1.MenuItem1Click(Sender: TObject);
begin
Memo1.Append(BoolToStr(MenuItem1.Checked,'ON','OFF'));
end;

procedure TForm1.MenuItem2Click(Sender: TObject);
begin
if MenuItem2.Checked then
Memo1.Lines.Add('ON')
else
Memo1.Lines.Add('OFF');
end;

MenuItem1 und MenuItem2 ist ...

Habe das eingefügt bzw geändert:
PDevices_List = ^PDevice_List;
..
function sane_get_devices(devices: PDevices_List; local_only: SANE_Bool): SANE_Status; cdecl; external SaneExport;


Weil das nicht geht:
function sane_get_devices(devices: ^PDevice_List; local_only: SANE_Bool): SANE_Status ...

Vielen Dank für Deine Antwort, Matthias. Die Unit sane.pas ist aus der pascalsane 0.2 . Da steht drin dass sie von Malcolm Poole aus dem August 2008 ist. Ich habe das Beispiel genommen und eine Anwendung geschrieben, mit welcher ich scannen kann. Allerdings funktioniert nicht alles so wie es soll ...