Application avancée de ScriptControl dans Delphi (I)
Notre système Windows fournit un composant OCX appelé ScriptControl, que nous pouvons utiliser pour réaliser le monde merveilleux de la narration de script.
1. Créer un service de composant ScriptControl
Tout d'abord, examinons les méthodes et les propriétés de ce composant. Comme le montre la figure 001, 002.
Figure 001
Figure 002
Ensuite, nous utilisons Delphi pour créer des services de composants. À partir de la figure 001, on peut voir que le progrise de ce composant est "msscriptControl.scriptControl". .1 " . Ainsi, nous pouvons créer un composant comme celui-ci: var sc: olevariant; begin sc: = CreateoMObject ('MSScriptControl.scriptControl.1'); // Utilisez la propriété linguistique pour définir la langue utilisée par le composant // La langue peut être: VBScript, JavaScript (peut également être abrégé en tant que jscript) // équivalent à <script linguisse = 'jscript'> utilisé dans html ... </cipt> sc.language: = 'javascript'; end;
2. Utilisez eval () pour implémenter le calcul d'expression mathématique le plus simple
EVAL () est la méthode la plus couramment utilisée dans ce composant, et c'est aussi une méthode qui est souvent utilisée par les personnes pour calculer les expressions mathématiques. Fonction de démonstration Calc (const Expression: String): entier;
3 ' ; *
3 ' ));
3. Mettre en œuvre le cryptage des caractères chinois
Il y a deux fonctions dans JavaScript, Escape et UNSCAPE, qui sont généralement utilisées comme cryptage pour le script dans le code HTML.
Figure 003 Encryption: Mots: = 'Ceci est un morceau d'informations de caractère chinois cryptées par évasion! '; Résultat:% u8fd9%
662f % U4E00% U6BB5% U7528Escape% U
52a 0% U5BC6% U7684% U
6C 49% U5B57% U4FE1% U
606F % UFF01 Résultat: = sc.eval ('Escape (' '+ Words +' '') ');
4. Utilisez des expressions régulières JavaScript pour vérifier la spécification des adresses IP
Ici, nous devons utiliser la méthode AddCode de ScriptControl pour ajouter des méthodes personnalisées. Les règles pour les adresses IP proviennent
0.0.0 .0-255.255.255.255.255. Ce qui suit est le code pour vérifier l'adresse IP: var idit, script: chaîne; begin // ip régulier 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]) $ '; // Script de fonction personnalisé JavaScript: = 'fonction ipreg (str) {' + 'var re = new regexp (' '+ ipreg +' ''); '+' return re.Test (str);} '; (script); fin; ---------------------------- Joecom （Juwuyi） 2005-03-19
