4. Integerwerte über Pointer an Integervariable zuweisen.

Integerwerte über Pointer an Integervariable zuweisen.

  • D

    Das wurde vom Compiler erstellt, als ich das zugehörige Package für die Komponente installiert habe. Das is von BCB selber und nicht von mir.

    0
  • W

    Wie jetzt? Ist das ein Funktionsparameter? Oder was? Wo steht die Deklaration?

    0
  • D

    Hier, stammt aus dem VirtualTree von Mike Lischke. Ist die Deklaration für den OnGetImage-Event des Baumes. Wird vom Compiler so erzeugt.

    void __fastcall Tappoptionen::servermodulesGetImageIndex(
      TBaseVirtualTree *Sender, PVirtualNode Node, TVTImageKind Kind,
      TColumnIndex Column, bool &Ghosted, int &ImageIndex)

    Da kann ich nix rausnehmen.

    0
  • W

    So, und was willst du mit der Funktion machen? Willst du sie aufrufen? Oder wie jetzt? Deine Infos sind zu mager!

    0
  • D

    O.K.,

    also, der TreeView bietet die Möglichkeit, jeder Node ein eigenes Dataset zuzuweisen. Die Struktur meines Datasets sieht vereinfacht so aus:

    AnsiString beschriftung;
    int* DataP; (im speziellen Fall hier Pointer auf ein Icon)

    Das eigentlich Icon bekomme ich aus einer anderen Klasse, in der variablen DataP soll nur der Pointer darauf gespeichert werden (der Pointer funktioniert, habe ich schon getestet).

    Nun möchte ich den Wert des Icons über den Pointer DataP innerhalb der Routine der Variablen ImageIndex zuweisen, damit mir das richtige Icon zu jeder Node des Baumes angezeigt werden kann.

    Und das will net funzen. Die Struktur sieht deshalb so aus, da ich nicht nur Icons mit dem Pointer aus dem Speicher holen kann sondern auch andere Werte. Das ist aber im Moment Nebensache. Mir gehts hier nur um die Zuweisung des Icons an ImageIndex über DataP.

    Gruß

    Udo

    [ Dieser Beitrag wurde am 10.01.2003 um 01:20 Uhr von Darkheart editiert. ]

    0
  • W

    So, jetzt reicht's. 😉 Zeig doch einfach mal ein wenig Code.

    0
  • D

    O.K.,

    aber wirklich nur ein klein wenig 😃 Will ja schliesslich nicht, daß jemand von meinem genialen Brain partizipiert *LOL* (kleiner Scherz am Rande)

    Hier ist die Routine, die dem Baum Nodes zuweist:

    void __fastcall Tappoptionen::comserversClick(TObject *Sender)
{
if (comservers->FocusedNode)
        {
        server->SaveEvents();
        }

TServer* data;
TVirtualNode* node;
TVirtualNode* mnode;
TVirtualNode* mmethod;
TVirtualNode* setting;
TServermodule* module;
TPropertyData* nodedata;

TRegistry* regeintraege = new TRegistry(KEY_ALL_ACCESS);

servermodules->NodeDataSize = sizeof(TPropertyData);

node = comservers->FocusedNode;
data = (TServer*)comservers->GetNodeData(node);

if (!node) {return;}

servermodules->Clear();

regeintraege->RootKey = HKEY_CURRENT_USER;
regeintraege->OpenKey("ERGE-Formelsammlung", false);
regeintraege->OpenKey("COMServers", false);
regeintraege->OpenKey(data->clsid, false);
server->SetServer(mainwindow->appreg->serverpath + data->name);
regeintraege->CloseKey();

if (server->Count == 0) {exit;}

for  (int i=0; i<server->Count; i++)
        {
        module = (TServermodule*)server->Items[i];
        mnode = servermodules->AddChild(NULL);
        mnode->NodeHeight = 30;
        nodedata = (TPropertyData*)servermodules->GetNodeData(mnode);
        servermodules->ValidateNode(mnode, false);
        nodedata->Value = module->name;
        //nodedata->Value1 = "";
        nodedata->PropertyTyp = ptNone;
        nodedata->Data = &module->clsidString;
        TList* methods;
        methods = module->events;
        TServermoduleevent* entry;

        for (int a=0; a<methods->Count; a++)
                {
                mmethod = servermodules->AddChild(mnode);
                nodedata = (TPropertyData*)servermodules->GetNodeData(mmethod);
                servermodules->ValidateNode(mmethod,false);
                methods = module->events;
                entry = (TServermoduleevent*)methods->Items[a];
                nodedata->Value = "Ereignis: ";
                //nodedata->Value1 = "";
                nodedata->PropertyTyp = ptNone;
                nodedata->Data = &entry->name;

                //Icon setzen
                setting = servermodules->AddChild(mmethod);
                nodedata = (TPropertyData*)servermodules->GetNodeData(setting);
                servermodules->ValidateNode(setting,false);
                nodedata->Value = "Icon: ";
                //nodedata->Value1 = IntToStr(entry->icon);
                nodedata->PropertyTyp = ptIcon;
                nodedata->Data = &entry->icon;

                //Menues setzen
                setting = servermodules->AddChild(mmethod);
                nodedata = (TPropertyData*)servermodules->GetNodeData(setting);
                servermodules->ValidateNode(setting,false);
                nodedata->Value = "Wird angezeigt in: ";
                //nodedata->Value1 = IntToStr(entry->toolbar);
                nodedata->PropertyTyp = ptToolbar;
                nodedata->Data = &entry->toolbar;

                // Verwendung 
                setting = servermodules->AddChild(mmethod);
                nodedata = (TPropertyData*)servermodules->GetNodeData(setting);
                servermodules->ValidateNode(setting,false);
                nodedata->Value = "Sichtbar: ";
                //nodedata->Value1 = IntToStr(entry->show);
                nodedata->PropertyTyp = ptShow;
                nodedata->Data = &entry->show;
                }
        }
}

    Im o.g. Code will ich die Variable nodedata->Value1 einsparen (aus Speichergründen). Hier nun die Funktion, die jeder Node ein Bildchen zuweist:

    void __fastcall Tappoptionen::servermodulesGetImageIndex(
      TBaseVirtualTree *Sender, PVirtualNode Node, TVTImageKind Kind,
      TColumnIndex Column, bool &Ghosted, int &ImageIndex)
{
TPropertyData* Data;

if ((Kind == ikNormal) || (Kind == ikSelected))
        {
        Data =(TPropertyData*)servermodules->GetNodeData(Node);
        if ((Column == 0) && (Data->PropertyTyp == ptNone) && (Sender->GetNodeLevel(Node) == 0)){ImageIndex = 31; }       // Modul
        if ((Column == 0) && (Data->PropertyTyp == ptNone) && (Sender->GetNodeLevel(Node) == 1)){ImageIndex = 32; }       // Event

        if ((Column == 0) && (Data->PropertyTyp == ptToolbar) && (Sender->GetNodeLevel(Node) == 2)){ImageIndex = 33;}

        if ((Column == 0) && (Data->PropertyTyp == ptIcon) && (Sender->GetNodeLevel(Node) == 2)){ImageIndex = 33; }      // Setting
        if ((Column == 0) && (Data->PropertyTyp == ptShow) && (Sender->GetNodeLevel(Node) == 2)){ImageIndex = 33; }

        if ((Column == 1) && (Data->PropertyTyp == ptIcon) && (Sender->GetNodeLevel(Node) == 2) ){
        Data = (TPropertyData*)servermodules->GetNodeData(Node);
        int *CNodeData = (int*)Data->Data;
        ImageIndex = *CNodeData; } // Current-Icon Modul
        }
        else
                {ImageIndex = -1;}
}

    Auf meiner Form befinden sich zwei Trees comservers und servermodules. Klickt der User in comservers auf eine Node (die steht für jeweils einen Com-Server), dann werden in servermodules die enthaltenen Servermodule bzw. Coclassen und deren zugehörige Events angezeigt. Während in servermodules die Nodes erstellt werden, tritt o.g. GetImageIndex-Event auf und man hat die Möglichkeit, jeder Node eines oder mehrer Icons hinzuzufügen. Den Code, den Du hier siehst, stellt im Prinzip schon die Lösung für mein Prob dar (habe ich grade erst entwickelt, nachdem ich diesen Threat erstellt hatte). Aber in der if-Schleife

    if ((Column == 1) && (Data->PropertyTyp == ptIcon) && (Sender->GetNodeLevel(Node) == 2) ){
        Data = (TPropertyData*)servermodules->GetNodeData(Node);
        int *CNodeData = (int*)Data->Data;
        ImageIndex = *CNodeData; } // Current-Icon Modul
        }

    ist mir das Zuweisen bloß gelungen, weil ich Data->Data erst zum Integerpointer CNodeData gecastet habe und dann diesen erst dem ImageIndex zuweise. Gibts hier keine direktere Möglichkeit evtl. so

    ImageIndex = *Data->Data

    Die Struktur von Data sieht folgendermaßen aus:

    typedef struct {
   TPropertyTyp    PropertyTyp;
   TVirtualNode*   Node;
   WideString      Value;
   //WideString      Value1;
   bool            Changed;
   void*           Data;
} TPropertyData, *lpPropertyData;

    Hier ist zwar Value1 noch enthalten, soll aber später eben komplett wegfallen. Das ganze möchte ich eben aus reinen Speichergründen ein wenig reduzieren.

    Wäre super, wenn Du mir helfen könntest. Wenn Du mehr Code brauchst, dann schick ich Dir den gern auch nochmal per Mail zu. Das ganze Ding hier zu posten wäre nämlich zuviel. Danke jedoch schon mal vorab für Deine Hilfe.

    Gruß Udo 🕶

    [ Dieser Beitrag wurde am 10.01.2003 um 03:00 Uhr von Darkheart editiert. ]

    0
  • E

    Das war zu viel Code... die Struktur hätte gereicht. 😉

    Guck dir nochmal WebFritzis Beispiel an, wie man von einem Zeiger(TPropertyData::Data ist ja ein zeiger) nach int castet.

    0
  • W

    Oh man, es hätte wirklich gereicht, wenn du 2 Zeilen gepostet hättest. Und zwar diese hier:

    int *CNodeData = (int*)Data->Data;
