2

Здравствуйте!

Пытаюсь, мучаю TWebBrowser чтобы он мне отдавал innerText у ссылки при клике.

Нарыл пока только вариант, совмещающий JavaScript, который изменяет текст статуса, а затем event:onStatusTextChange дает нам собственно текст.

Т.е. у меня есть JavaScript:

function statusChange(text) {
    window.status = text;
}

В программе это выглядит:

procedure TMain.webBrowserStatusTextChange(Sender: TObject;
  const Text: WideString);
var
  t: String;
begin
  if pos('CMD:', Text) > 0 then
    begin
      t := Text;
      delete(t, 1, 4);
      reMessage.Text := t;
    end;
end;

А вот и сама ссылка:

<a href="#" onclick="javascript:statusChange(''CMD:'+Text+'''); return false;">Текст</a>

Но не получается сие сделать, так как постоянно возвращается пустая строка или about:blank#. Что делаю не так? Имеется ли возможность это сделать как-то по-другому?

UPD

Ссылка вырвана из контекста программы, поэтому вам странным кажется количество кавычек.

Link := '<a href="#" onclick="javascript:statusChange(''CMD:'+Text+'''); return false;">Текст</a>'

Двойная кавычка в Delphi - заменяет экранирование символа. И по той же причине (моя ошибка в вопросе) вы не поняли, что такое Text ибо это переменная программы, а не скрипта. По сути, после ссылка будет иметь вид:

<a href="#" onclick="javascript:statusChange('CMD:Текст'); return false;">Текст</a>

Т.е. как вы и написали, можно заменить на innerText. Но проблема не в этом, это работает замечательно все, а вот статусы, возвращаемые через событие TWebBrowser всегда при нажатии возвращают текст: about:blank#.

UPD2

procedure TMain.webBrowserBeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
var
  p: integer;
begin
  p := pos('CMD:', URL);
  if p > 0 then
    ShowMessage(copy(URL, p+4, Length(URL)-p-3));
end;

procedure TMain.Button1Click(Sender: TObject);
begin
  WebBrowser.Navigate('http://sh4dow.jino.ru/test.html');
end;

На выходе ваша страничка с программой и ни единого всплывающего сообщения.

8
  • Эээ а вы уверены, что window.status - это то же самое, что TWebBrowser.statusText? o_O В общем, ща попробую по-другому решить) Я просто протестил и он выдавал мне все состояния именно браузера (соединение, чтение данных и пр.), но не свойство объекта window.
    – Sh4dow
    7 окт 2011 в 19:28
  • Да быть же не может)) На ссылки нажимали? + Версия Делфи какая? У меня 7.
    – Sh4dow
    7 окт 2011 в 20:20
  • Уже лучше) Ну, тогда надо искать принципиальное различие между ссылками, по логике. Кстати, документ у вас полный? Имеется в виду, доктайп, кодировка указана, теги (html, head, body) на месте? Из-за этого периодически мистика происходит.
    – Sh4dow
    7 окт 2011 в 20:37
  • А вот об этой мистике я не подумал. Ща поправим доктайп
    – Dex
    7 окт 2011 в 20:40
  • 1
    Если вы динамически добавляете JS, имейте в виду, что в IE (а в делфи его библиотеки) так не умеет =) То есть вы можете сделать в ресурсах или папке с программой html-файл, в котором будет весь JS, и в него уже что-то динамически добавлять. Я вот только что добился вашего результата (переход и текст blank#), функция delphiRequest оказалась не определена. Мне кажется, ваша разгадка где-то здесь) Компонента, к сожалению, не знаю.
    – Sh4dow
    7 окт 2011 в 21:17

1 ответ 1

2

В общем, приму на веру, что смена window.status вызовет webBrowserStatusTextChange (времени нет потестить), что увидел сразу:

onclick в html обрабатывается примерно так:

<a onclick="lalala();ololo();"></a> 
// эквивалентно:
a.onclick = function(){ lalala();ololo(); }

, то есть префикс javascript: - ошибка. Его используют обычно в виде href="javascript:lalala();", т.е. для передачи кода в адресную строку с последующим переходом-выполнением.

Еще переменная Text у вас не определена, судя по постановке задачи вам нужно свойство innerHTML (в данном случа "Текст") текущей ссылки this.

То есть нужно, как указано в каменте:

<a href="#" onclick="statusChange('CMD:'+this.innerHTML);return false;">Текст</a>

, либо:

<a href="javascript:statusChange('CMD:'+this.innerHTML);">Текст</a>

Далее, кавычки, да) возможно, просто не выполняется функция (а судя по решетке в получаемой строке - происходит переход по ссылке и return false; не срабатывает).

Далее, просто чуть оптимизации

reMessage.Text := copy(Text, 5, Length(Text)-4);

Если после всего этого не заработает - пишите наблюдения.

UPDATE Изменим подход:

JS:

function delphiRequest(text) { window.location = '#CMD:'+text; return false; }

ссылка:

<a onclick="return delphiRequest(this.innerHTML);">Текст</a>

Делфи:

procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
var p: integer;
begin
  p := pos('CMD:', URL);
  if p > 0 then
    ShowMessage(copy(URL, p+4, Length(URL)-p-3));
end;
7
  • Добавил в вопрос комментарий. Что касается вашего способа: reMessage.Text := copy(Text, 5, Length(Text)-4); вы несомненно правы, но это мелочи, на которых я пока решил не останавливаться. Дело еще в том, что я не знаю бесплатных компонентов, которые бы умели: подсвечивать отдельные слова, выделять ссылки и вставлять изображения, поэтому я выбрал TWebBrowser как временное решение.
    – Dex
    7 окт 2011 в 19:06
  • Тоже пробовал, почему-то если Cancel := false все равно переход совершается. Сейчас все сделал теми же функциями JavaScript что и до (с небольшими изменениями), но меняю title, а соответственно обрабатываю onTitleChange кажется, и все работает. Но данные грабли жутко мне не нравятся.
    – Dex
    7 окт 2011 в 19:51
  • Cancel := false это вы о чем?) Вот я вставил в ответ свой кусок, он прям 100% рабочий) Вы точно все мое скопировали как в ответе? И решетку не забыли перед CMD? ЗЫ: Изменение статуса - ровно те же грабли. Я пытаюсь просто наименее заметные сделать)
    – Sh4dow
    7 окт 2011 в 19:56
  • И кстати, @Dex, спасибо за вопрос, мостик Delphi->JS я бы еще год собирался сделать без него =)
    – Sh4dow
    7 окт 2011 в 20:01
  • Переходит на новую страницу с текстом: return delphiRequest(this.innerHTML);
    – Dex
    7 окт 2011 в 20:02

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.