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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 31.07.2008, 16:12   #1
avalon8
 
Регистрация: 18.06.2008
Сообщений: 3
По умолчанию Замена HTML-кода c javascript'om

Код:
procedure TForm1.Parser();
var
HTML_Doc: IHTMLDocument2;
Window: IHTMLWindow2;
frame: Olevariant;
name_frame1, name_frame: olevariant;
begin
HTML_Doc := EmbeddedWB1.Document as IHTMLDocument2;
Window := HTML_Doc.parentWindow as IHTMLWindow2;
if EmbeddedWB1.OleObject.Document.Frames.length <> 0 then
begin
name_frame := 'sub_main';
name_frame1 := 'main';
text := '';
html := '';
frame := Window.frames.item(name_frame).document.frames.item(name_frame1).document;
text := frame.documentElement.innerText;
html := frame.documentElement.innerHtml;

if ansipos('Use', html) <> 0 then
begin
Insert('ЖМИ СЮДА!!!', html, ansipos('Use', html));
Delete(html, ansipos('Use', html), 3);
frame.open;
frame.write(html);
frame.close;
end;
end;
end;
После замены исходного HTML-кода, на мой изминеный HTML-код, страница как бы замерзает, на страницы есть JavaScript (секундомер) он перестает ходить!! Почему??
avalon8 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Получение HTML - кода??? PashaXP Win Api 9 05.08.2008 15:27
оптимиация Html кода Hallo HTML и CSS 18 06.12.2007 20:27
Выдернуть куски кода из html-кода trafbite Помощь студентам 7 18.08.2007 13:51
Как выдрать из HTML кода ссылки? Vit2 Общие вопросы Delphi 1 24.04.2007 23:09