No zapomněl jsem napsat že zkoušim ten první, je tam toho vice.
begin
sl := TStringList.Create;
try
HttpGetText('http://www.google.cz/', sl);
writeln(sl.Text);
// zde si muzeme se stazenym souborem neco udelat,
finally
FreeAndNil(sl);
end;
end.
poradna.net
Neregistrovaný Přihlásit Registrovat