VPF::Отключение ошибок выполнения скриптов

gashik

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

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

Загрузка ...

Новичок

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

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

Код


uses MSHTML, UrlMon, activex;

Код


SLBody:=TStringList.Create;
  try
    SLBody.LoadFromFile('c:\111.tmp');
    Doc := coHTMLDocument.Create as IHTMLDocument2;
    if Doc = nil then
      begin
          ShowMessage('Ошибка создания IHTMLDocument2');
          exit;
      end;

      v := VarArrayCreate([0,0],VarVariant);
      v[0] := SLBody.Text;
      Doc.write(PSafeArray(TVarData(v).VArray));

      DocA  := doc.all.tags('strong') as IHTMLElementCollection;
      for i := 0 to DocA.length-1 do
        begin
          DocElement := DocA.Item(i, 0) as IHtmlElement;
          if DocElement.className='text' then
            begin
                      ...//какие-то действия с элементом
            end;
        end;

Подскажите новичку, как отключить окно с ошибками выполнения скрипта?

Модератор, извиняюсь за публикование в этом разделе, перенеси если можно в раздел с delphi

Это сообщение отредактировал(а) gashik - 9.5.2011, 16:32

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