Kann ich herausfinden wie groß eine Memory-Datenbank ist?

[Der schöne Günther]

Angenommen ich habe ein

Delphi-Quellcode:

TClientDataSet

oder eine

Delphi-Quellcode:

TFDMemTable

. Nur eine Tabelle, eine Feld davon ist ein Blob.

Kann ich herausfinden wieviel Hauptspeicher das DataSet jetzt gerade verschlingt?

[zagota]

Zitat:

Zitat von Der schöne Günther (Beitrag 1342252)

Angenommen ich habe ein

Delphi-Quellcode:

TClientDataSet

oder eine

Delphi-Quellcode:

TFDMemTable

. Nur eine Tabelle, eine Feld davon ist ein Blob.

Kann ich herausfinden wieviel Hauptspeicher das DataSet jetzt gerade verschlingt?

RecLen := VarArrayHighBound(ClientDataSet.Data, 1);
ist ein Versuch wert...

[Der schöne Günther]

Ja, ein

Delphi-Quellcode:

TClientDataSet

hat sogar die Eigenschaft

Delphi-Quellcode:

DataSize

:

Zitat:

Gibt an, wie viele Bytes für die Eigenschaft Data benötigt werden.

Sie können DataSize auslesen, um die Anzahl der Bytes zu ermitteln, die zum Speichern der Daten einer Client-Datenmenge benötigt werden

Genau das habe ich gesucht. Jetzt suche ich das nur noch für eine

Delphi-Quellcode:

TFDMemTable

aus FireDAC...

[MichaelT]

Suchst du RecordSize ?

Zitat:

Zitat von Der schöne Günther (Beitrag 1343114)

Ja, ein

Delphi-Quellcode:

TClientDataSet

hat sogar die Eigenschaft

Delphi-Quellcode:

DataSize

:

Zitat:

Gibt an, wie viele Bytes für die Eigenschaft Data benötigt werden.

Sie können DataSize auslesen, um die Anzahl der Bytes zu ermitteln, die zum Speichern der Daten einer Client-Datenmenge benötigt werden

Genau das habe ich gesucht. Jetzt suche ich das nur noch für eine

Delphi-Quellcode:

TFDMemTable

aus FireDAC...

[Der schöne Günther]

Delphi-Quellcode:

RecordSize

liest sich gut, aber die

Delphi-Quellcode:

FDMemTable

gibt trotzdem immer das gleiche zurück, egal wie viele Megabytes ich in ein Blob-Feld gestopft habe. Das ClientDataSet gibt einen Wert zurück der sehr plausibel erscheint.

[himitsu]

RecordSize ist die Größe des Records, also alle Felder mit statischer (Maximal)Länge ... inkl. der VARCHARs usw.
Blobs sind darin nur als "Pointer" enthalten und deren Daten liegen "außerhalb". (beim TClientDataSet z.B. in je einem TData-Objekt)

[Der schöne Günther]

Ich sehe nur dass mir ein

Delphi-Quellcode:

TClientDataSet

richtig genau sagen kann wieviel Platz es im RAM belegt, eine

Delphi-Quellcode:

TFDMemTable

kann so etwas selbstverständliches anscheinend nicht.

Vielleicht schreibe ich die FireDAC-Leute auch mal an, das kann ja an sich nicht so schwer sein...

[himitsu]

Nein, kann ClientDataSet auch nicht vollständig.

Man kann (RecordSize * RecordCount) + (TBlobField().Size jedes einzelnen BlobFeldes) rechnen,
bzw. TField.DataSize + (if is TBlobField then add TBlobField().Size) jedes einzelnen Feldes.

Und dazu kommt dann noch jeweils der Offset der Speicherverwaltung.
siehe getmem.inc > SmallBlockTypes ... Standardmäßig: jeder kleine Speicherblock bis 2608 Bytes wird auf jene Größen aufgerundet,
Mittelgroße Blöcke bis 258KB werden auf 256 Bytes aufgerundet und große Blöcke auf 64KB (Verwaltungsgröße vom Windows)

Natürlich wäre es schöner, wenn Embarcadero eine virtuelle Property/Methode im TDataSet einführt, für "Speicherverbrauch", welches dann auch von FireDAC und Sonstigem entsprechend implementiert würde.
Oder zumindestens wenn die Memory-DataSets sowas hätten. (oder ganz geil gleich direkt in TObjekt, so daß man sowas standardisiert jeder Komponente fragen könnte ... bei TPersistent könnte man eventuell serialisieren und dessen Größe nehmen, aber das muß nicht mit dem RAM-Verbrauch übereinstimmen, wie z.B. gespeichert als ANSI/UTF-8 und im RAM als Unicode)

[Der schöne Günther]

Zitat:

Zitat von himitsu (Beitrag 1343552)

TPersistent könnte man eventuell serialisieren und dessen Größe nehmen

Das könnte man sicher auch irgendwie für ein TDataSet speziell machen, oder Dinge wie

Delphi-Quellcode:

SaveToStream

bei FireDac, aber das kann ja auch nur eine Notlösung sein: "Speichere mal bitte alles in einen Stream zu dem ich dann schaue wie groß er ist weil du mir nicht sagen willst wieviel es ist". 8-)

Ich glaube es ist Zeit für einen Eintrag im Quality Portal als FeatureRequest...