VPF::Копир текста с сайта в TXT файл. Подскажите код.

Manif

Дата 3.12.2010, 11:02 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 3.12.2010

Репутация: нет
Всего: нет

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

Keeper89

Дата 5.12.2010, 15:16 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 6
Всего: 58

С использованием synapse это будет выглядеть так:

Код


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

Это сообщение отредактировал(а) Keeper89 - 5.12.2010, 15:18

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

~FoX~

Дата 5.12.2010, 17:43 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 3
Всего: 68

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

Код


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 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 4
Всего: 329

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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »