巨难的题，javascript 转 Delphi ，分不够可以开贴再加。

Question

function screncode(s,l)
{enc=new ActiveXObject("Scripting.Encoder");
return enc.EncodeScriptFile("."+l,s,0,l+"cript");
}===========
上面是一段javascript 调用ActiveX 进行Encode的代码，不知道那位大虾可以把它转到delphi中来。
可能是调用了jscript.dll 进行加密的。 谢谢。

Answer 1

没做过，不过在delphi中引入ActiveX控件"scripting.encoder"（或许名字不一样，比如前面加microsoft 等什么字样），然后在delphi中调用它应该也行吧。祝楼主成功！

Answer 2

in project menu import type library item

Answer 3

uses  ComObjfunction screncde(s, l : variant) : variant;
var
  Obj: Variant;
begin
        Obj := CreateOleObject('Scripting.Encoder');
        result := obj.EncodeScriptFile('.'+l,s,0,l+'cript');
        Obj := nil;
end;

Answer 4

myevin(Licky ZHANG) 说的就是对的，不过在CreateOleObject之前要注册组件，否则提示没有注册类。

Answer 5

呵呵，谢谢myevin(Licky ZHANG) 了。
来这领分
http://community.csdn.net/Expert/topic/3671/3671635.xml?temp=.2282526