Problem mit TStringList

[xaromz]

Hallo,

Zitat von Christian.Ossi:

Naja, da es sich um größere Dateien handelt, würde das Programm "hängen" - über den Thread mit ProcessMessages ist das Problem umgangen.

Wenn Du nur etwas im Thread abarbeiten willst, und der Thread unabhängig von Hauptprogramm ist (was er sein sollte), dann mach's doch so:

Delphi-Quellcode:

constructor HTTPDownload.Create(Const FDown: TStringList); 
Begin 
  inherited Create(True);  // <- suspendiert erzeugen
  HTTPSocket := TIdHTTP.Create(Nil); 
  Down := TStringList.Create; 
  Down.Assign(FDown);
End;

und

Delphi-Quellcode:

Procedure KnopfUpdateClick(Sender: TObject); 
Var 
  Variable: TStringList; 
Begin 
  Variable := TStringList.Create; 
  Variable.Add(....); 
  HTTPThread := HTTPDownload.Create(Variable); 
  HTTPThread.FreeOnTerminate := True;  // automatisch zerstören
  Variable.Free;  // aufräumen
  HTTPThread.Resume;  // los geht's
End;

Übrigens: In "Create" das inherited immer als Erstes aufrufen, in "Destroy" am Schluss.

//Edit:
Ich habe mir noch mal Deine "Execute"-Methode angesehen. Abgesehen von der Einrückung, die das Ganze sehr undurchsichtig macht, wie wäre es hiermit:

Delphi-Quellcode:

procedure HTTPDownload.Execute; 
var 
  I: Integer; // Integer statt Word
begin 
  I := 0;
  while (not Terminated) and (I < Down.Count) do // statt for-Schleife while-Schleife mit Abbruchbedingung
  begin
    Stream := TFileStream.Create(Down[I], fmCreate);
    try // try .. finally statt try .. except
      HTTPSocket.Get(Down[I], Stream);
    finally
      Stream.Free;
    end;
    Inc(I);
  end; 
end;

Gruß
xaromz