danke aber jetzt taucht ein weiteres Problem auf.
Die Ini-Datei wird gedownloaded und unter dem Namen CIBD.ini abgespeichert.
Dann steht im weitere Programmcode, dass er aus der CIBD.ini auslesen soll. Aber genau das, was er vorhe rmit der lokalen Ini gemacht hat, nämlcih auslesen, tut er auf einmal nicht mehr...
Delphi-Quellcode:
procedure TfrmMain.FormCreate(Sender: TObject);
var i: integer;
Datei : PChar;
Ziel : PChar;
Char : PChar;
begin
Datei := 'http://matobe.ma.funpic.de/CIB_D.ini';
Char := PChar(ExtractFilePath(ParamStr(0)) + 'CIBD.ini');
Ziel := Char;
UrlDownloadToFile(nil, Datei, Ziel, 0, nil);
SG.ColWidths[0] := 180;
SG.ColWidths[1] := 50;
SG.ColWidths[2] := 105;
SG.ColWidths[3] := 65;
SG.ColWidths[4] := 65;
SG.Cells[0,0] := 'Name';
SG.Cells[1,0] := 'Version';
SG.Cells[2,0] := 'Autor';
SG.Cells[3,0] := 'Release';
SG.Cells[4,0] := 'Updates';
ini:=TIniFile.create('CIBD.ini');
for i := 1 to 20 do
begin
SG.Cells[0,i] := ini.readstring(inttostr(i),'Name','');
SG.Cells[1,i] := ini.readstring(inttostr(i),'Version','');
SG.Cells[2,i] := ini.readstring(inttostr(i),'Autor','');
SG.Cells[3,i] := ini.readstring(inttostr(i),'Release','');
SG.Cells[4,i] := ini.readstring(inttostr(i),'LastUpdate','');
end;
ShowMessage ('Letztes Update: ' + ini.readstring('Update','LastUpdate', ''));
end;
Warum nicht? Wo steckt der Fehler?