Различия

Показаны различия между двумя версиями страницы.

--- works:programmer:delphi:twebbrowser [2024/11/17 19:34] – создано Eugene
+++ works:programmer:delphi:twebbrowser [2025/02/27 14:20] (текущий) – Eugene
@@ Строка 33: / Строка 33: @@
 </code>
+===== Переключение IE Compatible =====
+<code html>
+<meta http-equiv="X-UA-Compatible" content="IE=edge" />
+<meta http-equiv="X-UA-Compatible" content="IE=10" />
+</code>
+===== Собрать текст из тегов script =====
+<code pascal>
+var
+    Doc     : IHTMLDocument2;
+    Script  : IHTMLScriptElement;
+    i       : Integer;
+begin
+    if Supports(WebBrowser1.Document, IHTMLDocument2, Doc) then begin
+        for i:=0 to Doc.scripts.length-1 do begin
+            Script:=Doc.scripts.item(i,i) as IHTMLScriptElement ;
+            Memo1.Lines.Add (Script.text );
+        end;
+    end;
+end;
+</code>