如何返回VBSCRIPT里面的的值?

yuejun 2003-10-17 12:02:30
用DELPHI传参数给VBSCRIPT脚本, 然后再取得返回值,

好像是用要声明一个 IDispatch 接口吧, 但我用不得。

谁有源码,给参考一下好吗?谢谢 分不够再加
...全文
102 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
nyf1220 2003-10-17
  • 打赏
  • 举报
回复
不太知道
ceocio 2003-10-17
  • 打赏
  • 举报
回复
你的vbs函数是在哪里?是用于asp么?如果是直接传参数就行了。
yuejun 2003-10-17
  • 打赏
  • 举报
回复
不是ASP ,


比如我在脚本里面实现了对某个文件名的修改,然后我要把这个文件名称返回给DELPHI程序中继续调用。

这是脚本的主过程,DELPHI 程序在某一时刻,就调用这个脚本。我把很多参数传给了脚本, 因为我要用脚本来实现各种各样的业务逻辑

Sub main(tpath,qTempPath,qTpath, qFileName,relatExt)
Dim str
str = DelLastSeparate(qTpath,"\")

if not fso.FolderExists(str) then
'msgbox "not net "
if left(str,2) = "\\" then
str = right(str,len(str)-2)
call CreateNetDir(str)
else
call createdir(str)
end if
end if
'msgbox "qtempPath" & qtempPath
fso.CopyFile qTempPath,qTpath, true
if relatExt <> "" then
call processRelatFile(qTemppath,qTpath,relatExt)
End if
End Sub


// main 里面的函数, 如果有修改的话,我想返回到DELPHI里面继续使用
//DELPHI 里面是这样调用的,但是不能返回脚本里面的修改值
function runscript:boolean;
var
vse : variant;
...

begin
VSE := CreateOleObject('MSScriptControl.ScriptControl');
...
Result :=not vse.run(main,tpath,qTempPath,qTpath,qFileName,relatExt);
end;

//RUN的参数是这样的:
//vse.run(Const procedureName:widestring; var Parameters:pSafeArray):OLEVariant;

我用不来啊
dickeybird888 2003-10-17
  • 打赏
  • 举报
回复
来学习一下
(·¥·)
小乖 2003-10-17
  • 打赏
  • 举报
回复
浏览器控件好像可以跟网页(vbscript)传递参数
JosunScript 脚本组件是一个采用ATL技术编写的高效稳定的脚本解析器。 能让你的CS模式程序(Vc、VB、Delphi、BC等)轻松解析VbScript,JavaScript脚本语言。 大大增强你的程序逻辑处理的灵活性和程序的交互能力,轻松实现从BS系统提供的页面接口获取数据信息。 最大程度实现程序功能的免编译(只要修改脚本文件即可),为你的用户提供“热插拔”式的升级。 尤其适合于各种流程化的程序设计(工作流函数的操作、呼叫中心系统IVR流程化的设计等等)。 本控件使用简便,开发者可根据本文档提供的例子根据自己的实际需求在例子上稍作修改即可。 主要的功能有: 1.加载脚本文件 2.获取脚本中的函数列表 3.获取脚本中的全局变量列表 4.按变量名称 设置、获取 脚本文件里的全局变量 5.直接执行 文本、变量 中设置的脚本代码 6.能获取文本脚本执行结束后脚本里面的变量返回返回给调用者,实现脚本技术与其他语言技术的交互. 7.按列表返回的函数、过程名称执行相应的函数、过程。自定义入口参数,并返回执行结果给调用者,实现脚本技术与其他语言技术的交互. 8.实现远程、本地 xml文件的解析,免去在程序内部编写复杂的xml操作类,尤其是像VB这样的程序, 可以大大节约开发时间(本压缩包内的VB的例子就是最典型最简单的解析xml的例子)。 9.可以利用xmlhttp实现asp、jsp等页面的数据的存取解析,轻松访问第三方的数据 10.利用强大的VBScript脚本技术可以实现数据库接口,轻松将程序中的变量写入第三方的数据库中 如果您正在被流程设计中繁杂的逻辑判断、为第三方提供数据接口而烦恼,如果你想在您的产品中嵌入 功能强大、高度灵活的脚本功能增强您的产品的竞争力,JosunScript控件可以助您一臂之力。

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