巨难的题，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

首先你需要知道EncodeScriptFile返回的是什么东西，字串？数字？还是别的，如果是返回具备非常规格式的字串（比如带有负责格式符号）建议不用function，改用procedure
function screncode(s,l:string):string;
var
  idp:IDispatch;
begin
  idp=CreateOleObject("Scripting.Encoder");
  result:= idp.EncodeScriptFile("."+l+s+0+l+"cript");
end;
这个只是参考，不一定成功