1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

procedure TForm2.UpdateBtnClick(Sender: TObject);
var
  stream: TFileStream;
  ini: TiniFile;
  Version: Extended;
begin
if (rdy = 0) then
begin
stream := TFileStream.Create('config.ini', fmCreate);
HTTP1.Get('http://raidtest.ra.funpic.de/config.ini', stream);
end;

if (rdy = 1) then
begin
ini := TiniFile.Create(ExtractFilePath(ParamStr(0))+ 'config.ini');
ini.ReadSectionValues('VersionCL', Listbox2.Items);
ini.Free;
end;
if (Listbox1.ItemIndex = Listbox2.ItemIndex) then
begin
Application.MessageBox('Your Client is already up 2 date!', 'Up 2 Date', MB_ICONINFORMATION or MB_OK);
Exit;
end
else
if (Listbox1.ItemIndex <> Listbox2.ItemIndex) then
begin
stream := TFileStream.Create('Chat Client 1.5.exe', fmCreate);
HTTP2.Get('http://raidtest.ra.funpic.de/Chat_Client_1.5.exe');
end;
end;                    

1:
2:
3:
4:
5:
6:
7:

procedure TForm2.HTTP1WorkEnd(ASender: TObject; AWorkMode: TWorkMode);
begin
Application.MessageBox('Config File Downloaded!', 'Config Download', MB_ICONINFORMATION or MB_OK);
Stream.Free;
rdy := 1;
UpdateBtn.Click;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

procedure TForm1.UpdateBtnClick(Sender: TObject);
var
  Stream: TMemoryStream;
  Ini: TStringList;
  Version: Extended;
  OldDecimalSeparator: Char;
begin
  Stream:=TMemoryStream.Create;
  try
    HTTP1.Get('http://raidtest.ra.funpic.de/config.ini',Stream);
    //Weshalb der Umweg über eine INI-Datei auf der Festplatte?
    //Eine String-Liste tut's auch:
    Ini:=TStringList.Create;
    try
      Stream.Seek(0,soFromBeginning);
      Ini.LoadFromStream(Stream);
      OldDecimalSeparator:={FormatSettings.}DecimalSeparator;
      {FormatSettings.}DecimalSeparator:='.'; //wäre überflüssig, wenn gleich ein Komma genutzt würde
      Version:=StrToFloatDef(Ini.Values['VersionCL'],0);
      {FormatSettings.}DecimalSeparator:=OldDecimalSeparator;
    finally
      Ini.Free;
    end;
    if Version<>AktuelleVersion then
    begin
      Stream.Clear;  //Stream wird auch zum Download der Datei benutzt
      //Wozu eine zweite HTTP-Komponente? Dazu kann auch die erste benutzt werden:
      HTTP1.Get('http://raidtest.ra.funpic.de/Chat_Client_1.5.exe',Stream);
      Stream.SaveToFile('Chat Client 1.5.exe'); //hier könnte noch ein SaveDialog eingefügt werden oder zumindest ein "ordentlicher" Pfad
    end else ShowMessage('Alles OK');
  finally
    Stream.Free;
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

Stream.Seek(0,soFromBeginning);

OldDecimalSeparator := DecimalSeparator;

DecimalSeparator:='.';

Version:=StrToFloatDef(Ini.Values['VersionCL'],0); // StrToFloatDef kenn ich gar nicht :D


//und was ist der unterschied zwischen TMemoryStream und TFileStream?
//kann man die Datei mit ersterem direkt im Internet aufrufen?                    

1:
2:

Stream.Seek(0,soFromBeginning);
//...                    

1:
2:

OldDecimalSeparator := DecimalSeparator;
DecimalSeparator:='.';                    

1:
2:

Version:=StrToFloatDef(Ini.Values['VersionCL'],0);
//...