Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 02.12.2013, 19:11   #1
Fahman
Участник клуба
 
Аватар для Fahman
 
Регистрация: 03.04.2013
Сообщений: 702
Репутация: 23
Печаль Часть Странички в 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;
До этого все нормально было(
Fahman вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Парсинг или часть странички в 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 16:24
перестал работать cd-rom Betty Железо 7 22.08.2009 09:10
Неожиданно перестал работать код kry Помощь студентам 5 12.01.2009 10:11


22:20.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.