Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > Копир текста с сайта в TXT файл. Подскажите код.

Автор: Manif 3.12.2010, 11:02

Шеф попросил сделать для него программу, наверное достаточно простую как
мне кажется, но к сожалению, мне не доступную. Задача следующая: приложение
должно уметь по одному нажатию кнопки открыть сайт XXXXXXX.ru (сайт будет
все время один и тот же), открыть ссылку YYYYY(но это второстепенно) и
главное скопировать текст с открытой странички в файл ZZZZZZ.txt
Для специалиста наверное довольно просто, но мне очень нужно. Выручайте,
братцы!
Подскажите пожалуйста простой код или хотя бы с чего копать. Заранее
спасибо всем ответившим. Проблема стоит комом в горле.

Автор: Keeper89 5.12.2010, 15:16

С использованием http://synapse.ararat.cz/doku.php это будет выглядеть так:

Код


uses
  httpsend;
...
var
  SL: TStringList;
begin
  SL := TStringList.Create;
  try
    if HttpGetText('АДРЕС СТРАНИЦЫ', SL) then
    begin
      SL.SaveToFile('ИМЯ ФАЙЛА');
      Showmessage('Скачать удалось!')
    end;
  finally
    FreeAndNil(SL);
  end;
end;

Автор: ~FoX~ 5.12.2010, 17:43

С инди примерно так

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  HTTPText: TStringList;
begin
  HTTPText := TStringList.Create;
  try
    HTTPText.Text := IdHTTP1.Get('http://yandex.ru');
    HTTPText.SaveToFile('c:\1.txt');
  finally
    HTTPText.Free;
  end;
end;

Автор: Akella 7.12.2010, 15:54

Тогда уж просто браузером можно.
Файл->Сохранить как...