ImageIndex = *CNodeData;

    So, und wie du dir auch selber denken kannst, geht das auch in einer Zeile:

    ImageIndex = *(int*)Data->Data;

    Das Casten muss aber sein. Im Übrigen hatte ich das Prinzip oben schon lange gepostet. Wenn du schlau gewesen wärst, hättest du dir meinen Beitrag besser durchgesehen.

    0
  • D

    Sorry,

    hatte ich echt übersehen, aber danke für Euere Hilfe!

    Gruß

    Udo

    0
  • D

    Jetzt muß ich Euch mit dem Thema leider trotzdem nochmal belästigen. Wie sieht das dann bei Klassen aus. Hier ein Beispiel:

    In einer Klasse mit dem Namen Item wird ein Pointer auf einen Klasse Katitem abgelegt (alles beide eigene Klassendefinitionen von mir).

    Item->DataP = &Katitem;

    Wie kann ich jetzt später diesen Pointer wieder auslesen und auf die Struktur bzw. die Daten von Katitem zugreifen?

    Folgender Versuch

    Tkatitem *tmpKatitem = (Tkatitem*)Item->DataP;

    und der danach folgende Zugriff auf die Elemente von *tmpKatitem(Katitem) mit z.B.

    tmpKatitem->Name

    Bringt mir leere Werte. Warum? Normalerweise sollte doch der Pointer in Item-DataP lt. o.g Code in einen Pointer auf ein Tkatitem gecastet und dann tmpKatitem zugewiesen werden oder?

    Danke
    Udo

    0
  • W

    Du machst hier alles richtig. Entweder ist Katiitem leer oder du setzt Item->DataP irgendwann wieder auf eine leere Tkatiitem-Struktur.

    0
  • J

    Lokale Variablen werden am Ende des Blocks (Teil zwischen {}) in dem sie erstellt werden zerstört. Entsprechend wird der Zeiger damit auch ungültig.

    Die Tatsache dass du den & Operator benötigt hast lässt mich vermuten du hast da den Wert einer lokalen Variablen zugewiesen und hast einfach Glück gehabt, dass es keine AccessVoilation gibt.

    -junix

    0
  • ?

    Ab welcher BCB-Version ist Tkatiitem dabei?

    0
  • J

    Original erstellt von <Kleiner Feiglich>:
    Ab welcher BCB-Version ist Tkatiitem dabei?

    Gar keiner. Wird eine eigene Klasse oder eine Struktur sein (: Sowas kann man mit C/C++ auch als Datentyp verwenden (-;

    -junix

    0
  • W

    Original erstellt von junix:
    Die Tatsache dass du den & Operator benötigt hast lässt mich vermuten du hast da den Wert einer lokalen Variablen zugewiesen und hast einfach Glück gehabt, dass es keine AccessVoilation gibt.

    Aua, ich Idiot. Das hätte mir auffallen müssen. 😉

    0
  • ?

    Achso ist das. Danke. Das mit dem T vor dem Klasse/Datentyp hat mich so verwirrt. Sorry. 😃

    0
  • D

    Junge, junge soviel Antworten habe ich nicht erwartet.

    WebFritzi hatte recht, Tkatitem wurde nicht richtig initialisiert, da ich die Initialisierungsroutine überladen hatte und ausgerechnet die falsche Version der Funktion verwendet wurde.

    Junix, die Variablen sind Teil von Tkatitem sprich Tkatitem ist wie folgt aufgebaut:

    class Tkatitem
        {
        public:
                AnsiString name;
                AnsiString iconnect;
                GUID iguid;
                TList* events;
        }

    Hier müßten doch dann die Variablen im Speicher erhalten bleiben, wenn ich die Klasse nicht freigebe oder ?

    Mittlerweile krieg ich auch was auf dem Bildschirm angezeigt, wenn ich

    tmKatitem->name

    z.B. einem Editfeld zuweise. Allerdings sind das im Moment leider noch irgendwelchen unidentifizierbaren Hieroglyphen, obwoh dort eigentlich der Name stehen sollte. Weiß hier jemand, womit das zusammenhängt?

    <KleinerFeiglich> sorry, ist ne eigene Klasse in meinem Programm und dient nur zu programminternen Geschichten.

    Gruß

    Udo

    0
  • W

    z.B. einem Editfeld zuweise. Allerdings sind das im Moment leider noch irgendwelchen unidentifizierbaren Hieroglyphen, obwoh dort eigentlich der Name stehen sollte. Weiß hier jemand, womit das zusammenhängt?

    Schau dir nochmal in Ruhe junix' Post an, bevor du weiterfragst... Oder noch besser: schau dir in einem C++-Tutorial ein Kapitel über Pointer an.

    [ Dieser Beitrag wurde am 13.01.2003 um 00:53 Uhr von WebFritzi editiert. ]

    0
  • J

    ...und, udo, Schau mal in der FAQ den Beitrag "Public-Variablen sind Böse aber wieso?" an den du im FAQ-Index unter "Allgemeines" findest.

    -junix

    0
Anmelden zum Antworten