Pobranie stringa z pliku txt z serwera

0

Witam, walczę obecnie z pobraniem zawartości pliku na swoim serwerze do stringa. Znalazłem taki przykład wykorzystujący Indy i meteodę GET https://www.generacodice.com/en/articolo/4434390/delphi-how-to-load-a-text-file-on-the-internet-into-a-string ale sypie ciągle błędami access violation. Bedę wdzięczny za jakiś prosty przykład jak sobie poradzić z odczytem jednej linijki z pliku txt

3

@Tomasz Wilk:
zalinkowany przykład jest ok i nie sypie żadnym wyjątkiem
pokaż Twój kod generujący wyjątek

EDT.. już widzę, jest wyjątek ale nie jest to acces violation

rocedure TForm2.Button3Click(Sender: TObject);
var
  S: string;
  IdHTTP: TIdHTTP;
begin
  IdHTTP := TIdHTTP.Create(nil);
   try
    try
      S := IdHTTP.Get('http://www.tablemaster.webs.com/versioninfo.txt');
      self.Memo1.lines.Add(S);
    except
      on e: exception do
      begin
        self.Memo1.lines.Add('HTTP Error ');
        self.Memo1.lines.Add('Error info : ' + e.message);
        self.Memo1.lines.Add('Error classname :' + e.ClassName);
      end;
    end;
  finally
    IdHTTP.Free;
  end;
end;
0

@grzegorz_so: Dzięki bardzo kolego przechodzi kompilację i nie wyrzuca błędów :)

1 użytkowników online, w tym zalogowanych: 0, gości: 1