下面要做的工作就是通过scriptcontrol控件的addcode()来添加自定义javascript函数里。
初始化scriptcontrol组件，请参看delphi中scriptcontrol的高级应用（一）
http://blog.csdn.net/juwuyi/archive/
sc.addcode(readresourc()); //加密 words:=’这是一段用base64进行加密的文字’; //result: result:=sc.eval('base64encode(utf16to8('''+words+'''))'); //解密 result:=sc.eval('utf8to16(base64decode('''+words+'''))'); |
