[Threads] OnTerminate bei Threads in DLLs

[TheMiller]

Hier nochmal der Quellcode:

Delphi-Quellcode:

procedure TFOrm1.AfterSeekUpdates(Sender: TObject);
begin
  ShowMessage('SD');
  UpdateSucher.Free;  // Hier hängt alles
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  UpdateSucher:=TSeekUpdate.Create(True);
  //UpdateSucher.UpdateHost:='http://www.****.de/Produkte/*****/updates.ini';
  UpdateSucher.OnTerminate:=AfterSeekUpdates;
  UpdateSucher.FreeOnTerminate:=False;
  UpdateSucher.Resume;
end;

Und der Thread

Delphi-Quellcode:

type
  TSeekUpdate = class(TThread)
  private
    fHost: String;
    fVCLForm: TForm;
    function GetVersion(Filename: string): string;
    procedure SetUpdateHost(Value: String);
    procedure SetVCLForm(Value: TForm);
  protected
    procedure Execute; override;
  published
    property UpdateHost: String read fHost write SetUpdateHost;
    property VCLForm: TForm read fVCLForm write SetVCLForm;
  end;

procedure TSeekUpdate.Execute;
var
  www: TIdHttp;
  memini: TMemInifile;
  updates, entries: TStrings;
  i: Integer;
  filepath: String;
  inidir: String;
  inifile: String;
  iniversion: String;
  localversion: String;
begin
  inherited;
  //alles auskommentiert
end;