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 腳本求助
就是你的腳本寫錯了呀。
把你的錯的腳本。貼出來。才能看到你的錯呀。