Модераторы: Snowy, Poseidon, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Не сохраняются изменения в html-документе 
:(
    Опции темы
sg729
Дата 2.1.2012, 19:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: 1
Всего: 1
Делаю разбор ссылок с помощью IEParser, меняю href в ссылках, затем сохраняю документ в файл. Если смотреть HtmlElement.getAttribute в отладчике или вывести  в Memo, все получается, однако в записанном html файле изменения не сохраняются - т.е. в нем исходный текст странички. В чем ошибка?

Код

procedure TForm1.Button1Click(Sender: TObject);
begin
  IEParser1.Parse('http://sg729.narod2.ru/test1.html');
end;

procedure TForm1.IEParser1ParseComplete(Sender: TObject;
  Doc: IHTMLDocument2; All: IHTMLElementCollection);
var
  PersistFile : IPersistFile;
  i : Integer;
begin
  HtmlDocument:=IEParser1.Doc as IHtmlDocument2;
  if HtmlDocument.readyState='complete' then
  begin
    LinksCollection:=HtmlDocument.links;
    for i:=0 to LinksCollection.Length-1 do
    begin
      HtmlElement:=LinksCollection.Item(i,0) as IHtmlElement;
      HtmlElement.setAttribute('href','new.html',0);
    end;
    PersistFile:=HTMLDocument as IPersistFile;
    PersistFile.Save(StringToOleStr('save.html'), True);
  end;
end;
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Сети | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0764 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.