Druckerliste laden

[juelin]

Hallo,
ich habe von Delphi eine Routine übernimmen.

Code: Alles auswählen

procedure TForm1.FormActivate(Sender: TObject);
  var h1: integer;
  var h2: integer;
  var h3: integer;
begin
........
    h1:=Printers.Printer.Printers.Count;
    h2:=Printers.Printer.PrinterIndex;
    if h1 > 0 then
    begin
      for h3:=0 to h1-1 do
      begin
        if h3 = h2 then
        begin
          drucker:=Printers.Printer.Printers.Strings[h3];
          druckn:=h3;
        end;
      end;
    end;
..........
end;

Beim Befehl: h1:=Printers.Printer.Printers.Count; bekomme ich eine Fehlermeldung (siehe Anhang)
und das Programm bleibt stehen.
In Uses sind Printer und Printers drin.

Kann mir da hemand helfen?

Danke und Gruß
Jürgen

[paweld]

Sie müssen das Package "Printers4Lazarus" zum Projekt hinzufügen: Menü "Projekt > Projektinspektor > Hinzufügen > Neue Anforderung" und wählen Sie aus der Liste "Printers4Lazarus".

[juelin]

Hallo POWRLD,
ja das war es.
Danke für die Hilfe.
Gruß
Jürgen
PS: Schau Dir mal meine Posts FlightRadar an. (Einmal verschrieben FlightRadat).
Vielleicht ist das ja was für Dich?

[paweld]

Hi,
Ja, ich habe diese Threads gesehen, wenn ich etwas Zeit habe, werde ich versuchen, mich damit zu befassen.
Ich wünsche Ihnen ein schönes Wochenende