Virtual Treeview 5.0 - Unsupported 16bit resource in file

[Perlsau]

Ich habe jetzt einfach so lange aus der History frühere DFM-Dateien zurückkopiert, bis der zweite Fehler verschwunden war. Der erste Fehler tritt nun auch nicht mehr auf. Pffffff ... das ist ja noch mal gutgegangen

[Perlsau]

Zitat von Perlsau:

Pffffff ... das ist ja noch mal gutgegangen

Zu früh gefreut ... Jetzt kommt schon im Projekt-Quelltext ein Fehler:

Code:

Im Projekt ... ist eine Exception der Klasse EReadError mit der Meldung 'Ungültiger Eigenschaftswert' aufgetreten.

Ausgelöst wird er hier:

Application.CreateForm(TFormCode, FormCode); Behoben hab ich diesen Fehler, indem ich – wie anfangs geahnt – die VST-Komponente neu aufs Form gepflanzt und alle benötigten Einstellungen wieder hergestellt habe.

Doch damit der Friede noch nicht wieder hergestellt. Nun hab ich einen Laufzeitfehler:

Im Projekt PCH_PROCODE.exe ist eine Exception der Klasse EAssertionFailed mit der Meldung 'NodeDataSize not initialized. (D:\Programme\Coding\RAD Studio\6.0\lib\Virtual Treeview\Source\VirtualTrees.pas, Zeile 29472)' aufgetreten.

Ausgelöst wird die Exception beim Versuch, das erste Mal GetData aufzurufen:

Delphi-Quellcode:

procedure TFormCode.Einlesen_Sprachen;
VAR
   Data       : PNodeData;
   Node       : PVirtualNode;
   Anzahl,
   Index      : Integer;
   Sprache    : String;
   Expandiert : Boolean;

begin
     DatMod.Dset_Sprache.First;

     VST.Clear;
     VST.BeginUpdate;

     WHILE NOT DatMod.Dset_Sprache.Eof DO
     BEGIN
          Index              := DatMod.Dset_Sprache.FieldByName('IDX_CODESPRACHE').AsInteger;
          Anzahl             := DatMod.Dset_Sprache.FieldByName('ANZAHL_CODE').AsInteger;
          Sprache            := DatMod.Dset_Sprache.FieldByName('SPRACHE').AsString;
          Expandiert         := DatMod.Dset_Sprache.FieldByName('EXPANDIERT').AsBoolean;

          Node               := VST.AddChild(VST.RootNode);
          Data               := VST.GetNodeData(Node);            // hier knallt's
          Data.Index         := Index;
          Data.Eltern        := 0;
          Data.Titel         := Sprache;
          Data.Anzahl        := Anzahl;

          VST.Expanded[Node] := Expandiert;

          DatMod.Dset_Sprache.Next;
     END;

     VST.EndUpdate;
end;

Dabei hab ich an meinen NodeDatasizes gar nichts verändert:

Delphi-Quellcode:

unit UnitCode;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, ... ;

TYPE
    PNodeData = ^TNodeData;
    TNodeData = RECORD
                 Titel   : String;
                 Eltern  : Integer;
                 Index   : Integer;
                 Anzahl  : Integer;
                END;

CONST
    SizeNodeData = SizeOf(TNodeData);

Ebenso wenig wie an denn beiden entsprechenden Proceduren

Delphi-Quellcode:

procedure TFormCode.VSTGetNodeDataSize(Sender: TBaseVirtualTree; var NodeDataSize: Integer);
begin
     NodeDataSize := SizeNodeData;
end;

procedure TFormCode.VSTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
                               Column: TColumnIndex; TextType: TVSTTextType; var CellText: string);
VAR
   Data : PNodeData;

begin
     Data := Sender.GetNodeData(Node);

     CASE Column OF
     0 : CellText := Data.Titel;
     1 : IF Data.Anzahl > 0                   THEN
            CellText := IntToStr(Data.Anzahl) ELSE
            CellText := '';
     END;
