Положил я на форму TIdHTTP, TEdit и TButton.
TEdit'у по умолчанию прописал значение свойства Text "http://ya.ru"
По нажатию кнопки Button1 выполняю:
- Код: Выделить всё
procedure TForm1.Button1Click(Sender: TObject);
var
stream: TMemoryStream;
begin
stream:= TMemoryStream.Create;
showMessage(eUrl.Text);
IdHttp1.Get(eUrl.Text, stream);
stream.SaveToFile('g:a.txt');
end;
Если урл в Эдите не менять - всё хорошо, а если прописываю в Эдите другой урл, другого сайта вместо ya.ru (например, yandex.ru) - получаю ошибку "302 Found". Как мне скачивать содержимое произвольного урла в свой файл a.txt?
Добавлено спустя 5 минут 1 секунду:
Win7 32bit
Lazarus 1.0.14
FPC 2.6.2
Добавлено спустя 26 минут 48 секунд:
когда я стал запрашивать не корневые страницы популярных сайтов, а прямые урлы обычных картинок на сайтах в зоне *.com.ua - всё заработало. Странно.