Speicher Freigabe?

[msickel]

Hi, leider komme ich nicht wirklich weiter, ich habe folgenden Code der aber bei jedem Druck auf den Button Speicher frisst, was mache ich falsch?

Bin für jede Hilfe dankbar

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, activex, comobj, ExtCtrls,
  ShellAPI, ExceptionLog;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    
  private
    { Private declarations }
  public
    { Public declarations }
    
  end;

var
  Form1: TForm1;

implementation


{$R *.dfm}


uses
  WbemScripting_TLB;


var
  aLoc : ISWbemLocator;
  aSrv : ISWbemServices;
  aObjSet : ISWbemObjectSet;
  pEnum : IEnumVARIANT;
  vOut : OleVariant;
  dwRetrieved : LongWord;
  hRes : HResult;
  sNetConnectionID, sNetConnectionStatus : String;
  iNetConnectionStatus : Integer;

function GetLocator : ISWbemLocator;
begin
  if not Assigned(aLoc) then
     aLoc := CoSWbemLocator.Create;

  result := aLoc;  
end;

function GetServices : ISWbemServices;
begin
  if not Assigned(aSrv) then
     aSrv := aLoc.ConnectServer ('','root\cimv2', '','','','',0, nil);

  result := aSrv;  
end;

procedure TForm1.Button1Click(Sender: TObject);
begin

  Listbox1.Items.Clear;

  aLoc := GetLocator;
  aSrv := GetServices;

  aObjSet := aSrv.ExecQuery ('SELECT NetConnectionID, NetConnectionStatus FROM Win32_NetworkAdapter', 'WQL', 0, nil);

  pEnum := aObjSet.Get__NewEnum as IEnumVARIANT;

  while (true) do
  begin
    hRes := pEnum.Next (1, vOut, dwRetrieved);
    if not (hRes = S_OK) then
      Break;

    if (VarIsNull(vOut.NetConnectionID)) then
      Continue;

    sNetConnectionID := vOut.NetConnectionID;
    iNetConnectionStatus := vOut.NetConnectionStatus;
    if iNetConnectionStatus = 2 then
      sNetConnectionStatus := 'verbunden';
    if iNetConnectionStatus = 7 then
      sNetConnectionStatus := 'nicht verbunden';

    ListBox1.Items.Add(sNetConnectionID + ' = ' + sNetConnectionStatus);

  end; 

//  VarClear(vOut);
//  hRes := 0;
//  pEnum := nil;
//  aLoc := nil;
//  aSrv := nil;
//  aObjSet := nil;

end;

end.

Martin

[GHorn]

Moin,

aLoc und aSrv sind globale Variablen. Es würde
also ein einfacher Aufruf der Funktionen "GetLocator" und "GetServices" reichen.

Alle Variablen, die danach gesetzt werden (aObjSet, pEnum, hRes usw.), können bzw. sollten lokal deklariert werden - es sei denn sie werden irgendwo im Code noch gebraucht. Dadurch werden sie am Ende der Buttonclick-Funktion von Delphi sauber abgeräumt.

Die Zeile

Delphi-Quellcode:

    if (VarIsNull(vOut.NetConnectionID)) then
      Continue;

erschließt sich mir nicht. Wenn da False rauskommt, würde die while-Schleife trotzdem fortgesetzt.

Besser wäre m.E.:

Delphi-Quellcode:

var 
bContinue: Boolean;
...
begin
  bContinue := True;
  while bContinue do
    begin
      ....
      if (not (hRes = S_OK)) or 
         ((VarIsNull(vOut.NetConnectionID))) then
        bContinue := False;
      if bContinue then
        begin
          sNetConnectionID := vOut.NetConnectionID;
          ....
        end;
    end;

Gruß
Gerald

[msickel]

Hi Gerald,

Erst mal Danke für den Tipp, auch allen anderen die sich hiermit schon auseinader gesetzt haben vielen Dank für die Hilfe.

Die Variablen habe ich deinen Vorschlägen entsprechend umgebaut, hat aber leider nichts gebracht.

Die geänderte While Schleife habe ich auch versucht, leider wird nach Änderung kein Netzwerk-Adapter mehr ausgelesen, habe ich deshalb sein lassen.
Leider ist es aber immer noch so das bei jedem Aufruf zwischen 40 und 200 k flöte gehen, kann hier noch wer einen Tipp geben?

Zitat von GHorn:

Moin,

aLoc und aSrv sind globale Variablen. Es würde
also ein einfacher Aufruf der Funktionen "GetLocator" und "GetServices" reichen.

Alle Variablen, die danach gesetzt werden (aObjSet, pEnum, hRes usw.), können bzw. sollten lokal deklariert werden - es sei denn sie werden irgendwo im Code noch gebraucht. Dadurch werden sie am Ende der Buttonclick-Funktion von Delphi sauber abgeräumt.

Die Zeile

Delphi-Quellcode:

    if (VarIsNull(vOut.NetConnectionID)) then
      Continue;

erschließt sich mir nicht. Wenn da False rauskommt, würde die while-Schleife trotzdem fortgesetzt.

Besser wäre m.E.:

Delphi-Quellcode:

var 
bContinue: Boolean;
...
begin
  bContinue := True;
  while bContinue do
    begin
      ....
      if (not (hRes = S_OK)) or 
         ((VarIsNull(vOut.NetConnectionID))) then
        bContinue := False;
      if bContinue then
        begin
          sNetConnectionID := vOut.NetConnectionID;
          ....
        end;
    end;

Gruß
Gerald

Martin