AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

[RTTI] setzen von klasseneigenschaften

Ein Thema von _frank_ · begonnen am 12. Jul 2006 · letzter Beitrag vom 19. Jul 2006
Antwort Antwort
Seite 1 von 2  1 2   
Benutzerbild von _frank_
_frank_

Registriert seit: 21. Feb 2003
Ort: Plauen / Bamberg
922 Beiträge
 
Delphi 3 Professional
 
#1

[RTTI] setzen von klasseneigenschaften

  Alt 12. Jul 2006, 10:50
Hallo,
weis jemand, wie ich per rtti spezial (Klassen)-Eigenschaften setzen kann (Binär [TImage.bitmap], stringlist [TMemo.Lines],integerlist [TStringgrid.ColWidths],tcollection [TStatusbar.panels]) ?

Gruß Frank
  Mit Zitat antworten Zitat
Benutzerbild von dataspider
dataspider

Registriert seit: 9. Nov 2003
Ort: 04539 Groitzsch
1.351 Beiträge
 
Delphi 11 Alexandria
 
#2

Re: [RTTI] setzen von klasseneigenschaften

  Alt 12. Jul 2006, 12:09
Hallo Frank,

unter Uses TypInfo mit aufnehmen und dann mit SetObjectProp das Property setzen.
Allerdings muss das Property Published sein.

Cu, Frank
Frank Reim
  Mit Zitat antworten Zitat
Benutzerbild von _frank_
_frank_

Registriert seit: 21. Feb 2003
Ort: Plauen / Bamberg
922 Beiträge
 
Delphi 3 Professional
 
#3

Re: [RTTI] setzen von klasseneigenschaften

  Alt 12. Jul 2006, 12:41
getObjectProp gibt es unter D3 nicht, für normale klassen hab ich da SetOrdProp genommen, jedoch muss ja bei den oben genannten Eigenschaften so eine art Assign gemacht erden und nicht nur der pointer gesetzt werden wie das bei anderen Klassen-Eigenschaften der fall ist
hast du ein funktionierendes Beispiel (für D3)?

Gruß Frank
  Mit Zitat antworten Zitat
Hawkeye219

Registriert seit: 18. Feb 2006
Ort: Stolberg
2.227 Beiträge
 
Delphi 2010 Professional
 
#4

Re: [RTTI] setzen von klasseneigenschaften

  Alt 12. Jul 2006, 13:16
Hallo Frank,

beim Lesen von Eigenschaftswerten hat es doch mit einem TypeCast funktioniert (klick). Kannst du beim Setzen nicht einen ähnlichen Weg einschlagen?

SetOrdProp(...,Integer(Objektvariable)); Gruß Hawkeye
  Mit Zitat antworten Zitat
Benutzerbild von dataspider
dataspider

Registriert seit: 9. Nov 2003
Ort: 04539 Groitzsch
1.351 Beiträge
 
Delphi 11 Alexandria
 
#5

Re: [RTTI] setzen von klasseneigenschaften

  Alt 12. Jul 2006, 13:20
Zitat von _frank_:
getObjectProp gibt es unter D3 nicht, für normale klassen hab ich da SetOrdProp genommen, jedoch muss ja bei den oben genannten Eigenschaften so eine art Assign gemacht erden und nicht nur der pointer gesetzt werden wie das bei anderen Klassen-Eigenschaften der fall ist
hast du ein funktionierendes Beispiel (für D3)?

Gruß Frank
Sorry, ich habe kein D3.
Du kannst auch kein Assign per RTTI machen. Du kannst dir aber das Object holen und dann damit weiterarbeiten.
Kannst du mal konkret schildern, was du erreichen willst?

D7 macht bei SetObjectProp auch am Ende ein SetOrdProp:
Delphi-Quellcode:
procedure SetObjectProp(Instance: TObject; PropInfo: PPropInfo;
  Value: TObject; ValidateClass: Boolean);
