Tprinter ist NIL, warum?

[khh]

hallo zusammen,
mit :
DefaultPrnt:=GetDefaultPrinter;
printer.printerindex := printer.printers.indexof (DefaultPrnt);

benutze ich den Standarddrucker zur Druckausgabe ohne Printdialog.

Bei der Zuweisung des Index schmiert das Programm mit SIGSEGV ab.
Mit dem Mauszeiger über printers wird dieser als NIL angezeigt.
Aber warum?
Der gleiche Code in einem anderen Testprogamm funktioniert.
Dort wird printer NICHT als NIL angezeigt.
Die Unit die verwendet wird ist in beiden Programmen die gleiche.
Gruss KH

[Klaus01]

Guten Morgen,

ich bin mir nicht sicher, aber sollte der printer nicht vor Benutzung initialisiert werden?
printer :=TPrinter.create; Grüße
Klaus

[khh]

nee, eben nicht
das ist bei Printers nicht nötig, und wird ja auch im funktionierenden Prog nicht gemacht.

[Sir Rufo]

Darum

Delphi-Quellcode:

// Auszug aus der Unit Printers

function Printer: TPrinter;
begin
  if FPrinter = nil then
    FPrinter := TPrinter.Create;
  Result := FPrinter;
end;

Jetzt kann ich mir nur noch vorstellen, dass printer.printers.indexof (DefaultPrnt) -1 zurückliefert

Edit: Nö, auch nicht ... denn wenn Printer.Index auf -1 gesetzt wird, dann wird automatisch der DefaultPrinter ausgewählt.
Somit lässt sich dein Code darauf reduzieren, dass du einfach schreibst
Printer.PrinterIndex := -1; Sind überhaupt Drucker installiert und ist auch ein Drucker als Standard gewählt?

[khh]

Zitat von Sir Rufo:

Darum

Delphi-Quellcode:

// Auszug aus der Unit Printers

function Printer: TPrinter;
begin
  if FPrinter = nil then
    FPrinter := TPrinter.Create;
  Result := FPrinter;
end;

Sind überhaupt Drucker installiert und ist auch ein Drucker als Standard gewählt?

ja, den Index direkt zuweisen geht natürlich.
Das ändert aber nix daran, dass Printer immer noch NIL istund das Prog daher bei der Zuweisung abschmiert.
Und eben nur in einem Prog, im anderen funktionierts ja
Und beide laufen auf der selben Maschine, sprich ein Standarddrucker ist gesetzt.

[Sir Rufo]

Dann mit DebugDCUs das Projekt nochmal erzeugen und einen Haltepunkt auf die function Printer setzen.

Dann kannst du sehen, wann die aufgerufen wird und ob da was zugewiesen wird.

[jaenicke]

Ich schätze einmal du hast irgendwo selbst oder in einer Unit eine gleichnamige Variable, Property, ... drin.

[khh]

Problem gelöst
Vieleicht hätte ich noch sagen sollen, dass es sich um Lazarus handelt.
Da sind dann wohl in der printers einige Unterschiede
Ursache des Fehlers war die Unit printer4lazarus.
Diese war im funktionierenden Projekt eingebunden, im fehlerhaften nicht.
Ist aber zwingend notwendig, damit das Objekt printer ohne explizites create erstellt wird.


ich danke euch für eure Hilfe.

Gruss KHH

[Sir Rufo]

Zitat von khh:

Vieleicht hätte ich noch sagen sollen, dass es sich um Lazarus handelt.

Wenn du dein Profil entsprechend bestücken würdest, dann könntest du das nicht mehr vergessen.

[khh]

Zitat von Sir Rufo:

Wenn du dein Profil entsprechend bestücken würdest, dann könntest du das nicht mehr vergessen.

umgehend erledigt