DGL • Thema anzeigen - Wie Skript nutzen?

Wie Skript nutzen?

Moderator: DGL-Team

Seite 1 von 1

[ 5 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Angel4585

Betreff des Beitrags: Wie Skript nutzen?

Verfasst: So Okt 22, 2006 13:58

DGL Member

Registriert: Di Nov 29, 2005 09:21
Beiträge: 13

Hallo,

ich möchte folgendes realisieren:

ich habe in meinem Programm zum beispiel folgende Klasse:

Code:

 
TCreateEvent = procedure of Object;
 
TRobot = class(TObject)
  private
    FOnCreate : TCreateEvent;
  public
    RobotColor : TColor;
    procedure OnCreate;
  end;
 

jetzt möchte ich in einem Skript eine neue Klasse von der aus dem Programm ableiten, also so:

Code:

 
TMyRobot = class(TRobot)
  public
    procedure DoSomething;
    procedure OnCreate;override;
  end;
 
 
procedure TMyRobot.OnCreate;
begin
RobotColor := clRed;
DoSomething;
end;
 
procedure TMyRobot.DoSomething;
begin
//Irgendwas tun
end;
 

jetzt möchte ich im Programm das skript laden und wenn eine Klasse die von TRobot abgeleitet ist, in diesem Fall TMyRobot, ein Objekt von TMyRobot erstellen und dessen Funktionen usw. ausführen.

Kennt jemand Komponenten mit denen das schon möglich ist, bzw. weis jemand wie/ob ich das selbst machen kann?

Also die Klasse aus dem Skript soll natürlich noch mehr können, nur dass das Prinzip klar ist.

Also hat da jemand einen Tipp für mich?

Nach oben

TAK2004

Betreff des Beitrags:

Verfasst: Mo Okt 23, 2006 18:33

DGL Member

Registriert: Di Mai 18, 2004 16:45
Beiträge: 2623
Wohnort: Berlin
Programmiersprache: Go, C/C++

Ich hab sowas für Lua realisiert und es ist auch noch nicht perfekt.
Im Repo von X-Dream kannst du die Unit XD_ScriptSystem.pas finden.
Wenn du was selber machen willst, kann ich dir auch erklären wie du sowas realisieren kannst.

_________________
"Wer die Freiheit aufgibt um Sicherheit zu gewinnen, der wird am Ende beides verlieren"
Benjamin Franklin

Projekte: https://github.com/tak2004

Nach oben

The-Winner

Betreff des Beitrags:

Verfasst: Mo Okt 23, 2006 21:53

DGL Member

Registriert: Di Jun 06, 2006 09:59
Beiträge: 474

Also skripte kannst du mit DelphiWebScript2 implementieren, aber so einfach wie du dir das vorstellst geht das ganze mit kaum einer Skriptsprache.

Nach oben

TAK2004

Betreff des Beitrags:

Verfasst: Di Okt 24, 2006 08:01

DGL Member

Registriert: Di Mai 18, 2004 16:45
Beiträge: 2623
Wohnort: Berlin
Programmiersprache: Go, C/C++

In X-Dream mit Lua und meiner Unit funktioniert es so.
Sourcecode

Code:

type
  TXD_GUI_Widget_Button=class(TXD_LUAClass)
    private
      LuaFncNameMBDown: String;
      fColor:cardinal;
      procedure setLuaFncNameMBDown(newstr:String);
    published
      property OnMouseDown:string Read LuaFncNameMBDown     Write setLuaFncNameMBDown;
      property Color:Cardinal read fcolor write fcolor;
  end;
 
implementation
 
procedure TXD_GUI_Widget_Button.setLuaFncNameMBDown(newstr:String);
begin
  OnMouseBtnDown_:=GUIMouseBtnDown;
  LuaFncNameMBDown:=newstr;
end;

Luacode

Code:

function MBtnDown(btn,x,y)
  print(x)
  return 0
end;
 
function main()
  GUI.LoadFromXMLFile('gui.xml')
  b1=GUI.GetWidget('Btn1')
  b1.OnMouseDown='MBtnDown'
  b1.Color=9
  return 0
end;

_________________
"Wer die Freiheit aufgibt um Sicherheit zu gewinnen, der wird am Ende beides verlieren"
Benjamin Franklin

Projekte: https://github.com/tak2004

Nach oben

Angel4585

Betreff des Beitrags:

Verfasst: Di Okt 24, 2006 17:21

DGL Member

Registriert: Di Nov 29, 2005 09:21
Beiträge: 13

Hat sich weitestgehend erledigt, ich nehm PascalScript von RemObjects, da kann ich das alles machen, schon getestet und funktioniert perfekt

trotzdem danke

Nach oben

Seite 1 von 1

[ 5 Beiträge ]

Foren-Übersicht » Programmierung » Allgemein

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 5 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.