Opdatering, dum fejl
Jeg er ved at udvikle et program, hvor jeg så har lavet en form som viser om der er opdateringer til den. Det er simpelt, den downloader bare en ini fil fra mit website og lægger den i en mappe. Jeg har så en TLabel som viser den nyeste version udfra den ini fil. Desværre virker det ikke som jeg siger. Den siger Version (FEJL) istedet for Version 5.5.Jeg kan ikke fixe den fejl, men burde ikke være så svær. Så jeg håber i kan hjælpe!
Her er koden:
public
Connect := Boolean;
function DownloadFile(Source, Dest: string): Boolean;
begin
try
Result := UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil) = 0;
except
Result := False;
end;
end;
procedure TForm19.FormCreate(Sender: TObject);
var
ini: TInifile;
ini2: TInifile;
begin
Connect := true;
if Connect = true then begin
Ini := TInifile.Create(extractfilepath(application.ExeName) + 'data\version.ini');
versionnow.Caption := 'Version ' + Ini.ReadString('Version', 'Version', '(FEJL)');
Ini.Free;
if DownloadFile('http://www.alawork.dk/snadmin/snversion.ini', extractfilepath(application.ExeName) + 'data\temp\versioncheck.ini') then begin
Ini2 := TInifile.Create(extractfilepath(application.ExeName) + 'data\temp\versioncheck.ini');
versionnew.Caption := 'Version ' + Ini2.ReadString('Version', 'Version', '(FEJL)');
Ini2.Free;
if versionnew.Caption = versionnow.Caption then begin
versionnew.Caption := 'Ingen nye opdateringer';
panel.Caption := ' Smart Notes versioner:';
download.Enabled := false;
end
else if versionnew.Caption = 'Version (FEJL)' then begin
download.Enabled := false;
end
else begin
panel.Caption := ' Smart Notes versioner:';
download.Enabled := true;
end;
end
else begin
Panel.Caption := ' Ingen internet netværk tilsluttet';
download.Enabled := false;
versionnew.Caption := 'Netværk ikke tilsluttet!';
end;
end
else begin
end
end;
Og Ini filen findes her http://www.alawork.dk/snadmin/snversion.ini
Håber at i kan fixe min kode, og på forhånd tak!
Med venlig hilsen
Armen L.A.
EvoxSoft
