+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : التكامل بين بيئة الدلفي والمكون WEB (/showthread.php?tid=8605)
التكامل بين بيئة الدلفي والمكون WEB - Delphi4Us - 08-04-2017
السلام عليكم
في لغة برمجة اخرى كنت استخدم مكون Web على النموذج وبه برمجمة Html وكذلك Java وكنت استطيع ان استدعي اجراء في النموذج من داخل المكون WEB
او استدعي اجراء جافا سكريبت بالصفحة من داخل النموذج (Invoke Web Control)
فكيف يمكن تحقيق ذلك من بيئة الدلفي
RE: التكامل بين بيئة الدلفي والمكون WEB - Delphi4Us - 09-04-2017
وجدت طرريقة تشغيل سكريبت في الصفحة لازال البحث جاريا عن الطريقة العكسية
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;