VPF::TWebBrowser удаляет код страницы!!! - Форум программистов

FRAGNATIC

Дата 31.1.2007, 15:49 (ссылка)

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

Загрузка ...

..::Свирепый Кодер::..

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

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

Код


procedure TForm1.Parse();
var
  HtmlDocument: IHtmlDocument2;
  HtmlCollection: IHtmlElementCollection;
  HtmlElement: IHtmlElement;
  I: Integer;
  value : OleVariant;
  keywords : OleVariant;
  Flag : boolean;
begin
  keywords := '';
  Flag := false;

  HtmlDocument := WebBrowser1.Document as IHtmlDocument2;
  HtmlCollection := HtmlDocument.all;

  //set attributes for tags
  for I := 0 to HtmlCollection.Length - 1 do begin
    HtmlElement := HtmlCollection.Item(i, 0) as IHtmlElement;
    if HtmlElement.tagName = 'IMG' then begin
      value := Alts.Strings[random(Alts.Count-1)]; //getRendomAlt
      //value := '2222';
      keywords := keywords + value + ', ';
      HtmlElement.setAttribute('alt',value,0);
    end;
  end;

  //set meta keywords
  HtmlCollection := HtmlCollection.Tags('META') as IHTMLElementCollection;
  for I := 0 to HtmlCollection.Length - 1 do begin
    HtmlElement := HtmlCollection.Item(i, 0) as IHTMLElement;
    if HtmlElement.getAttribute('name',0) = 'keywords' then
    begin
      HtmlElement.setAttribute('content',keywords,0);
      Flag := true;
    end;
  end;

  //save modifed file
  SaveFile(Flag, keywords);
end;

Вот после такого, в хтмл коде вообще ни чего бывает не остаётся, тоесть если хтмл полностью правильный то всё прекрасно работает, но если это дапустим шаблоны под шаблонизатор с тэгами и атрибутами шаблонизатора, то он просто их все удаляет и всё, и даже если не модифить не чего, а просто пробежатся по ним и всё ! на выходи я получаю чистый код (((
КАК избавится от такой медвежей услуги IE ?
Очень нужно

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