Funktionen mit PascalScript auslagern

[Codewalker]

Ich würde gerne einige Funktionen in Skripte auslagern, damit man diese ohne Neukompilierung verändern kann. Die Funktionen haben feste Namen und feste Parameter (Anzahl und Typ). Das ganze würde ich gerne mit PascalScript umsetzen. Hat jemand einen Ansatz oder eine Idee, wie man das realisieren könnte?

[Wolfgang Mix]

Was spricht denn gegen eine unit?

[Phoenix]

Wo hakt es denn?
Weisst Du nicht, wie man eine Methode aus einem Script aufruft?

Hier ist ein kleiner Artikel der die Grundsätze eigentlich ziemlich klar macht.

[Daniela.S]

Ich habe gerade Pascal Script in ein Projekt implementiert. Funktioniert sehr gut, allerdings sieht es mit einer Hilfe bzw. Anleitung recht mager aus. Hier findest du einen Ansatz. Beim Download sind auch einige Beispiele dabei. Da kannst du sicher eines als Basis nehmen.

Kompliziert ist es dann erst geworden als ich eigene Klassen eingebunden habe. Hab's aber nach einer Weile hinbekommen...


liebe Grüße,
Daniela

[Phoenix]

Zitat:

Zitat von Daniela.S

allerdings sieht es mit einer Hilfe bzw. Anleitung recht mager aus.

Dem ist leider tatsächlich so :oops:.
Allerdings gibt es auch in den Diskussionsgruppen (news.remobjects.com) recht guten Support.

[Wolfgang Mix]

Zitat:

Zitat von Daniela.S

Kompliziert ist es dann erst geworden als ich eigene Klassen eingebunden habe. Hab's aber nach einer Weile hinbekommen...

Es wäre nett, wenn du der Gemeinde dazu ein Beispiel zeigen könntest.

Gruss aus dem kalten Norden

Wolfgang

[Codewalker]

Zitat:

Zitat von Phoenix

Wo hakt es denn?
Weisst Du nicht, wie man eine Methode aus einem Script aufruft?

Hier ist ein kleiner Artikel der die Grundsätze eigentlich ziemlich klar macht.

Wie ich eine Methode/Funktion aufrufe ist mir prinzipiell klar, aber das Skript muss ja dafür "laufen". Bisher rufe ich Compile, dann Execute auf und wollte dann mit ExecuteFunction eine Funktion ausführen. Problem ist, dass das Skript dann schon zu Ende gelaufen ist. BeispielSkript:

Delphi-Quellcode:

function SagWas: String;
begin
 Result := 'Test';
end;

[DeddyH]

Was soll denn da passieren?

[Wolfgang Mix]

Das ist doch kein Script, das ist eine simpelste Funktion!

[Daniela.S]

@Wolfgang
Mach ich gerne, kann's aber erst am Montag, wenn ich wieder in der Arbeit bin, posten. Hab mir die Arbeit dieses Wochenende mal nicht mit nach Hause genommen :P

[Codewalker]

Zitat:

Zitat von Wolfgang Mix

Das ist doch kein Script, das ist eine simpelste Funktion!

Ist ja nur ein Beispiel. Das soll quasi im Skript stehen und ich will aus meinem Programm diese Funktion aufrufen können und das Ergebnis erhalten. Das muss doch gehen...

[Daniela.S]

Steht auf der Seite, die wir vorhin verlinkt haben, gaaanz unten.


The component version of Pascal Script also supports execution of scripted functions. This works by using the ExecuteFunction method.

Delphi-Quellcode:

ShowMessage(CompExec.ExecuteFunction([1234.5678, 4321,
                                      'test'],
                                     'TestFunction'));

This will execute the function called 'TestFunction' with 3 parameters, a float, an integer and a string. The result will be passed back to ShowMessage.


In deinem Fall vielleicht so...

Delphi-Quellcode:

Ergebnis := CompExec.ExecuteFunction([],'SagWas'));

[Wolfgang Mix]

Zitat:

Zitat von Daniela.S

@Wolfgang
Mach ich gerne, kann's aber erst am Montag, wenn ich wieder in der Arbeit bin, posten. Hab mir die Arbeit dieses Wochenende mal nicht mit nach Hause genommen :P

Das wäre lieb von Dir

Schönes Wochenende


Wolfgang

[Codewalker]

Das ganze mit ExecuteFunction funktioniert. Das Problem lag woanders: Da in meiner Unit kein begin...end. - Block war, konnte er die Funktion nicht aufrufen. In den Compiler-Optionen muss icAllowNoBegin und icAllowNoEnd gesetzt sein oder der Block eingefügt werden, so dass das Skript dann so aussieht:

Delphi-Quellcode:

function TuWas(): String;
begin
 Result := 'Was';
end;

// Und jetzt der leere Block
begin

end.

[Daniela.S]

Hallo,

wie versprochen hier noch ein Beispiel wie ich eigene Objekte, die auf keine Vorgängerklasse basieren, importiert habe.

Delphi-Quellcode:

procedure TmyObjectValue_Read(Self: TmyObject; var value: string);
begin 
  value := Self.MyValue; 
end;

procedure TmyObjectValue_Write(Self: TmyObject; const value: string);
begin 
  Self.MyValue := value; 
end;

procedure RIRegisterMyObjects(Cl: TPSRuntimeClassImporter);
begin
  with Cl.Add( TmyObject ) do begin
    RegisterPropertyHelper( @TmyObjectValue_Read, @TmyObjectValue_Write, 'MyValue' );
    end;
end;