Funktion aus dem Hauptthread in einem extra Thread ausführen

[xaromz]

Hallo,

Du gibst das TThread-Objekt am Ende nicht frei. Besser ist das so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var 
  Res: TResolve; 
begin 
  Res := TResolve.Create(True); 
  Res.FreeOnTerminate := True;  //<----
  Res.OnIpResolved := HandleResolve; 
  Res.Resolve(<DOMAIN>); 
end;

Wenn Du so einen Thread öfter brauchst, ist es besser, ihn einmal zu erstellen und immer wieder schlafen zu legen, als ständig einen neuen Thread zu erstellen.

Gruß
xaromz