Datei aus dem Internet herunterladen - Onlineaktualisierung

[AlexanderBrade]

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;

[jaenicke]

Naja, in c:\ kann man normalerweise ja auch nicht schreiben... Da musst du schon das Tempverzeichnis nehmen, das du mit GetTempPath bekommst.

Das selbe gilt dann für die heruntergeladene Datei.

[DeddyH]

Wozu jetzt ein weiterer Thread? Du hast diese Frage doch bereits hier gestellt: http://www.delphipraxis.net/internal...007524#1007524

[Matze]

Wieso stellst du deine Frage denn doppelt?

Ich schließe hier mal, da im anderen Thema bereits geantwortet wurde.

G E S C H L O S S E N

Edit: Ok, nun wurde hier auch geantwortet. Du siehst, das gibt ein riesen Chaos. Stelle daher zukünftig generell keine doppelten Fragen.