Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Array in Stream abspeichern (https://www.delphipraxis.net/119555-array-stream-abspeichern.html)

Jeff93 28. Aug 2008 08:00


Array in Stream abspeichern
 
Hallo DPler,

habe eine Frage zu Streams in Bezug auf Arrays. Für ein Projekt möchte ich ein dynamisches Array indem sich Records befinden abspeichern. Nun möchte ich aber anders vorgehen als bisher. Momentan wird das dynamisches Array meiner Funktion übergeben, diese arbeitet mit einer for-Schleife das Array durch. Nun, soweit ich Streams verstanden habe werden die Daten einfach abgespeichert unabhängig vom DateiTyp, stimmt das? Ich dachte deshalb, man könne vielleicht einfach die Länge des Arrays abspeichern, und dann den ganzen Inhalt reinschreiben, irgendwie in der Art
Delphi-Quellcode:
fs.WriteBuffer(Laenge, SizeOf(Laenge));
fs.WriteBuffer(DynArr, SizeOf(RecOfArr)*Laenge);
Klappt aber nichts so richtig kann mir jemand ein bitte Schema anfertigen wie man da vorgeht, es geht auch anders, aber ich wills auf diesem Weg versuchen.

Habe schon nach was passendem gesucht aber nichts gefunden, Hier, werden Records einzeln abgpeichert.

Mfg, Jeff93

Xeres 28. Aug 2008 08:16

Re: Array in Stream abspeichern
 
Schau mal hier:

Records / Arrays /(Klassen) mit dynamischen Inhalt speichern


Das hat mal sirius erstellt und damit hab ich das auch gelöst bekommen.

alzaimar 28. Aug 2008 08:20

Re: Array in Stream abspeichern
 
Wenn das Record nur einfache Datentypen und Shortstrings mit fixer Länger enhält, kannst du das so lösen:

Delphi-Quellcode:
Laenge := Length (DynArray);
fs.WriteBuffer(Laenge, SizeOf(Laenge));
fs.WriteBuffer(DynArr[Low(DynArr)], SizeOf(RecOfArr)*Laenge);
"DynArr" ist ja nur ein Zeiger auf das Array, also derefernzierst du den Zeiger, indem Du das erste Element des Arrays an WriteBuffer übergibst.

Jeff93 28. Aug 2008 10:06

Re: Array in Stream abspeichern
 
Zitat:

Zitat von alzaimar
"DynArr" ist ja nur ein Zeiger auf das Array, also derefernzierst du den Zeiger, indem Du das erste Element des Arrays an WriteBuffer übergibst.

Hab ich nicht so ganz verstanden, sry. Wird da nicht einfach das erste Element des Arrays übergeben? Kanns du das mir in einfacheren Worten erläutern?

@Xeres: Ich schau mir mal den Thread an, danke für den Link

DeddyH 28. Aug 2008 10:12

Re: Array in Stream abspeichern
 
Ein dynamisches Array ist ja quasi ein zusammenhängende "Kette" von Daten. Du musst also angeben, wo der Anfang dieser Kette und wie lang sie insgesamt ist.

Neutral General 28. Aug 2008 10:15

Re: Array in Stream abspeichern
 
Zitat:

Zitat von DeddyH
Ein dynamisches Array ist ja quasi ein zusammenhängende "Kette" von Daten. Du musst also angeben, wo der Anfang dieser Kette und wie lang sie insgesamt ist.

...und die DynArr Variable ist ein Pointer auf diese zusammenhängende Kette. "Dereferenzieren" tust du diesen Pointer eben einfach indem du aufs erste Element des Arrays zugreifst.

Xeres 28. Aug 2008 11:02

Re: Array in Stream abspeichern
 
Ich hab zu dem Thema noch einen weiteren Link. Eine weitere Klasse von sirius, mit der dies auch möglich ist:

[TCustomStore] Klasse, die sich komplett selber speichert


Diese habe ich damals aber nicht verwenden können, weil sie nicht von TRemoteable (-> Für Webservices) abgeleitet ist. Sie scheint mir aber einfacher in der Benutzung zu sein.

Jeff93 2. Sep 2008 09:29

Re: Array in Stream abspeichern
 
@Xeres: Ich glaube für mein Projektchen ist TCustomStore etwas zu übertrieben, aber es ist sicherlich eine interessante Klasse die ich mir bei Beadarf anschaun werde :thumb:

Danke für die Erkärung, das mit dem deferenzieren hat geklappt :-D

Mfg, Jeff93

Ps: sorry für die späte Antwort :(


Alle Zeitangaben in WEZ +1. Es ist jetzt 19:00 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