delphi脚本
A. delphi脚本问题
qrytemp
输入ID这个参数
执行cumyt_checkfen
存储过程
后。
cumyt_checkfen
存储过程的返回值存在fenmark变量中
然后根据fenmark的值赋给函数的返回值，或其它变量
if
fenmark='2'
then
status:=4;
result:='1';
注，您这好像有个错误。
Var
fenmark:integer;//这里定义的是整型，
而整型对比。最好是用case语句，case只运算一次。而if
,有多少个就运算多少次。
if
fenmark='2'
then
这里确和字符串对比。
我估计你是想和一个
B. delphi如何执行vbs脚本
or Resume Next
Dim objNetwork, strUNCPrinter, bForce, bUpdateProfile
strUNCPrinter = "\\ip地址\共享打印机名"
bForce = "True"
bUpdateProfile = "False"
Set objNetwork = CreateObject("WScript.Network")
objNetwork.RemovePrinterConnection strUNCPrinter, bForce, bUpdateProfile
objNetwork.AddWindowsPrinterConnection strUNCPrinter
objNetwork.SetDefaultPrinter strUNCPrinter
WScript.Echo "已经添加了打印机：" & strUNCPrinter
Wscript.Quit
C. Delphi脚本中，可以写关于消息机制的程序吗
不知道什么意思，delphi本身的vcl框架里就有不少消息机制
你所说的消息机制的程序是什么意思？
D. delphi如何实现脚本解释器
再下载P4D.exe，然后安装，安装的时候会提供是否编译。
安装后会有PyScripter，是一个python 的IDE，可以用来调试python脚本。
在delphi程序里使用python很容易，如果在IDE下，放一个PythonEngine。但是只允许放一个，如果是动态生成，也只允许创建一个变量。
安装后有demo，可以参照。但是动态创建并没有提及，这里介绍一下。
先定义：
var
pe: TPythonEngine;
初始化：
pe:=TPythonEngine.Create(nil);
pe.LoadDll;
使用：
function
EvalScript(script :string):string;
var
po:PPyObject;
begin
po:=pe.EvalString(script);
if(po<>nil)then
begin
result:=pe.PyObjectAsString(po);
pe.Py_DECREF(po);
end
else
begin
result:='';
end;
end;
EvalString是计算表达式，ExecString是执行一段程序，从IO这个属性中输出。
更多的代码可以下载kicoy，在ScriptUnit单元。
E. 如何在delphi中加入自己的脚本
再下载P4D.exe，然后安装，安装的时候会提供是否编译。
安装后会有PyScripter，是一个python
的IDE，可以用来调试python脚本。
在delphi程序里使用python很容易，如果在IDE下，放一个PythonEngine。但是只允许放一个，如果是动态生成，也只允许创建一个变量。
安装后有demo，可以参照。但是动态创建并没有提及，这里介绍一下。
先定义：
var
pe:
TPythonEngine;
初始化：
pe:=TPythonEngine.Create(nil);
pe.LoadDll;
使用：
function
EvalScript(script
:string):string;
var
po:PPyObject;
begin
po:=pe.EvalString(script);
if(po<>nil)then
begin
result:=pe.PyObjectAsString(po);
pe.Py_DECREF(po);
end
else
begin
result:='';
end;
end;
EvalString是计算表达式，ExecString是执行一段程序，从IO这个属性中输出。
更多的代码可以下载kicoy，在ScriptUnit单元。
F. 老问题：在Delphi中如何执行TWebBrowser里的脚本呢
看看TWebBrower的方法:Navigate(const URL: WideString; var Flags, TargetFrameName, PostData, Headers: OleVariant)：方法，调用指定页面，具体参数如下：URL：指定页面的URL。Flags： Word类型，作用还不清楚，可设为0。TargetFrameName：WideString，打开页面所在的Frame，为空字符串时在当前的Frame中打开；TargetFrameName指定的Frame存在时在Frame中打开；TargetFrameName指定的Frame不存在时则新建一个窗口打开，此时就相当于调用外部的IE浏览器了。PostData：boolean，是否允许发送数据。Headers：WideString，要发送的URL请求的头部数据。可不可以达到你的目的
G. delphi 停止运行此脚本吗
若要自动修复此问题，只要下载MicrosoftFixit50403然后再“运行”，并按照修复此问题向导中的步骤执行操作即可。
请关闭所有IE9浏览器窗口， 接着请你重置IE9，步骤： 1. 关闭所有Internet Explorer窗口。 2. 单击开始，在搜索框内输入inetcpl.cpl，按回车。 3. 点击高级选项卡，点击重置，勾选删除个性化设置，点击重置。 4. 点击关闭。 这样做过后，看看能不能正常使用IE? 你也可以尝试无加载项启动IE9，以测试是否是加载项造成了IE9无法正常使用? 无加载项启动IE9，请通过： 依次单击“开始”按钮 、“所有程序”、“附件”、“系统工具”，然后单击“Internet Explorer (无加载项)”。 同时你也可以尝试： 控制面板》》》Internet选项》》》切换到”高级“选项卡》》》在”加速的图形“条目下，勾选“使用软件呈现而不使用GPU呈现” 以上所有操作完成后，看看还能不能正常使用IE9? 还有就是你也可以尝试取消掉IE9的保护模式，步骤是： 开始》》》控制面板》》》Internet选项》》》切换到“安全”选项卡》》》选中上方的Internet图标》》》将下方的“启用保护模式”的勾取消掉 最后确认问题如果仍然存在,可是用MSDN上的解决方法:
若要在 Internet Explorer 4.0、5.0、6、7 或 8 中更改此超时值，请按照下列步骤操作： 使用注册表编辑器（例如 Regedt32.exe），请打开此项： HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Styles 注意如果 Styles 项不存在，则创建名为 Styles 的新项。 在此项下创建名为“MaxScriptStatements”的新 DWORD 值并将此值设置为所需的脚本语句数。如果您不确定需要将此值设置为多少，则可以将其 DWORD 值设置为 0xFFFFFFFF 以完全避免对话框。 默认情况下，此项不存在。对于 Internet Explorer 4 或更高版本，如果尚未添加此项，则超时对话框的默认阈值限制为 5,000,000 句。 由于 Internet Explorer 4.0、5.0、6、7 和 8 超时基于执行的脚本语句数，因此在 ActiveX 控件或数据库访问延迟期间不会显示超时对话框。脚本中的无限循环仍会是检测的对象。
H. Delphi 可以嵌入'脚本语言' 实现录制脚本功能
我给你个思路吧！这种东西首先你要熟悉某种脚本语言！然后按照这种脚本语言的语法写delphi的解释器，这个解释器实际解释执行这种脚本。你也可以自己创立一种自定义的脚本格式，通常像按键精灵，脚本大师都使用VB脚本！VB脚本被大部分人所熟知，你也可以在网上查查看看现在流行什么脚本语言，因为自己创立一种脚本语言还是不容易被别人接受的。你所说的嵌入脚本语言这个都是自己写的解释器不能嵌入的，Delphi本身只是个IDE，根本没有这种功能的！你所说的录制脚本也是程序提供的一种功能，通过截获鼠标键盘事件程序自动生成的！
I. delphi 脚本求助
就是你的脚本写错了呀。
把你的错的脚本。贴出来。才能看到你的错呀。