TMSWebUpdate - eine neue WebUpdate-Komponente

[Cronen]

Ich habe einen Wizard mit der Komponente gebastelt und dabei immer Fehlermeldungen bekommen.
Nach ca. zwei Stunden probieren und Scheuklappen vor den Augen habe ich den Fehler gefunden:

Fehler:
Ich hab die Methode CheckforUpdates 2x aufgerufen (wurde benötigt um im Wizard die Seiten zu wechseln und eine Fortschrittsanzeige zu realisieren. Beim Ermitteln von AllFileSize und beim Download gabs dann Fehlermeldungen.

Ursache:
fFiles enthielt mehr Dateien als in der Steuerdatei angegeben (und zwar am Ende mit leeren Dateinamen).
Da es Leernamen waren griff die Fehlerroutine nicht.

Lösung:
fFiles muß beim Aufruf von CheckforUpdates geleert werden. Hier der Code dazu:

Delphi-Quellcode:

procedure TWebUpdate.CheckForUpdates;

  ...  

  ini := TIniFile.Create (fTempDir + IniName);
  ma := ini.ReadInteger ('Version', 'Major', 0);
  mi := ini.ReadInteger ('Version', 'Minor', 0);
  re := ini.ReadInteger ('Version', 'Release', 0);
  bu := ini.ReadInteger ('Version', 'Build', 0);

  SetLength (fFiles,0);  // <--  Diese Zeile neu eingefügt

  SectionCount := 1;             
  FileCount := 0;
  while Ini.SectionExists ('File'+null(SectionCount, 3)) do
  begin
    s := ini.ReadString ('File'+null(SectionCount, 3), 'Name', '');
    if LinkExists (fUpdateURL + s) then
    begin
      SetLength (fFiles, Length(fFiles)+1);
      with fFiles[FileCount] do
      begin
        name := s;
        Path := ini.ReadString ('File'+null(SectionCount, 3), 'Path', '');
        if ((Path <> '') and
            (copy (Path, Length(Path)-1, 1) <> '\')) then
          Path := Path + '\';
        if fStartname = '' then
          if ini.ReadBool ('File'+null(SectionCount, 3), 'Start', false) then
            fStartname := name;
      end;
      FileCount := FileCount + 1;
    end
    else
      if Assigned (OnError) then
        OnError (self, TWU_FileNotFound, s);
    SectionCount := SectionCount + 1;
  end;
  ini.Free;

  ...

Jetzt funktionierts prima.