Speicherleck in WinSpool.OpenPrinter API ???

[Oliver1983]

Habe folgendes Problem, mit einem Timer wird die u.a. Funktion alles 5 sek aufgerufen, soweit so gut.

Das Problem ist nun das der Arbeitsspeicher verbrauch jede 5 sek. um 12kb ansteigt (laut Windows Taskmgr) Obwohl die Funktion doch den Speicher wieder frei gibt!!!

Hab ich was übersehen?

Gruß Olli

Delphi-Quellcode:

function print_jobs(printer_index: integer) : integer;
type
  PJobs = ^TJobs;
  TJobs = array[0..0]of TJobInfo2;
var
  Needed, JobCounter : DWORD;
  i : Integer;
  Device, Driver, Port : array[0..255] of char;
  hPrinter, hDeviceMode : THandle;
  Buffer : Pointer;
  Job : PJobs;
const
  NoJobs = 100;
begin
//TEIL1

  Printer.PrinterIndex := printer_index;
  Printer.GetPrinter(Device, Driver, Port, hDeviceMode);
  if WinSpool.OpenPrinter(@Device, hPrinter, nil) then
  begin
    EnumJobs(hPrinter, 0, NoJobs, 2, nil, 0, Needed, JobCounter);
    //GetMem(Buffer, Needed);
    Buffer := AllocMem(Needed);

    try
      Job := Buffer;

      if EnumJobs(hPrinter, 0, NoJobs, 2, Buffer, Needed, Needed, JobCounter) then
        begin
        Form1.LabeledEdit2.Text := IntToStr(JobCounter);
        if JobCounter > 0 then
         begin
           result := 1;
         end;
          for i := 0 to JobCounter - 1 do
            begin
            if Job[i].pDocument <> nil then
              Form1.LabeledEdit3.Text := IntToStr(Job[i].TotalPages);
            end;
        end;

    finally
      FreeMem(Buffer, Needed);
    end;

   WinSpool.ClosePrinter(hPrinter);
  end;

 sleep(10);
end;

[stahli]

Lade Dir mal die Trial von EurekaLog. (gibt dort auch 2 interessante Demovideos)
FastMM ist zwar auch bei XE dabei, aber EurekaLog ist deutlich komfortabler, finde ich.

[Oliver1983]

das bringt mich nicht weiter da der Speicher wieder freigegeben wird!

Ich muss wissen warum immer 12kb bei jedem Durchlauf angeforedert wird bzw. nicht richtig freigegeben wird!

Eureka gibt mir ne Fehlermeldung aus sobald ich den Speicher nicht freigebe!!!

In wieweit kann man denn den Taskmgr von Windows glauben schenken?

Gruß

[chaosben]

Ich hab mal deinen Code unter D2009/Win7_64 ausgeführt und habe kein Speicherleck.

Vielleicht ist es woanders?

[Oliver1983]

Hast du den Code mal von einem Timer alle 5 sekunden ausführen lassen? dann siehst du das im Taskmgr das der Arbeitsspeicher immer 12kb größer wird :cyclops:

[chaosben]

ich hab ihn jede Sekunden laufen lassen

[stahli]

Ggf. müsste man wissen, was die Funktion machen soll und was in printerindex zu übergeben ist (und welche Printer und Jobs vorausgesetzt werden müssen).

Habe mich nicht näher mit dem Auszug beschäftigt, aber ein Testing ist sonst möglicherweise nicht ganz aussagekräftig...

[Oliver1983]

Printer index ist nur ein Integer wert von 1 bis 6 gibt nur an welcher Printer genommen wird!!!
Die Funktion guckt nur nach ob es für diesen Printer einen aktiven Printjob gibt, wenn ja dann seitenanzahlen anzeigen!

Mehr nicht, die anderen funktionen etc. aus dem Prgramm habe ich alle durchgetest daran liegt es nicht, liegt definitiv daran wenn der nach den Drukcern guckt!!!

Finde es schon irgendwie komisch!!!

[chaosben]

Mal so ins Blaue geraten: Diese Funktion greift hintenherum auf die verschiedenen Treiber (Drucker, Netzwerk) zu.
Wenn da was faul ist, könnte dich das ganz schön veralbern

[Oliver1983]

Mir geht es nur darum das ich weiß ob ein druckauftrag aktiv bzw. gesendet worden ist.
Hintergrund dafür ist, dass ich so eine Steckdosenleiste via USB und Netzwerk, schalten kann und somit bei bedarf den Drucker einschalte!!!

Deswegen halt auch nen Timer mit 5sek. !

Gibt es sonst eine möglichkeit das der Winspooler eine Message Systemweit schickt und ich diese nur abfangen brauche? Dann kann ich mir den Timer ersparen!!

Gruß Olli

[chaosben]

Du suchst wahrscheinlich FindFirstPrinterChangeNotification und FindNextPrinterChangeNotification. (Ist ganz simpel)