Здравствуйте!
Пытаюсь, мучаю 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;
На выходе ваша страничка с программой и ни единого всплывающего сообщения.
blank#
), функция delphiRequest оказалась не определена. Мне кажется, ваша разгадка где-то здесь) Компонента, к сожалению, не знаю.