Как сохранить Web страницу в текстовый файл?

[aRix]

Люди, поогите, как сохранить Web страницу в текстовый файл с помощью Lazarus или чистого fpc?? Очень надо

[Attid]

где-то было, ищи по форуму.

[ev]

открыть сокетом 80 порт и сохранить результат
действительно было уже...

[Brainenjii]

c Indy делал так:

Код: Выделить всё

var
  Values: TStringList;
  ReceiveStream: TMemoryStream;
  IdHTTP: TIdHTTP;
Begin
  IdHTTP := TIdHTTP.Create;
  Values := TStringList.Create;
  Values.Add('Что нужно для php, asp и прочих jsp...');
  ReceiveStream := TMemoryStream.Create;
  ReceiveStream.Clear;
  IdHTTP.Post('http://www.freepascal.org', Values, ReceiveStream);
  ReceiveStream.Seek(0, soFromBeginning);
  Values.Clear;
  Values.LoadFromStream(ReceiveStream);
  Values.SaveToFile('/tmp/freepascal.html');
  Values.Free;
  ReceiveStream.Free;
  IdHTTP.Free;
End;


Так сохранится только текст (мне он и нужен был ^_^)... Картинки и прочие css хз как загружать

[ev]

парсишь полученный текстовый файл
выцепляешь теги IMG и качаешь также уже ссылки с картинками и т.п.