デルファイにスクリプト言語を埋め込む方法は何ですか

2年 ago
夏樹, 風
1 minute

Delphiでは、TDelphiWebScriptコンポーネントを使用してスクリプティング言語を埋め込むことができます。以下に、TDelphiWebScriptコンポーネントを使用してスクリプティング言語を埋め込む基本的な手順を示します。

  1. Delphiで新しいVCL Formsアプリケーションを作成する。
  2. Form上に、TButtonとTMemoを配置する。
  3. 在Uses子句中添加”dwsComp”单元。
  4. フォームの OnCreate イベントに以下のコードを追加します。
procedure TForm1.FormCreate(Sender: TObject);
begin
  // 创建一个TDWSProgram组件
  var dwscript := TDWSProgram.Create(nil);
  
  // 设置脚本语言的选项
  dwscript.Config.ScriptPaths.Add('.'); // 设置脚本搜索路径
  dwscript.Config.ScriptOptions := dwscript.Config.ScriptOptions + [soUseUnitAliases]; // 使用脚本别名
  
  // 编译脚本语言
  if dwscript.Compile('script.pas') then
  begin
    // 执行脚本
    dwscript.Execute;
    
    // 在Memo中显示脚本执行结果
    Memo1.Lines.Add(dwscript.Result.ToString);
  end
  else
  begin
    // 在Memo中显示编译错误信息
    Memo1.Lines.Add(dwscript.CompilerMessages.AsString);
  end;
end;
  1. たとえば、エンジニアリング・フォルダ内に「script.pas」という名前のテキスト・ファイルを新規作成し、スクリプト言語のコードを作成します。
begin
  Result := 'Hello, Delphi!';
end.
  1. アプリケーションを実行し、ボタンをクリックすると、スクリプト言語のコードがコンパイル、実行され、結果がメモコンポーネントに表示されます。

これは、ネイティブでスクリプト言語を埋め込む基本的な方法です。Delphi は、TMS Scripter、RemObjects Pascal Script などのより複雑なスクリプト言語のニーズに対応するために使用できる、他のいくつかのツールやコンポーネントを提供しています。

bannerAds