{"id":294,"date":"2012-06-09T01:01:10","date_gmt":"2012-06-09T09:01:10","guid":{"rendered":"http:\/\/www.abin.cn\/?p=294"},"modified":"2012-06-09T01:01:10","modified_gmt":"2012-06-09T09:01:10","slug":"%e4%b8%badelphi%e7%a8%8b%e5%ba%8f%e6%b7%bb%e5%8a%a0%e8%84%9a%e6%9c%ac%e5%8a%9f%e8%83%bd%ef%bc%8c%e7%94%a8%e8%84%9a%e6%9c%ac%e6%8e%a7%e5%88%b6delphi%e7%a8%8b%e5%ba%8fzt","status":"publish","type":"post","link":"https:\/\/www.abin.cn\/?p=294","title":{"rendered":"\u4e3adelphi\u7a0b\u5e8f\u6dfb\u52a0\u811a\u672c\u529f\u80fd\uff0c\u7528\u811a\u672c\u63a7\u5236delphi\u7a0b\u5e8f[zt]"},"content":{"rendered":"<p>\u4f7f\u7528\u5fae\u8f6f\u7684ActiveX Scripting\u6280\u672f\uff0c\u53ef\u4ee5\u5728\u5e94\u7528\u7a0b\u5e8f\u4e2d\u96c6\u6210\u4f7f\u7528vbscript\u6216\u8fd9javascript\u811a\u672c\u8bed\u8a00\u3002<\/p>\n<p>\u5728delphi\u4e2d\u70b9\u51fbComponent\u83dc\u5355\u7684Import Activex Contol&#8230;.\u83dc\u5355\uff0c\u9009\u62e9Microsoft Script Control\u5e76\u6dfb\u52a0\uff0c\u7136\u540e\u628a\u8fd9\u4e2a\u63a7\u4ef6\u653e\u7f6e\u5728form\u4e0a\uff0c\u5c31\u53ef\u4ee5\u4f7f\u7528\u811a\u672c\u4e86\u3002<\/p>\n<p>\u4e5f\u53ef\u4ee5\u4f7f\u7528CreateOleObject(&#8216;MSScriptControl.ScriptControl.1&#8217;)\u521b\u5efa\u3002<\/p>\n<p>\u5982\u4f55\u4f7f\u7528\u811a\u672c\u64cd\u4f5c\u5e94\u7528\u7a0b\u5e8f\u5462\uff1f\u5f88\u7b80\u5355\uff0c\u5728delphi\u4e2d\u521b\u5efa\u4e00\u4e2aAutomation object\u7c7b\uff0c\u901a\u8fc7\u8fd9\u4e2a\u7c7b\u5904\u7406\u7a0b\u5e8f\u4e2d\u7684\u5bf9\u8c61\u3002\u7136\u540e\u521b\u5efa\u4e00\u4e2aAutomation object\u7c7b\u7684\u5b9e\u4f8b\uff0c\u4f20\u9012\u7ed9Scriptcontrol\u5c31\u53ef\u4ee5\u4e86\u3002\uff08\u70b9\u51fb File | New menu, \u9009\u62e9ActiveX \u9875\u7684 Automation Object wizard\u3002\uff09<\/p>\n<p>ScriptControl1.SitehWnd := Self.Handle;<\/p>\n<p>FAutoObject := TExposingObjectsDemo.Create;<br \/>\nScriptControl1.AddObject(&#8216;DemoObject&#8217;, FAutoObject, True);<\/p>\n<p>\u5728\u811a\u672c\u4e2d\u901a\u8fc7DemoObject\u8bbf\u95eeFAutoObject\u5bf9\u8c61\uff0c\u901a\u8fc7FAutoObject\u5b9e\u73b0\u64cd\u4f5c\u5e94\u7528\u7a0b\u5e8f\u7684\u6bcd\u7684\u3002<\/p>\n<p>\u3000\u3000ScriptControl \u5bf9\u652f\u6301 ActiveX(TM) Script \u7684\u5bbf\u4e3b Script \u5f15\u64ce\u63d0\u4f9b\u7b80\u5355\u63a5\u53e3\u3002\u63a5\u4e0b\u6765\u6211\u4eec\u5bf9\u88ab\u8f6c\u5316\u6210ScriptControlClass\u7c7b\u7684ScriptControl\u7684\u5c5e\u6027\u548c\u65b9\u6cd5\u8fdb\u884c\u4e00\u4e9b\u8bf4\u660e\u3002<\/p>\n<p>\u5c5e\u6027<\/p>\n<p>\u3000\u3000AllowUI \u5c5e\u6027\uff1a\u5e94\u7528\u4e8e ScriptControl \u672c\u8eab\u6216 Scirpt \u5f15\u64ce\u663e\u793a\u7684\u7528\u6237\u754c\u9762\u5143\u7d20\uff0c\u53ef\u8bfb\u5199\u3002<\/p>\n<p>\u3000\u3000CodeObject \u5c5e\u6027\uff1a\u8fd4\u56de\u5bf9\u8c61\uff0c\u8be5\u5bf9\u8c61\u7528\u4e8e\u8c03\u7528\u6307\u5b9a\u6a21\u5757\u7684\u516c\u7528\u6210\u5458\u3002\u53ea\u8bfb\u3002<\/p>\n<p>\u3000\u3000Error \u5c5e\u6027\uff1a\u8fd4\u56de Error \u5bf9\u8c61\uff0c\u5176\u4e2d\u5305\u542b\u6240\u53d1\u751f\u7684\u6700\u540e\u4e00\u4e2a\u9519\u8bef\u7684\u76f8\u5173\u8be6\u7ec6\u4fe1\u606f\u3002\u53ea\u8bfb\u3002<\/p>\n<p>\u3000\u3000Language \u5c5e\u6027\uff1a\u8bbe\u7f6e\u6216\u8fd4\u56de\u6b63\u5728\u4f7f\u7528\u7684 Script \u8bed\u8a00\u540d\u79f0\u3002\u53ef\u8bfb\u5199\u3002<\/p>\n<p>\u3000\u3000Modules \u5c5e\u6027\uff1a\u4e3a ScriptControl \u5bf9\u8c61\u8fd4\u56de\u6a21\u5757\u96c6\u5408\u3002\u53ea\u8bfb\u3002<\/p>\n<p>\u3000\u3000Procedures \u5c5e\u6027\uff1a\u8fd4\u56de\u5728\u6307\u5b9a\u6a21\u5757\u4e2d\u5b9a\u4e49\u7684\u8fc7\u7a0b\u96c6\u5408\u3002\u53ea\u8bfb\u3002<\/p>\n<p>\u3000\u3000SitehWnd \u5c5e\u6027\uff1a\u8bbe\u7f6e\u6216\u8fd4\u56de\u7a97\u53e3\u7684 hWnd\uff0c\u901a\u8fc7\u6267\u884c Script \u4ee3\u7801\uff0c\u6b64\u7a97\u53e3\u7528\u4e8e\u663e\u793a\u5bf9\u8bdd\u6846\u548c\u5176\u4ed6\u7528\u6237\u754c\u9762\u5143\u7d20\u3002\u53ef\u8bfb\u5199\u3002<\/p>\n<p>\u3000\u3000State \u5c5e\u6027\uff1a\u8bbe\u7f6e\u6216\u8fd4\u56de ScriptControl \u5bf9\u8c61\u7684\u6a21\u5f0f\u3002\u53ef\u8bfb\u5199\u3002<\/p>\n<p>\u3000\u3000Timeout \u5c5e\u6027\uff1a\u8bbe\u7f6e\u6216\u8fd4\u56de\u65f6\u95f4\uff08\u6beb\u79d2\uff09\uff0c\u6b64\u65f6\u95f4\u540e\u7528\u6237\u53ef\u9009\u62e9\u4e2d\u6b62 Script \u4ee3\u7801\u7684\u6267\u884c\u6216\u5141\u8bb8\u4ee3\u7801\u7ee7\u7eed\u6267\u884c\u3002\u53ef\u8bfb\u5199\u3002<\/p>\n<p>\u3000\u3000UseSafeSubset \u5c5e\u6027\uff1a\u8bbe\u7f6e\u6216\u8fd4\u56de Boolean \u503c\uff0c\u6307\u660e\u5bbf\u4e3b\u5e94\u7528\u7a0b\u5e8f\u662f\u5426\u6709\u4fdd\u5bc6\u6027\u8981\u6c42\u3002\u5982\u679c\u5bbf\u4e3b\u5e94\u7528\u7a0b\u5e8f\u9700\u8981\u5b89\u5168\u63a7\u5236\uff0c\u5219 UseSafeSubset \u4e3a True\uff0c\u5426\u5219\u4e3a False\u3002\u53ef\u8bfb\u5199\u3002<\/p>\n<p>\u65b9\u6cd5<\/p>\n<p>AddCode \u65b9\u6cd5\uff1a\u5411\u6a21\u5757\u6dfb\u52a0\u6307\u5b9a\u4ee3\u7801\u3002\u53ef\u591a\u6b21\u8c03\u7528 AddCode \u65b9\u6cd5\u3002<\/p>\n<p>AddObject \u65b9\u6cd5\uff1a\u4f7f\u4e3b\u673a\u5bf9\u8c61\u6a21\u578b\u5bf9 Script \u5f15\u64ce\u53ef\u7528\u3002<\/p>\n<p>Eval \u65b9\u6cd5\uff1a\u8ba1\u7b97\u8868\u8fbe\u5f0f\u5e76\u8fd4\u56de\u7ed3\u679c\u3002<\/p>\n<p>ExecuteStatement \u65b9\u6cd5\uff1a\u6267\u884c\u6307\u5b9a\u7684\u8bed\u53e5\u3002<\/p>\n<p>Reset \u65b9\u6cd5\uff1a\u653e\u5f03\u6240\u6709\u5df2\u7ecf\u6dfb\u52a0\u5230 ScriptControl \u4e2d\u7684 Script \u4ee3\u7801\u548c\u5bf9\u8c61\u3002<\/p>\n<p>Run \u65b9\u6cd5\uff1a\u8fd0\u884c\u6307\u5b9a\u8fc7\u7a0b\u3002<\/p>\n<p>\u4e8b\u4ef6<\/p>\n<p>Error \u4e8b\u4ef6\uff1a\u51fa\u73b0\u8fd0\u884c\u65f6\u9519\u8bef\u65f6\uff0c\u53d1\u751f\u6b64\u4e8b\u4ef6\u3002<\/p>\n<p>Timeout \u4e8b\u4ef6\uff1a\u5f53\u8d85\u51fa\u4e86 Timeout \u5c5e\u6027\u6307\u5b9a\u7684\u65f6\u95f4\u4e14\u7528\u6237\u5728\u7ed3\u679c\u5bf9\u8bdd\u6846\u4e2d\u9009\u5b9a\u4e86 End \u65f6\uff0c\u53d1\u751f\u6b64\u4e8b\u4ef6\u3002<\/p>\n<p>\u8865\u5145\u51e0\u70b9<\/p>\n<p>\u3000\u3000AllowUI \u5c5e\u6027\u5982\u679c\u8bbe\u7f6e\u4e3afalse\uff0c\u5219\u663e\u793a\u5bf9\u8bdd\u6846\u4e4b\u7c7b\u7684\u8bed\u53e5\u4e0d\u8d77\u4f5c\u7528\uff0c\u5982\u5728 VBScript \u4e2dMsgBox \u8bed\u53e5\uff0cJavaScript\u4e2d\u7684alert\u7b49\uff0c\u5e76\u4e14\u5982\u679c\u6267\u884c\u7684\u811a\u672c\u8d85\u51faTimeOut\u8bbe\u7f6e\u7684\u6beb\u79d2\u6570\uff0c\u4e5f\u4e0d\u4f1a\u8df3\u51fa\u8d85\u51fa\u65f6\u95f4\u63d0\u9192\u7684\u5bf9\u8bdd\u6846\uff0c\u53cd\u4e4b\u5219\u76f8\u53cd\uff1b\u91cd\u65b0\u8bbe\u7f6e Language \u5c5e\u6027\u4f1a\u6e05\u7a7aAddCode\u52a0\u8f7d\u7684\u4ee3\u7801\uff1b\u5bf9\u4e8eTimeOut\u5c5e\u6027\uff0c\u53d1\u751f\u8d85\u65f6\u65f6\uff0cScriptControl \u68c0\u67e5\u5bf9\u8c61\u7684 AllowUI \u5c5e\u6027\uff0c\u786e\u5b9a\u662f\u5426\u5141\u8bb8\u663e\u793a\u7528\u6237\u754c\u9762\u5143\u7d20\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u4f7f\u7528\u5fae\u8f6f\u7684ActiveX Scripting\u6280\u672f\uff0c\u53ef\u4ee5\u5728\u5e94\u7528\u7a0b\u5e8f\u4e2d\u96c6\u6210\u4f7f\u7528vbscript\u6216\u8fd9javascri [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[6],"tags":[],"_links":{"self":[{"href":"https:\/\/www.abin.cn\/index.php?rest_route=\/wp\/v2\/posts\/294"}],"collection":[{"href":"https:\/\/www.abin.cn\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.abin.cn\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.abin.cn\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.abin.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=294"}],"version-history":[{"count":0,"href":"https:\/\/www.abin.cn\/index.php?rest_route=\/wp\/v2\/posts\/294\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.abin.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=294"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.abin.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=294"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.abin.cn\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=294"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}