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.