end;

[Perlsau]

Achja, ich glaub, ich mach gleich mal beim Thread übers Altwerden mit

Kein Wunder, daß diese Fehlermeldung kam, hatte ich doch komplett übersehen, die Ereignisse im "neuen" VST wieder einzutragen.

Nachdem ich das nachgeholt hab, funktioniert wieder alles

[hoika]

Hallo,

die Meldung "unsupported 16-Bit-Ressource" kommt übrigens,
wenn man ein altes DFM (im Binärformat) vor sich hat.


Heiko

[Daniel]

Zitat von hoika:

[...] die Meldung "unsupported 16-Bit-Ressource" kommt übrigens, wenn man ein altes DFM (im Binärformat) vor sich hat.

Da muss es aber noch irgendeine Randbedingung geben. Ich habe es eben mit XE2 getestet und wenn ich eine binäre .DFM-Datei habe sowie die zugehörige .PAS-Datei habe, dann kann Delphi problemlos auf diesen Dateien arbeiten.

Den eingangs genannten Fehler erhalte ich meist dann, wenn die DFM-Datei nicht in Ordnung ist und - wie auch oben im Beispiel gezeigt - Werte und Eigenschaften zusammengepresst werden, die nie nimmer nicht zusammengehören und auch nicht zusammenpassen.

[himitsu]

Zitat von Daniel:

Den eingangs genannten Fehler erhalte ich meist dann, wenn die DFM-Datei nicht in Ordnung ist und - wie auch oben im Beispiel gezeigt - Werte und Eigenschaften zusammengepresst werden, die nie nimmer nicht zusammengehören und auch nicht zusammenpassen.

Also entweder die Datei ist defekt, oder bei ihm wurde eine problematische Eigenschaft gespeichert, welche bei dir nicht in der DFM steht.
Eventuell (bestimmt) wurde ja irgendwas an der neueren Version verändert, was zwischen den Versionen nicht mehr kompatibel ist.

PS: Das gab es auch beim notmalen TreeView, wenn man dort im FormDesigner Einträge/Items erzeugt hatte, wo sich z.B. bei der Unicodeumstellung die binäre Entspechung der Strings veränderte.

[Perlsau]

Zitat von himitsu:

Also entweder die Datei ist defekt, oder bei ihm wurde eine problematische Eigenschaft gespeichert, welche bei dir nicht in der DFM steht. Eventuell (bestimmt) wurde ja irgendwas an der neueren Version verändert, was zwischen den Versionen nicht mehr kompatibel ist.

Das glaube ich auch: die neue Version ist wohl nicht ganz kompatibel mit der alten. Seltsamerweise funktionieren andere Projekte mit VST ohne Probleme.

Zitat von himitsu:

PS: Das gab es auch beim notmalen TreeView, wenn man dort im FormDesigner Einträge/Items erzeugt hatte, wo sich z.B. bei der Unicodeumstellung die binäre Entspechung der Strings veränderte.

Du meinst beim Delphi-Treeview? Das hab ich noch nie verwendet ...

[Perlsau]

Zitat von hoika:

Hallo, die Meldung "unsupported 16-Bit-Ressource" kommt übrigens,
wenn man ein altes DFM (im Binärformat) vor sich hat. Heiko

Wenn du mit "alt" sowas wie Delphi 2009 meinst, dann habe ich alte DFM-Dateien ... Das Projekt, an dem ich arbeite, ist neu: es wurde am 22.06.2012 von mir begonnen.

Vielmehr denke ich, daß das neue VirtualTreeView mit den alten Komponenten nicht arbeiten kann. Seltsamerweise habe ich hier noch ein Projekt, ungefähr einen Monat älter, das nach dem Update auf VST 5.0 keine Schwierigkeiten machte ...

Egal, jetzt muß ich weiterarbeiten ...