Nutzung MemoryStream und FileStream

[shmia]

Zitat von BasilBavaria:

Somit entsteht am Ende eine feste Struktur (Memorystream.Size = 4933).
Diese wird dann in einem Filestream gespeichert. Bei 10 Einträgen stehen also 10 Datenstrukturen im Filestream

Sehr gefährlich darauf zu vertrauen, dass es immer 4933 Bytes sind.
Irgendwo ein Byte mehr oder weniger (und das ist eigentlich bei TReader/TWriter zwangsläufig so) und die gesamten Daten sind unlesbar.
Was hier fehlt ist eine Art Archivstruktur, die kein Problem damit hat, dass die Einträge unterschiedlich lang sind.

[rollstuhlfahrer]

du könntest deine Struktur noch um 4 Bytes vornedran erweitern (4 Bytes = Integer). Dieser Integer gibt dann sicherheitshalber an, wie lange dein Datensatz ist. Die Länge musst du nicht verwenden, aber kannst dich im Fehlerfall schnell zwischen den Strukturen hin und her bewegen und diese auch in verschiedene Dateien splitten. Somit wären im Fehlerfal auch nicht gleich alle Daten weg.

Zitat von BasilBavaria:

aber die Datenstruktur sieht ungefähr aus Kopf so aus:

Code:

tKarte = record
     SNr     : integer;          
     ID      : Cardinal;     
     Del     : boolean;      
     KID     : Cardinal;   
     CDate   : TDateTime;  
     L1,
     L2,
     L3,
     L4,
     L5,                    //echte Länge der Daten
     L6      : word;        //Längenfelder für 6 strings 
     Titel   : string;      //255
     Info1   : string;      //255
     Info2   : string;      //255
     DokFile : string;      //L=1024
     WWWRef  : string;      //L=1024
     Memo    : string;      //L=2048
     Termin  : TDateTime;  
     TStatus : byte;       
  end;

Autsch. Das Problem bei der Sache dürfte wohl sein, dass deine Strings wohl nicht immer die gleiche Länge haben
Ansonsten schöne Struktur. Kann man prima in eine DB speichern.

Zitat von p80286:

@Sir Rufo
für 20Kb gleich einen Feuervogel anschleppen?

Warum nicht. Dann hat die DB das Problem mit dem Speichern und die kann das. Außerdem könnten es ja mehr Daten werden.

Bernhard

[Neutral General]

Du kannst/solltest statt "String" einen "ShortString" oder einen String[X] (X = 1 bis 255) benutzen.
Wenn dir für alle Felder maximal 255 Zeichen reichen, dann ist das kein Problem und das Laden & Speichern des Records wird ein Kinderspiel!

Edit: Ich sehe grade du hast auch längere Strings. Dann kannst du alternativ Array[0..Länge-1] of (Ansi)Char benutzen! Delphi behandelt die Arrays wie PChars und deswegen kannst du damit fast so arbeiten wie mit richtigen Strings!

[rollstuhlfahrer]

Wo wir eh gerade bei Chars und AnsiChars/WideChars sind: Falls du noch Strings und Chars hast, die auf AnsiStrings und AnsiChars verweisen, ist deine Struktur spätestens nach einem Wechsel auf Delphi >= 2009 im Eimer. Also am Besten gleich WideStrings und WideChars verwenden. Dann sind die auch kompatibel und die Struktur ändert sich erst wieder mit der Einführung von UTF-32.

Bernhard

ADD: Turbo Delphi hat noch AnsiStrings und AnsiChars (sowie PAnsiChars). Wenn du in Erwägung ziehst, irgendwann mal eine neue Delphi-Version einzusetzen, würde ich empfehlen, Wide* zu verwenden, da du dann weniger Probleme hast.

[DeddyH]

Das gilt allerdings nicht für Shortstrings, diese sind AFAIK immer ANSI-kodiert.

[rollstuhlfahrer]

Zitat von DeddyH:

Das gilt allerdings nicht für Shortstrings, diese sind AFAIK immer ANSI-kodiert.

Ja, aus Gründen der Abwärtskompatibilität.

Bernhard

[DeddyH]

Na also, wenn er also in seinem Record lediglich Shortstrings ablegt, sollten die einen Wechsel zu einer aktuellen Delphi-Version auch schadlos überstehen.

[BasilBavaria]

Ich hab die Größenprüfungen eingebaut und etwas gefunden:

Die Size des Streams ändert sich anscheinend, wenn Umlaute und Sonderzeichen wie 'ß' im String enthalten sind.
Die Erweiterung des String liefert noch einen korrekten String

Code:

Writer.WriteString( StrExt(KartenSatz.Info1,true,cszInfo1) );

Beim Prüfen vor Update/Schreiben ist der Stream bei einem Umlaut um 4 Byte vergößert (4937 statt 4933) - bei zwei Umlauten aber nur auf 4938 Byte???
Der String "öß cnchjhj Ä ..kjhk ß" liefert 4940 Byte.
Bei Umlauten in zwei Feldern 4941 Byte usw.

Der Fehler scheint also bei Writer zu liegen - aber warum? In der Onlinehilfe hab ich nix gefunden.

[Neutral General]

Dann schreib halt notfalls selbst in den Stream

[himitsu]

Der Record mit ShortStrings kann übrigens direkt in den Stream kopiert werden.