Ini aus dem Web auslesen

[MaToBe]

Guten Tag

habe einen FTP server von Funpic.de. Dort liegt jetzt meine CIB_D.ini die man unter der url http://matobe.ma.funpic.de/CIB_D.ini uach anschauen kann.

warum klappt dann dieser Code nicht?

Delphi-Quellcode:

ini:=TIniFile.create('http://matobe.ma.funpic.de/CIB_D.ini');

wenn ich einen Pfad der Ini-Datei die auf dem PC ist klappt alles wunderbar aber übrs I-Net geht es nicht.

MFG

€: ich weiß das ihr hier nicht auf "Cheater-Programme" steht, aber da ich in einem andere Forum aktiv bin und es dort eben solche Programme gibt, habe ich mir das auch gleich als Übung genommen eine Art Zusammenstellung zum Downloaden von den Programmen zu machen. Ich selbst entwickle keine "Cheater-Programme", bitte verwährt mir deshalb nicht die Hilfe.

[DGL-luke]

Du solltest die Datei zuerst downloaden und dann auslesen.

Delphi hat keinen integrierten Protokollhandler, der so eine URL auflösen kann, kann dir diese Arbeit also nicht abnehmen.

[MaToBe]

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?

[DGL-luke]

Delphi-Quellcode:

...
ini:=TIniFile.create(Ziel); 
...

SO vielleicht besser?

[xxl1]

//offtopic

meiner meinung nach soltlest du wenn du schon was programmierst, was sinnvolles machen und nicht noch irgendweche Hacks die du scheinbar kennst verbreiten wollen...naja jedem das seine
/offtopic

[MaToBe]

danke klappt jetzt

ehm ja mir is das recht schnurz egal was die andern damit machen, verbreitet sind sie in dem anderen Forum sowieso, also von daher...war für mich nur mal als Übung mit "Websyncronisation" und Inis gedacht.

MFG