EnumPrinterDrivers = Zugriffsverletzung (Anfängerfrage)

[Andreas2k]

Ok, ich hab es jetzt wie in deinem ersten Beispiel gemacht.
Ist das mit pStart und FreeMem so in Ordnung?

Delphi-Quellcode:

function GetPrinterDrivers(): boolean;
var
     Buffer          : PDriverInfo2;
     pStart          : Pointer;
     i               : Integer;
     BytesNeeded     : DWORD;
     ItemsReturned   : DWORD;

begin

if not EnumPrinterDrivers(nil, nil, 2, nil, 0, BytesNeeded, ItemsReturned) then
    begin
      if GetLastError = ERROR_INSUFFICIENT_BUFFER then
        begin
          GetMem(Buffer, BytesNeeded);
          pStart := Buffer;
          try
            if  EnumPrinterDrivers(nil, nil, 2, Buffer, BytesNeeded, BytesNeeded, ItemsReturned) then
               begin
                 for i := 1 to ItemsReturned  do
                     begin
                       Form1.Memo1.Lines.Add(i.ToString +' :: '+Buffer.pName);
                       inc(Buffer);
                     end;
               end;

          finally

            Buffer := pStart;
            FreeMem(Buffer);
          end;
        end;
    end;

[Der schöne Günther]

Auch wenn ich schon einmal Quark erzählt habe traue ich mich trotzdem noch:

Sieht gut aus, allerdings
- Könnte man pStart auch vom Typ PDriverInfo2 sein lassen.
- Mach in der Doku unbedingt fest was deine Methode denn angeblich zurückgibt
- Denn momentan ist der Rückgabewert uU nicht definiert

[himitsu]

Es muß nur mindestens so viel Speicher bereitgestellt werden, wie nötig.
Also wäre es kein Problem den Speicher auf ganze Recordgrößen aufzurunden.

Und nein, denn
* erstmal wäre der dritte Aufruf garnicht nötig, da man im Zweiten bereits beide Größen erfährt
** einfach ein SetLength zum Kürzen nach dem 2. Aufruf (was man aber nicht machen darf)
* außerdem würde man dann den Speicher mit den Strings freigeben, womit die PChars in den Records ins Nirvana zeigen täten