begin
  if (Value = nil) or
     (not ValidateClass) or
     (Value is GetObjectPropClass(PropInfo)) then
    SetOrdProp(Instance, PropInfo, Integer(Value));
end;
Cu, Frank
Frank Reim
  Mit Zitat antworten Zitat
Benutzerbild von _frank_
_frank_

Registriert seit: 21. Feb 2003
Ort: Plauen / Bamberg
922 Beiträge
 
Delphi 3 Professional
 
#6

Re: [RTTI] setzen von klasseneigenschaften

  Alt 12. Jul 2006, 13:33
bisher hab ich bei klassenproperties nur Pointer nach integer gecasted und diese per setOrdProp gesetzt bzw. diese per getordprop ausgelesen und nach TObject gecasted.
Kurz ich habe nur mit pointern gearbeitet.
beim setzen dieser properties müssen aber die daten kopiert werden, bzw. das ursprungsobjekt freigegeben werden und mit dem vorhandenen ersetzt werden (dadurch können aber evtl. Eigenschaften verloren gehen).

Hoffe, ich hab mich verständlich ausgedrückt...

Gruß Frank
  Mit Zitat antworten Zitat
Benutzerbild von dataspider
dataspider

Registriert seit: 9. Nov 2003
Ort: 04539 Groitzsch
1.351 Beiträge
 
Delphi 11 Alexandria
 
#7

Re: [RTTI] setzen von klasseneigenschaften

  Alt 12. Jul 2006, 13:45
Also erst mal ein Beispiel, wie man eine Bitmap z.B. per RTTI lädt:

Delphi-Quellcode:
...
// nur bei Delphi < D5
function GetObjectProp(Instance: TObject; const PropName: string): TObject;

function IsPublishedProp(Instance: TObject; const PropName: string): Boolean;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  LoadBitmapPerRTTI(Image1);
end;

procedure TForm1.LoadBitmapPerRTTI(AObject: TObject);
Var
  ATmpObj: TObject;
  ABitMap: TBitMap;
begin
  ATmpObj := nil;
  ABitMap := nil;

  if IsPublishedProp(AObject, 'Picture') then
    ATmpObj := GetObjectProp(AObject, 'Picture');
  if Assigned(ATmpObj) and (ATmpObj is TPicture) then
    ABitMap := TPicture(ATmpObj).Bitmap;
  ABitMap.LoadFromFile('d:\buffer\uts1.bmp');


end;

function IsPublishedProp(Instance: TObject; const PropName: string): Boolean;
begin
  Result := GetPropInfo(Instance.ClassInfo, PropName) <> nil;
end;

function GetObjectProp(Instance: TObject; const PropName: string): TObject;
var
  PropInfo: PPropInfo;
begin
  Result := nil;
  PropInfo := TypInfo.GetPropInfo(Instance.ClassInfo, PropName);
  if (PropInfo <> nil) and (PropInfo^.PropType^.Kind = tkClass) then
    Result := TObject(GetOrdProp(Instance, PropInfo));
end;
Das Setzen von Eigenschaften wie z.B. ein Propertie vom Typ TStrings
auf eine selbsterstellte Stringliste halte ich für gefährlich.
Man sollte so etwas wirklich am konkreten Beispiel diskutieren. Da gerade die Methode Assign sehr unterschiedlich bis gar nicht implementiert ist, muss m an dann entscheiden, ob man diese benutzt oder in einer abgeleiteten Kalsse neu implementiert.

Frank
Frank Reim
  Mit Zitat antworten Zitat
Benutzerbild von _frank_
_frank_

Registriert seit: 21. Feb 2003
Ort: Plauen / Bamberg
922 Beiträge
 
Delphi 3 Professional
 
#8

Re: [RTTI] setzen von klasseneigenschaften

  Alt 12. Jul 2006, 14:14
