Delphi Web Komut Dosyası (DWScript) bir dış denetim olayına bir komut dosyası bağla

Question

DWScript'in Delphi formundaki bir denetim için olay işleyicisi olarak bir komut dosyası yöntemi kullanmasını destekleyip desteklemediğini merak ediyorum. Örneğin, bir TButton OnClick olayını komut dosyasında mevcut bir yönteme bağlamak istiyorum.

Bunu, bir TMethod nesnesini döndüren GetProcMethod öğesini çağırarak RemObjects Delphi komut dizisi ile yapabiliyorum. Daha sonra, bir düğmenin OnClick olayına komut dosyası yöntemini atamak için SetMethodProp kullanıyorum.

procedure LinkMethod(SourceMethodName: String; Instance: TObject; ScriptMethodName: String); 
var 
    ScriptMethod: TMethod; 
begin 
    ScriptMethod := ScriptEngine.GetProcMethod(ScripMethodName); 

    SetMethodProp(Instance, SourceMethodName, ScriptMethod); 
end; 

Bunu, ihtiyacım olan diğer bazı şeyler gibi, Rem nesneleri komut dosyası motoru yerine DWScript'te yapmak istiyorum.

Answer 1

Bunun yerine RemObjects ile gitmeye karar verdim. Kullanması en kolay olanı ve ihtiyacım olanı yaptı.

Answer 2

AFAIK DWScript, elde etmeye çalıştığınız şeyi doğrudan desteklemez, ancak farklı şekilde uygulanabilir. Bazı kaynak kodları nasıl uygulayabileceğimi bildirmeye çalışacağım, ancak muhtemelen gereksinimlerinize uyarlamanız gerekecektir.

Birincisi, her komut dosyası yöntemi için ayrı olmalı biraz sarıcı sınıf bildirmek:

type 
    TDwsMethod = class 
    private 
    FDoExecute: TNotifyEvent; 
    FScriptText: string; 
    FDws: TDelphiWebScript; 
    FLastResult: string; 
    FMethod: TMethod; 
    protected 
    procedure Execute(Sender: TObject); 
    public 
    constructor Create(const AScriptText: string); virtual; 
    destructor Destroy; override; 

    property Method: TMethod read FMethod; 
    property LastResult: string read FLastResult; 
    published 
    property DoExecute: TNotifyEvent read FDoExecute write FDoExecute; 
    end; 

constructor TDwsMethod.Create(const AScriptText: string); 
begin 
    inherited Create(); 
    FDoExecute := Execute; 
    FScriptText := AScriptText; 
    FDws := TDelphiWebScript.Create(nil); 
    FMethod := GetMethodProp(Self, 'DoExecute'); 
end; 

destructor TDwsMethod.Destroy; 
begin 
    FDws.Free; 
    inherited Destroy; 
end; 

procedure TDwsMethod.Execute(Sender: TObject); 
begin 
    ShowMessage('My Method executed. Value: ' + FDws.Compile(FScriptText).Execute().Result.ToString); 
end; 

Şimdi bir yere bizim kodunda bu sınıfın bir örneğini oluşturmanız gerekir (ör formun oluşturmak durumunda):

Şimdi

procedure TMainForm.FormCreate(Sender: TObject); 
begin 
    FDWSMethod := TDwsMethod.Create('PrintLn(100);'); //in constructor we pass script text which needs to be executed 
    //now we can set form's mainclick event to our DWS method 
    SetMethodProp(Self, 'MainClick', FDWSMethod.Method); 
end; 

procedure TMainForm.FormDestroy(Sender: TObject); 
begin 
    FDWSMethod.Free; 
end; 

bizim komut derlenmiş ve yürütülür MainClick çağırır: