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
0
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 :)