แอปพลิเคชันขั้นสูงของ ScriptControl ใน Delphi (i)

ระบบ Windows ของเรามีส่วนประกอบ OCX ที่เรียกว่า ScriptControl ซึ่งเราสามารถใช้เพื่อตระหนักถึงโลกที่ยอดเยี่ยมของการเล่าเรื่องสคริปต์

1. สร้างบริการ Component ScriptControl

ก่อนอื่นมาดูวิธีการและคุณสมบัติที่องค์ประกอบนี้มี ดังที่แสดงในรูป 001, 002 รูป 001 รูป 002

ต่อไปเราใช้ Delphi เพื่อสร้างบริการส่วนประกอบ จากรูป 001 จะเห็นได้ว่า progid ของส่วนประกอบนี้คือ "msscriptcontrol.scriptcontrol" .1” - ดังนั้นเราสามารถสร้างส่วนประกอบเช่นนี้: var sc: levariant; เริ่มต้น sc: = createOleobject ('msscriptcontrol.scriptcontrol.1'); // ใช้คุณสมบัติภาษาเพื่อตั้งค่าภาษาที่ใช้โดยส่วนประกอบ // ภาษาสามารถ: vbscript, javascript (สามารถย่อเป็น jscript) // เทียบเท่ากับ <script language = 'jscript'> ใช้ใน html ... </scipt> sc.language: = 'JavaScript'; สิ้นสุด;

2. ใช้ evaler () เพื่อใช้การคำนวณการแสดงออกทางคณิตศาสตร์ที่ง่ายที่สุด

Evals () เป็นวิธีที่ใช้กันมากที่สุดในองค์ประกอบนี้และเป็นวิธีที่ผู้คนมักใช้ในการคำนวณการแสดงออกทางคณิตศาสตร์ ฟังก์ชั่นการสาธิต (นิพจน์ const: สตริง): จำนวนเต็ม; 3 ' SC: = CreateOleBject ('MSScriptControl.ScriptControl.1'); * 3 ' -

3. ใช้การเข้ารหัสอักขระจีน

มีสองฟังก์ชั่นใน JavaScript, Escape และ Unsescape ซึ่งโดยทั่วไปใช้เป็นการเข้ารหัสสำหรับสคริปต์ในรหัส HTML รูปที่ 003 การเข้ารหัส: คำ: = 'นี่คือข้อมูลตัวละครจีนที่เข้ารหัสด้วย Escape! '; // ผล:%u8fd9%u 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, สคริปต์: สตริง; เริ่มต้น // ip 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);} '; (สคริปต์); ; end; ------------------------ Joecom （Juwuyi) 2005-03-19