Forum: Object-Pascal / Delphi-Language
Delphi
by geskill,
31. Dez 2009
ups, da hatte ich mir wohl ein Eigentor geschossen, ein paar Zeilen später im Code hatte ich ein clear Befehl, der alle hinzugefügten Objekte wieder gelöscht hat.
Somit geht es soweit. Habe mir die Komponenten jetzt gekauft.
Falls irgendwann jemand einen Lösungsansatz braucht:
function TTemplateParser.GetProp(Instance: TObject; ClassType: TClass; const PropName: String): Variant;
begin
...
Forum: Object-Pascal / Delphi-Language
Delphi
by geskill,
30. Dez 2009
Aber egal wie ich es drehe:
Programm kommt nicht mal in GetProp :(
function TTemplateParser.GetProp(Instance: TObject; ClassType: TClass; const PropName: String): Variant;
begin
Result := 0;
if PropName = 'MirrorCount' then
Result := IMirrorController(Instance as TMirrorController).MirrorCount;
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by geskill,
30. Dez 2009
Das ist soweit ja möglich. Aber wenn man jetzt im Script ist und der Anwender schreibt so was:
ScriptVariable.Test_1;
Dann dafür müsste man ja FastScript diese Befehle übergeben:
#
with AddClass(TApplicationImpl, 'TApplicationImpl') do
begin
AddMethod('procedure Test_1', CallMethod);
Forum: Object-Pascal / Delphi-Language
Delphi
by geskill,
29. Dez 2009
Dieses Objekt von dem du sprichst verwende ich im ganzen Programm nicht. (Hoffe ich weiß was du meinst)
Ums ein bisschen zu verdeutlichen:
Also die Instanz von TApplicationImpl merke ich mir nur als Inteface.
var
IProgrammVariable: IApplication;
procedure Erstellen;
begin
Forum: Object-Pascal / Delphi-Language
Delphi
by geskill,
29. Dez 2009
Hallo,
genau, dass mit dem AddClass kann man ja so machen, jedoch wenn man dann die Instanz vom laufenden Programm dem Script übergeben will weiß ich nicht weiter:
IProgrammVariable ist jetzt in dem Beispiel vom Typ IApplication.
AddObject('ScriptVariable',IProgrammVariable);
Geht nicht, da etwas von "TObject" erwartet wird :(
Forum: Object-Pascal / Delphi-Language
Delphi
by geskill,
29. Dez 2009
Hallo,
kurz vorweg, ich bin gerade am Testen dieser Komponente, eigentlich gefällt sie mir ganz gut, da der Hersteller auch ein Rabatt für seine Komponenten übers neue Jahr gibt, wäre es ein guter Kaufgrund.
Leider, aber auch verständlich da gerade Feiertage, sind ist in dem Support Forum nicht viel los.
Mein Problem besteht darin, dass ich im Programm einige Interfaces habe, die ich auch...