Hallo, ich habe nach Anleitung alle Prozeduren zur Onlineaktualiserung mit Hilfe einer txt.Datei in mein Projekt integriert, allerdings lädt er bei mir die Datei garnicht herunter!
Anbei mein Quelltext(ich habe das in das FormCreate des 1. Formulars integriert)
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var Datei,Ziel:PChar;
List: TStrings;
begin
try
Datei := 'http://alexanderbrade.al.funpic.de/abi/version.txt';
Ziel := 'C:\';
UrlDownloadToFile(nil, Datei, Ziel, 0, nil); //Das macht er schon nicht, dh. die Datei wird nicht herunter geladen!
except
ShowMessage('Ein Fehler ist aufgetreten! Programm wird beendet!');
Form1.Close;
end;
List := TStringList.Create;
try
List.LoadFromFile('C:\version.txt');
if List.Count>0 then
Edit1.Text:=List[0];
Edit2.Text:=List[1];
finally
List.Free;
end;
if StrToInt(Edit1.text) > StrToInt(Label1.caption) then begin
ShowMessage('Es ist ein Update möglich!');
try
Datei := 'http://alexanderbrade.al.funpic.de/abi/abi.zip';
Ziel := 'C:\';
UrlDownloadToFile(nil, Datei, Ziel, 0, nil);
except
ShowMessage('Ein Fehler ist aufgetreten! Programm wird beendet!');
Form1.Close;
end; end
else
ShowMessage('Es ist kein Update nötig! Die Software ist auf dem neusten Stand!');
{DeleteFile('C:\version.txt'); }
end;