Aplicación avanzada de ScriptControl en Delphi (i)

Nuestro sistema de Windows proporciona un componente OCX llamado ScriptControl, que podemos usar para realizar el maravilloso mundo de la narración de guiones.

1. Crear servicio de componentes de scriptControl

Primero, echemos un vistazo a los métodos y propiedades que tiene este componente. Como se muestra en la Figura 001, 002. Figura 001 Figura 002

A continuación, usamos Delphi para crear servicios de componentes. De la Figura 001, se puede ver que el progid de este componente es "msscriptcontrol.scriptcontrol". .1 " . Por lo tanto, podemos crear un componente como este: var sc: oleVariant; begin sc: = createOleObject ('msscriptControl.scriptControl.1'); // Use la propiedad del idioma para establecer el idioma utilizado por el componente // El idioma puede ser: VBScript, JavaScript (también se puede abreviar como jscript) // equivalente a <script language = 'jscript'> utilizado en html ... </scipt> sc.language: = 'javaScript'; end;

2. Use eval () para implementar el cálculo de expresión matemática más simple

Eval () es el método más utilizado en este componente, y también es un método que las personas usan a menudo para calcular expresiones matemáticas. Función de demostración Calc (Const Expression: String): Integer; 3 ' ; * 3 ' );

3. Implementar el cifrado de personajes chinos

Hay dos funciones en JavaScript, Escape y Unescape, que generalmente se usan como cifrado para el script en el código HTML es evitar que otros vean directamente sus scripts y los muestren en su forma confusa. Figura 003 Cifrado: Palabras: = '¡Esta es una pieza de información de personajes chino encriptada con Escape! '; /Resultado:%u8fd9% 662F %U4E00%U6BB5%U7528cape%u 52a 0%U5BC6%U7684%u 6c 49%U5B57%U4FE1%U 606f %Uff01 resultado: = sc.eval ('escapar (' '+palabras+' '') ');

4. Utilice expresiones regulares de JavaScript para verificar la especificación de las direcciones IP

Aquí necesitamos usar el método AddCode de ScriptControl para agregar métodos personalizados. Las reglas para las direcciones IP son de 0.0.0 .0-255.255.255.255.255. El siguiente es el código para verificar la dirección IP: var idict, script: string; begin // ip regular 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 Función personalizada Script: = 'Function ipreg (str) {'+ 'var re = new Regexp (' '+ ipreg+' ''); '+' return re.test (str);} '; (script); / /ejecutar función si sc.eval ('ipreg (' '+edit1.text+' '') ') luego showMessage (' Formato de dirección IP correcto! ') ; fin; ---------------------------- Joecom （Juwuyi） 2005-03-19