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

[Delphi4Us]

السلام عليكم

في لغة برمجة اخرى كنت استخدم مكون Web على النموذج وبه برمجمة Html وكذلك Java وكنت استطيع ان استدعي اجراء في النموذج من داخل المكون WEB

او استدعي اجراء جافا سكريبت بالصفحة من داخل النموذج (Invoke Web Control)

فكيف يمكن تحقيق ذلك من بيئة الدلفي

[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;