insertAdjacentHTML

[WennY]

Спасибо, работает, я примерно понял где косячил =) А жаваскрипт выполнить в контексте добавления его после загрузки страницы реально? У меня пока нифига, ток хтмл.

Ещё небольшой вопросик.

Вот эта конструкция

//получение html кода из TWebBrowser
function GetHtml(Browser: TWebBrowser): string;
  var doc : IHTMLElement;
begin
   Result:='';
   if Assigned(Browser.Document) then
   begin
     doc := (Browser.Document as IHTMLDocument2).body;
     while doc.parentElement <> nil do
       doc := doc.parentElement;
     Result := doc.outerHTML;
   end;
end;

отфильтровывает некоторые важные символы. Как можно это обойти? Как-то отключить это реально? Буду очень признателен

P.S. Щас убираю обычным реплейсом, но чет меня не радуют amp; везде и всюду =(

[volod3000]

Сообщение от WennY

отфильтровывает некоторые важные символы. Как можно это обойти? Как-то отключить это реально?

А, чуточку поточней !


Вот посмотрите еще это :

http://www.delphisources.ru/pages/fa...html_code.html

http://delphiexpert.ru/view_lesson.php?id=28

http://delphiblog.ru/delphi-faq/inte...z-twebbrowser/

[WennY]

Понятно, спасибо, я там разобрался, решилось реплейсом =) А жаваскрипт вставить на выполнение реально в вашем примере, или только хтмл?

[volod3000]

Скрипт можно выполнить вот так :

procedure TForm1.Button1Click(Sender: TObject);
var
    DocA   : HTMLDocument;
    Element: HTMLBody;
    script : string;

begin
        script := 'document.getElementById("date").innerHTML = "Привет !"; ';

        DocA:= WebBrowser1.Document as HTMLDocument;
        Element:= DocA.body as HTMLBody;

        Element.insertAdjacentHTML('beforeEnd',  '<p><div id="date"></div></p>');
        (WebBrowser1.Document as IHTMLDocument2).parentWindow.execScript(script, 'javascript');
end;

А, можно, выполнить необходимые действия кодом Delphi, а значение
подставить в страницу (Element.insertAdjacentHTML(....)).

Вот для ознакомления :

Как вызвать функцию JavaScript на странице в TWebBrowser-е

[WennY]

Во! Ништяк! Спасибо! =) Ещё и дом пашет, я счастлив бесмерно, с меня ящик водяры