Servus.

ich erstelle einen Thread.

markieren

Delphi-Quellcode:

var
  wmi : TWMIThread;
begin
  wmi := TWMIThread.Create(OnWMIData, 'Win32_OperatingSystem', '', '', '');
  wmi := TWMIThread.Create(OnWMIData, 'Win32_Printer', '', '', ''); //drucker
  //...

Irgend wann wenn der Thread die daten gelesen hat, ruft er die Methode OnWMIData auf.
So weit so gut.
Wenn ich mein Programm im Taskmanager beobachte dann steht vor dem Thread aufruf. 5 Threads. Nach dem Aufruf 9 Threads. Normal müste doch wenn der Thread beendet wurde wieder die 5 Threads stehen, ist aber nicht.

Da ich nicht weis wann die Threads fertig sind, rufe ich auch kein Free oder Terminate auf.
Und die Execute Methode müste überall komplett durchlaufen.

Hallo Jackie,

ist FreeOnTerminate auf True gesetzt?

MfG Freddy

Sicher, dass es mit FreeOnTerminate zu tun hat? Ich würde vermuten, dass der Thread weg ist, wenn Execute() durchgelaufen ist. Sorry, ist keine Antwort auf die Frage..

Ja, hat nichts damit zu tun. Habs gerade getestet.

@Jackie: Kannst du uns vielleicht noch etwas mehr Quellcode schicken, namentlich den von der Threadklasse.

Einmal die Create Methode

zusammenfalten · markieren

Delphi-Quellcode:

constructor TWMIThread.Create(OnWMIData: TOnWMIData; WMIClass: string;WMIHost,WMIUser,WMIPass : string);
begin
  inherited Create(False);
  fOnWMIData := OnWMIData;
  fWMIClass := WMIClass;
  fWMIHost := WMIHost;
  fWMIUser := WMIUser;
  fWMIPass := WMIPass;
  fWhere := '';

  FreeOnTerminate := true;
end;

Die Execute Methode

zusammenfalten · markieren

Delphi-Quellcode:

procedure TWMIThread.Execute;
var
  wmi : TWMI;
  i : integer;
begin
  inherited;

  CoInitialize(nil);

  wmi := LoadClassInData(fWMIClass, fWMIHost, fWMIUser, fWMIPass);
  wmi.WMIClass := fWMIClass;
  if Assigned(fOnWMIData) then
    fOnWMIData(wmi);

  for i:=0 to wmi.InstanceCount-1 do
    wmi.Instance[i].Free;

  OleUninitialize;
end;

markieren

Delphi-Quellcode:

  if Assigned(fOnWMIData) then
    fOnWMIData(wmi);

Was passiert in der damit verbundenen Funktion? Ich schätze mal, dass die Form dem Thread eine Methode mitgibt, die dann ausgeführt wird? Eventuell Synchronize() vergessen oder sowas?

Mal ne doofe Frage: du rufst in deiner .Execute() Methode CoInitialize auf. Und am Ende verwendest du OleUninitialize. Müsste das eigentlich nicht entweder am anfang OleInitialize oder dann am Ende CoUnInilialize heißen??

Bernhard