VPF::распознавалка JavaScript - Форум программистов

___Felix___

Дата 13.10.2007, 10:08 (ссылка)

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

Загрузка ...

Новичок

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

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

Здрасть, таварисчи программисты. У меня такая проблема.
Есть JavaScript'овый код, который, что-то выводит на страницу, например:

Код


document.write('<b>');
if(x == 1)
{
    document.write('Hello!');
}
else
{
    document.write('Goodbye!');
}

Есть ли какие-нить примбамбасы (компоненты, алгоритмы и тд) на Делфях (хотя необязательно) чтобы я получил "<b>Hello!</b>" или "<b>Goodbye!</b>". Вообщем чтобы провернуть скрипт и получить то, что выведется на страницу. Написал бы сам поиск строк "document.write", но если задуматься - придется писать полный интерпритатор. smile

Mr.Floppy

Дата 13.10.2007, 12:15 (ссылка)

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

Загрузка ...

Шустрый

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

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

Код

uses SHDocVw_TLB, MSHTML_TLB;

procedure TForm1.Button1Click(Sender: TObject);
var
  HTMLString: string;
begin
  HTMLString := '<script>' +
         'document.write(''<b>'');' +
         'x = 1;' +
         'if(x == 1)' +
         '{' +
         '    document.write(''Hello!'');' +
         '}' +
         'else' +
         '{' +
          '    document.write(''Goodbye!'');' +
         '}' +
         '</script>';
  WebBrowser1.Navigate('about:' + HTMLString);
end;

procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  Memo1.Text := OleVariant(pDisp).Document.Body.OuterHTML; //с тегами
  Memo1.Text := OleVariant(pDisp).Document.Body.InnerText; //просто текст
end;

Может быть можно и без TWebBrowser обойтись, но все равно через OLE.

Это сообщение отредактировал(а) Mr.Floppy - 13.10.2007, 12:29

___Felix___

Дата 13.10.2007, 14:10 (ссылка)

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

Загрузка ...

Новичок

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

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

Огромное спасиб!
Не знал, очень помогло! smile

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