تطبيق متقدم لـ ScriptControl في Delphi (I)

يوفر نظام Windows الخاص بنا مكونًا OCX يسمى ScriptControl ، والذي يمكننا استخدامه لتحقيق العالم الرائع لرواية القصص السينمائية.

1. إنشاء خدمة مكون ScriptControl

أولاً ، دعونا نلقي نظرة على الأساليب والخصائص التي يمتلكها هذا المكون. كما هو مبين في الشكل 001 ، 002. الشكل 001 الشكل 002

بعد ذلك ، نستخدم Delphi لإنشاء خدمات مكون. من الشكل 001 ، يمكن ملاحظة أن progid لهذا المكون هو "msscriptControl.scriptControl". .1 " . حتى نتمكن من إنشاء مكون مثل هذا: var sc: olvariant ؛ ابدأ SC: = createOleBject ('msscriptControl.scriptControl.1') ؛ // استخدم خاصية اللغة لتعيين اللغة المستخدمة بواسطة المكون // يمكن أن تكون اللغة: vbscript ، javaScript (يمكن أيضًا اختصارها على أنها JScript) // تعادل <script language = 'jscript'> المستخدمة في html ... </scipt> sc.language: = 'javaScript' ؛ end ؛

2. استخدم eval () لتنفيذ أبسط حساب التعبير الرياضي

Eval () هي الطريقة الأكثر استخدامًا في هذا المكون ، وهي أيضًا طريقة يستخدمها الأشخاص في كثير من الأحيان لحساب التعبيرات الرياضية. CALS CASS (تعبير const: integer ؛ 3 '' ؛ * 3 '' ) ؛

3. تنفيذ تشفير الأحرف الصينية

هناك وظيفتان في JavaScript و Escape و Unescape ، والتي تستخدم عمومًا كتشفير للنص في رمز HTML. الشكل 003 تشفير: الكلمات: = 'هذا جزء من معلومات الأحرف الصينية مشفرة بالهروب! '؛ 662F ٪ u4e00 ٪ u6bb5 ٪ u7528escape ٪ u 52A 0 ٪ U5BC6 ٪ U7684 ٪ u 6C 49 ٪ U5B57 ٪ U4FE1 ٪ u 606F ٪ uff01 النتيجة: = sc.eval ('Escape (' '+Words+' '') ') ؛

4. استخدم تعبيرات JavaScript العادية للتحقق من مواصفات عناوين IP

نحتاج هنا إلى استخدام طريقة AddCode لـ ScriptControl لإضافة طرق مخصصة. قواعد عناوين IP من 0.0.0 .0-255.255.255.255.255. ما يلي هو الرمز للتحقق من عنوان IP: var idict ، script: string ؛ begin // IP idict idict: = '^([01]؟ [0-9] [0-9] | [01]؟ [0 -9]؟ [0-9] | 2 [0-4] [0-9] | 25 [0-5]) /.'+ '([01]؟ [0-9] [0-9] | [01]؟ [0-9]؟ [0-9] | 2 [0-4] [0-9] | 25 [0-5]) /.'+ '([01]؟ [0-9] [0 -9] | [01]؟ [0-9]؟ [0-9] | 2 [0-4] [0-9] | 25 [0-5]) /.'+ '([01] ؟ [0-9] [0-9] | [01]؟ [0-9]؟ [0-9] | 2 [0-4] [0-9] | 25 [0-5]) $ '؛ // JavaScript Custom Function Script: = 'function ipreg (str) {'+ 'var re = new regexp (' '+ ipreg+' '') ؛ '+' return re.test (str) ؛} '؛ (Script) ؛ ؛ End ؛ ---------------------------- Joecom （Juwuyi） 2005-03-19