Zitat von dataspider:
Also erst mal ein Beispiel, wie man eine Bitmap z.B. per RTTI lädt:

Delphi-Quellcode:
...
procedure TForm1.LoadBitmapPerRTTI(AObject: TObject);
Var
  ATmpObj: TObject;
  ABitMap: TBitMap;
begin
  ATmpObj := nil;
  ABitMap := nil;

  if IsPublishedProp(AObject, 'Picture') then
    ATmpObj := GetObjectProp(AObject, 'Picture');
  if Assigned(ATmpObj) and (ATmpObj is TPicture) then
    ABitMap := TPicture(ATmpObj).Bitmap;
  ABitMap.LoadFromFile('d:\buffer\uts1.bmp');


end;
du machst letztendlich auch nur reine Pointeraktionen. Holst den pointer castest den nach TPicture und weist das bitmap zu...beim setzen ist das nicht so einfach...da das Quellobjekt nicht das zielobjekt ist (bei mir).
//edit: soll das Loadfromfile nicht saveToFile heisen? weil so wäre die ganze Procedure sinnlos, da immer aus der datei gelesen würde.

aber da man eh prüfen muss, von welchem typ das ziel ist, kann man doch auch folgendes machen, oder:

Delphi-Quellcode:
...
if Assigned(ATmpObj) then
begin
  if (ATmpObj is TPicture) then
    TPicture(ATmpObj).Bitmap.assign(ABitMap) else
  if (ATmpObj is TBitmap) then
    TBitmap(ATmpObj).assign(ABitMap) else
  if (ATmpObj is TStrings) then
    TStrings(ATmpObj).assign(AStringlist) else
...
end;
...
das geht aber nicht bei t-collections...weil der grundtyp kapselt nicht die jeweiligen objecteigenschaften, daher komme ich mit assign nicht weiter.
Zitat von dataspider:
Das Setzen von Eigenschaften wie z.B. ein Propertie vom Typ TStrings
auf eine selbsterstellte Stringliste halte ich für gefährlich.
Man sollte so etwas wirklich am konkreten Beispiel diskutieren. Da gerade die Methode Assign sehr unterschiedlich bis gar nicht implementiert ist, muss m an dann entscheiden, ob man diese benutzt oder in einer abgeleiteten Kalsse neu implementiert.

Frank
bei typen wie tstrings dürfte sich nicht viel ändern, da ich zum editieren nur ein memo habe hat man da z.B. keine sondereigenschaften wie z.B. in TRichedit.

Gruß Frank
  Mit Zitat antworten Zitat
Hawkeye219

Registriert seit: 18. Feb 2006
Ort: Stolberg
2.227 Beiträge
 
Delphi 2010 Professional
 
#9

Re: [RTTI] setzen von klasseneigenschaften

  Alt 12. Jul 2006, 14:45
Frank, du mußt doch eigentlich nur eine in deinem Delphi 3 nicht vorhandene Routine "nachbauen", die Vorlage dazu hat dataspider in seinem Beitrag geliefert. In der Routine 'SetOrdProp' wird eine eventuell vorhandene Setter-Methode des übergeordneten Objekts aufgerufen, welche für das eigentliche Kopieren der Daten zuständig ist. Die Setter-Methode verfügt über alle notwendigen Informationen und kann auch das Zielobjekt freigeben, falls dies erforderlich ist. Bei den VCL-Komponenten (TMemo etc.) ist diese Funktionalität bereits implementiert.

Gruß Hawkeye
  Mit Zitat antworten Zitat
Benutzerbild von _frank_
_frank_

Registriert seit: 21. Feb 2003
Ort: Plauen / Bamberg
922 Beiträge
 
Delphi 3 Professional
 
#10

Re: [RTTI] setzen von klasseneigenschaften

  Alt 12. Jul 2006, 14:51
versteh ich dich richtig, dass setOrdProp nicht den Pointer kopiert sondern die Daten?

Gruß Frank
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:57 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz