التكامل بين بيئة الدلفي والمكون WEB

[Delphi4Us]

وجدت طرريقة تشغيل سكريبت في الصفحة لازال البحث جاريا عن الطريقة العكسية

PHP كود :

uses MSHTML_TLB, SHDocVw;
 
 procedure ExecuteScript(doc: IHTMLDocument2; script: string; language: string) ;
 begin
    if doc  nil then
    begin
      if doc.parentWindow  nil then
        doc.parentWindow.ExecScript(script, Olevariant(language)) ;
    end;
 end;
 

Usage (in some Button OnClick event handler, for example): 

 var
    script : string;
 begin
    //locate the first element with ID attribute = "main" and show its tag
 
    script := 'var elemMain = document.getElementById("main") ; if (elemMain != null) { alert(elemMain.tagName) ; }';
 
    ExecuteScript(EmbeddedWB1.Document as IHTMLDocument2, script, 'javascript')
 end;