Ich würde gerne mittels EnumPrinterDrivers die Liste der installierten Druckertreiber auslesen.
Das auslesen funktioniert auch, ich bekomme die korrekte Liste doch dann haut das Programm eine Zugriffsverletzung raus.
Zitat:
---------------------------
Printer
---------------------------
Zugriffsverletzung bei Adresse 004058CF in Modul 'Printer.exe'. Lesen von Adresse 00000000.
---------------------------
OK
---------------------------
Ich bin leider ein wenig aus der übung und habe auch früher solche
API geschichten gemieden. Diesmal würde ich aber gerne verstehen wie es geht und wo da der Fehler ist. Im Debugger wirkt es irgendwie als hätte ich zu viel Speicher reserviert.
Delphi-Quellcode:
function GetPrinterDrivers(): boolean;
var
arDriverList : array of TDriverInfo2;
pBuffer : Pointer;
pcbNeeded : DWORD;
pcReturned : DWORD;
ErrorTxt : array [0..500] of char;
i : integer;
begin
// Aufruf mit Buffersize 0 soll die benötigte Größe in pcbNeeded schreiben.
// ^--------------------------------------------+
if not EnumPrinterDrivers(nil, nil, 2, pBuffer, 0, pcbNeeded, pcReturned) then
begin
GetMem(pBuffer, pcbNeeded);
end;
result := EnumPrinterDrivers(nil, nil, 2, pBuffer, pcbNeeded, pcbNeeded, pcReturned);
if result then
begin
arDriverList := pBuffer;
for i := 0 to pcReturned -1 do form1.Memo1.Lines.add(arDriverList[i].pName);
FreeMem(pBuffer, pcbNeeded);
end
else
begin
FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, nil, GetLastError, 0, ErrorTxt, 500, nil);
ShowMessage(ErrorTxt);
end;
end;