Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 02.12.2013, 19:11   #1
Fahman
Форумчанин
 
Аватар для Fahman
 
Регистрация: 03.04.2013
Сообщений: 703
Печаль Часть Странички в delphi код перестал работать!

Здравствуйте, у меня есть 1 код и он мне убирал все что не нужно было в webbrowser Какое то время все работало нормально но потом вот он сам по мебе сам перестал работать...
В чем может быть дело?
Что не так?

вот моя ссылка..

Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
webbrowser1.Navigate('http://finviz.com/insidertrading.ashx');
end;


Код:
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  DocA: IHTMLElementCollection;
  doc: IHTMLDocument2;
  Element: IHTMLElement;
  i: integer;
  fl: boolean;
begin
  if (pDisp = CurDispatch) then
  begin
    doc := ((pDisp as IWebBrowser).Document as IHTMLDocument2);
    DocA := doc.body.all as IHTMLElementCollection;
    i := 0;
    fl := true;
    while (i < DocA.length) and fl do
    begin
      Element := DocA.item(i, 0) as IHTMLElement;
      if Element.className = 'body-table' then
      begin
        doc.body.innerHTML :=
          '<span class="time-text" id="time"></span>' + Element.outerHTML;
        fl := false;
      end;
      inc(i);
    end;
    CurDispatch := nil;

  end;
end;

procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
if CurDispatch = nil then
    CurDispatch := pDisp;
end;
До этого все нормально было(
99% ошибок компьютера сидит в полуметре от монитора.
Fahman вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Парсинг или часть странички в webbrowser? Как лучше? Fahman Общие вопросы Delphi 32 18.11.2013 15:59
Перестал работать таймер в Delphi 2010 Shouldercannon Общие вопросы Delphi 4 10.07.2012 22:54
Перестал работать код Mikuro Microsoft Office Excel 6 12.11.2010 15:24
перестал работать cd-rom Betty Компьютерное железо 7 22.08.2009 09:10
Неожиданно перестал работать код kry Помощь студентам 5 12.01.2009 09:11