如何在沒有TWebBrowser的情況下在我的Delphi程序中執行Javascript？

我正在使用一個使用Javascript接口發出請求的Web API，而響應是通過一個回調Javascript函數。有沒有一種方法可以在不使用TWebBrowser組件的情況下調用Delphi的Javascript代碼？如何在沒有TWebBrowser的情況下在我的Delphi程序中執行Javascript？

來源

2010-12-12 Salvador

您可以隨時在Windows機器上運行cscript.exe。

優點：

它是適用於所有默認的Windows自Windows 98
它的死很容易安裝。
沒有第三方的Delphi組件需要。
沒有DLL的包裝需要，所以部署很簡單。

缺點：

你會產生新的進程。在Web服務器上啓動cscript.exe會感覺不對。我不確定安全含義是什麼。
您無法直接訪問腳本引擎的內部。

示例程序（它只是一個證明的概念。有可能是更好的方式來做到這一點）：

program JsExample;  
{$APPTYPE CONSOLE} 

uses Windows, IoUtils; 

// start a new process 
function RunProgram(const aProg, aParams: string; aHow2Show: Word; const aWaitTime: dword): boolean; 
var LProcInfo: TProcessInformation; LStartUpInfo: TStartupInfo; 
begin 
    FillChar(LStartUpInfo, SizeOf(TStartupInfo), #0); FillChar(LProcInfo, SizeOf(TProcessInformation), #0); 
    with LStartUpInfo do 
    begin 
    cb := SizeOf(LStartUpInfo); 
    lpReserved := nil; lpDesktop := nil; lpTitle := nil; lpReserved2 := nil; cbReserved2 := 0; 
    dwFlags := STARTF_USESHOWWINDOW; 
    wShowWindow := aHow2Show; 
    end; 
    Result := CreateProcess(nil, PChar(aProg + ' ' + aParams), nil, nil, false, CREATE_NEW_PROCESS_GROUP + NORMAL_PRIORITY_CLASS, nil, nil, LStartUpInfo, LProcInfo); 
    if Result then 
    Result := WaitForSingleObject(LProcInfo.hProcess, aWaitTime) <> WAIT_FAILED; 
end; 

// run javascript code 
procedure RunJs(const aJavaScript: String); 
var LTmpFileName: String; 
begin 
    LTmpFileName := TPath.ChangeExtension(TPath.GetTempFileName, '.js'); 
    try 
    TFile.WriteAllText(LTmpFileName, aJavaScript); 
    RunProgram('cscript', '/NOLOGO "' + LTmpFileName + '"', SW_SHOWNORMAL, INFINITE); 
    finally 
    TFile.Delete(LTmpFileName); 
    end; 
end; 



// main 
begin 

    // execute some stupid javascript sample code 
    RunJs 
    (
    'var Text="Hello from JavaScript!";' + // creating a js variable 
    'for(var i=0;i<Text.length;i++)' +  // creating a js looop 
    ' WScript.Echo(Text.charAt(i));'  // calling string.charAt() and print some stuff 
); 

    ReadLn;  
end.

這個方法很簡單..編寫JavaScript到一個文件，然後用文件名作爲參數調用cscript.exe。

來源

2010-12-14 04:11:33