Funktion die TStrings zurückgibt

[DeddyH]

Ich wüsste jetzt spontan nichts, was dagegen spricht.

[RWarnecke]

Ich habe das ganze jetzt in der Zwischenzeit mal ausprobiert mit der Procedure vom Christian, nur leider bekomme ich immer noch eine AccessViolation in der Zeile APapeTrays.Append(bin[i]);

Da die Unit eh OpenSource ist, hänge ich es einfach an. Das ist die Unit aus meiner Komponente TPrinterInfo. Die angehängte Unit beinhaltet schon die Procedure von Christian.

Aufrufen tue ich das ganze so :

Delphi-Quellcode:

procedure TForm23.LB_InstPrnClick(Sender: TObject);
begin
  PrnInfo_1.PrinterIndex := LB_InstPrn.ItemIndex;
  LB_Papertray.Items.Clear;
  PrnInfo_1.GetPaperTrays(LB_Papertray.Items);
end;

[jbg]

Zitat:

Delphi-Quellcode:

var Res: DWORD;
for i := 0 to Res-1 do

Was ist wohl "DWORD(0)-1" wenn es implizit (und ohne Compiler-Warnung) in ein DWORD umgewandelt wird? Das $FFFFFFFF den 0..255 Bereich bei weitem sprengt sollte klar sein.

[RWarnecke]

Hallo Andreas,

danke erstmal für Deine Antwort. Nur leider bekomme ich auch dann den Fehler nicht weg, wenn ich Res auf Integer setze und vorher noch eine IF-Abfrage einbaue ob Res > 0 ist. Irgednwie sehe ich den Wald vor lauter Bäumen nicht.

Dieser Beitrag war ja die Grundlage für die Procedure. Nur in dem Demo Programm funktioniert das Ganze wunderbar. Habe ich da vielleicht etwas übersehen ?

[jbg]

Zitat:

Zitat von RWarnecke (Beitrag 1026118)

Irgednwie sehe ich den Wald vor lauter Bäumen nicht.

Da sind noch mehr stellen die ein "if Res > 0 then" vertragen könnten. Bei mir funktionierte es so lange, bis ich als Drucker den FreePDF eingestellt hatte. Dann kam nämlich Res = 0 raus, was zur Zugriffsverletzung führte.
Vielleicht solltest du auch noch ein "Res := Max(Res, 255)" einbauen, damit du nicht über die Array-Grenze drüberläufst. Besser ist es, wenn du DeviceCapabilities() zuvor mit NIL als lpOutput Parameter aufrufst, damit du die genaue Anzahl an "BinNames" Einträgen bekommst und es keine Speicherüberschreibung gibt.