Unit in Thread packen?!

[XeRo]

Hi ich verwende die Unit von Florian Bernd(Anhang).
Sie Scannt das Netzwerk nach PC's.
Ich will die Unit in einen Thread packen damit das Programm auch beim Scannen noch reagiert. Nur habe ich keine Ahnung wie...kann mir das jemand sagen/machen?

[petergensfeld]

Hallo,

im wesentlichen solltest Du eine neue Klasse von TThread ableiten, in der Du die Execute-Methode überschreibst:

Delphi-Quellcode:

type
  TScanThread = class(TThread)
  public
    procedure Execute; override;
    // ...
  end;

// ...

procedure TScanThread.Execute;
begin
  // hierin zeitaufwändige Scan-Routine platzieren
end;

// Edit: Ansonsten schau mal in der Hilfe unter TThread nach!

Gruß Dirk

[XeRo]

:gruebel:
Also wenn ich die Unit "starte" mit:

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
ActiveConnections.ScanNetworkResources(1,RESOURCEDISPLAYTYPE_GENERIC,listbox1.Items);
end;

dann muss ich

Code:

ActiveConnections.ScanNetworkResources(1,RESOURCEDISPLAYTYPE_GENERIC,listbox1.Items);

ins

Delphi-Quellcode:

procedure TScanThread.Execute; 
begin 
 ActiveConnections.ScanNetworkResources(1,RESOURCEDISPLAYTYPE_GENERIC,listbox1.Items);
end;

schreiben?

Und wie Ruf ich das dann auf?!
Leider Hilft mir die Hilfe nichts.... :wall:

[mgubler]

wie meinst du das :

Zitat:

Zitat von XeRo

:gruebel:
Also wenn ich die Unit "starte" mit:

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
ActiveConnections.ScanNetworkResources(1,RESOURCEDISPLAYTYPE_GENERIC,listbox1.Items);
end;

dann muss ich

Code:

ActiveConnections.ScanNetworkResources(1,RESOURCEDISPLAYTYPE_GENERIC,listbox1.Items);

ins

Delphi-Quellcode:

procedure TScanThread.Execute; 
begin 
 ActiveConnections.ScanNetworkResources(1,RESOURCEDISPLAYTYPE_GENERIC,listbox1.Items);
end;

schreiben?

Und wie Ruf ich das dann auf?!
Leider Hilft mir die Hilfe nichts.... :wall:

du musst dann meines erachtens TScanThread.Execute aufrufen.
Und dann macht der das.
Wie wäre es denn damit???

[XeRo]

Genau das geht eben nicht...
auf die Idee wär ich eh selber gekommen.

[Zacherl]

Dann musst du eine Instanz von TScanThread erzeugen und Execute aufrufen:

Delphi-Quellcode:

var
  ScanThread: TScanThread;
begin
  ScanThread := TScanThread.Create(true);
  ScanThread.Execute;
  ScanThread.Free;
end;

Florian

[NicoDE]

Die Execute-Methode wird beim Create aufgerufen. Der Code könnte so aussehen:

Delphi-Quellcode:

var
  ScanThread: TScanThread;
begin
  ScanThread := TScanThread.Create(True);
  try
    ScanThread.FreeOnTerminate := False;
    ScanThread.Resume();
    ScanThread.WaitFor();
    // ...Daten aus dem Thread holen...
  finally
    ScanThread.Free();
  end;
end;

[Zacherl]

Der Parameter CreateSuspensed in der Create Methode legt fest, ob Execute direkt aufgerufen wird. Wenn der Parameter true ist, wird der Thread eingefroren, bis Execute aufgerufen wird.

[XeRo]

Auch das habe ich versucht...
bewirkt aber leider nicht dass das Programm wärend dem Scanvorgang reagiert.
Hab mal das Programm in den Anhang gegeben...

Könnt ihr euch das mal ansehen?

[Angel4585]

kann rar hier nicht öffnen, aber wenn du in nem Thread eine Schleife wie:

Delphi-Quellcode:

while i > 0 do
 inc(i);

hast , dann solltest du ab und zu ein Sleep rein machen, da der Thread sonst du gesamten Ressourcen des Programms in anspruch nimmt un der rest des Programms nicht reagieren kann.

Das sieht dann so aus:

Delphi-Quellcode:

while i>0 do
 begin
 if (i div 100) = 0 then
  sleep(1);
 inc(i);
 end;

(ich mach das in dem Beispiel nur alle 100 i's , dürfte ausreichen)

das heisst für dich, das du in die Unit oder zwischen die Funktionsaufrufe noch ein paar sleeps einbauen musst.

MfG Angel4585