einlesen eines String aus einem TFileStream

[Sequitar]

Kleine Demo (phne pchars)

Delphi-Quellcode:

program savemystringtoastream;

{$APPTYPE CONSOLE}
{$R *.res}

uses classes,
  System.SysUtils;

procedure teststring_tostream;
var
  f: tstream;
  atext, atext2: string;
  len: byte;

begin

  try
    f := tmemorystream.Create;
    f.Position := 0; // optional here
    atext := 'mytest';
    len := length(atext); // 6
    f.write(len, sizeof(len)); // +1
    f.write(atext[1], length(atext) * sizeof(char)); // +2*6

    // init
    f.Position := 0;
    len := 0;
    atext2 := '';
    f.Read(len, sizeof(len)); // get length from stream
    setlength(atext2, len); // allocate new string
    f.Read(atext2[1], len * sizeof(char));
    assert(atext = atext2);
    atext := '';
    atext2 := '';
  finally
    f.free; { TODO -oUser -cConsole Main : Insert code here }

  end;

end;

begin
  teststring_tostream;

end.

Kann u.U. aber für sehr lange strings lange dauern. Daher hatte ich mir hierfür mal einen helper geschrieben, der das mit tbytes und readbuffer sehr zügig löst.

Delphi-Quellcode:

Type
 Tlargefile_reader_base = Class(TInterfacedObject, Ilargefileimporter)
  Private
  Private
    Content: Tbytes;
    Fendianess: Tendianess;
    Fchunksize: Tfilereadchunksize;
  Private
//..
end;
//..
Procedure Tlargefile_reader_base.Loadstream(Stream: Tstream;
  Endianess: Tendianess = Bigendian);
Begin
  Setlength(Content, Stream.Size);
  Stream.Position := 0;
  If Endianess = Bigendian Then
    Stream.ReadBuffer(Content, Stream.Size) // standard little endian
  Else
    Raise Exception.Create('Loading Little-Endian coded files not implemented');
  Fendianess := Endianess;
End;


Procedure Tlargefile_reader_base.Setastext(Atext: String);
Var
  P: Pchar;
  C: PByte;
  Max: Pchar;
Begin
  Setlength(Content, Length(Atext));
  Max := @Atext[Length(Atext)]; // last element
  P := @Atext[1];
  C := @Content[0];
  While P <> Max Do
  Begin
    C^ := Ord(P^);
    Inc(C);
    Inc(P);
    
  End;
  // last element
 
  C^ := Ord(P^);
  // Inc(C);
  // Inc(P);
End;


Function Tlargefile_reader_base.Getastext: String;
Var
  C: PByte;
  P: Pchar;
  Max: PByte;
Begin
  // Result := Utils.Bytestostr(content);
  Max := @Content[High(Content)]; // last element
  Setlength(Result, Length(Content));
  P := @Result[1];
  C := @Content[0];
  // for c in self.content do
  While C <> Max Do
  Begin
    P^ := Char(C^);
    Inc(P);
    Inc(C, Bytesize);
  End;
  // last element
  P^ := Char(C^);
End;

[himitsu]

TStringStream
TStringReader und TStreamWriter
TBytesString + TEncoding
TReader und TWriter mit ObjectBinaryToText und ObjectTextToBinary (PS: das wird auch für die .DFM und .FMX verwendet)

XML
JSON
INI

uvm.

[Eisenmann]

Hallo und Danke an alle, die mir geantwortet haben,
ganz besonderen Dank an Sequitar, erste Test zeigen, dass mein Programm so funktioniert.
Ich mache heute Abend ein "Fass auf".
danke , das Problem hatte ich schon lange und es scheint jetzt endlich gelöst zu sein.
Grüße aus dem Saarland
der Eisenmann

[himitsu]

Aber gerade Beispiele, wie von Sequitar, haben das Potential für Probleme.

So lange der Code nur in einem Programm bleibt und die Streams niemals das Programm verlassen (speichern oder Datenübertragung), ist alles OK.
Alles was das Programm verlässt, da muß für veränderliche Typen im Stream dessen Format/Version mit gespeichert werden, oder man arbeitet ausschließlich mit unveränderlichen Typen.

veränderlich : String PChar Char
unveränderlich : AnsiString PAnsiChar AnsiChar UnicodeString WideString PWideChar WideChar UTF8String usw.


Ratet mal, warum im, bzw. seit dem Jahre 2009 so viele alte Codes nun nicht mehr richtig funktionieren.

[Eisenmann]

Hi,
ich hatte mich zu früh gefreut. Es gab dann doch Unsicherheiten beim speichern und lesen.
Ich habe es jetzt mit Shortstring gemacht.

Code:

var daten:ShortString;
    l:integer;
l:=sizeof(daten);
fs.WriteBuffer(l, sizeof(l)); // +1
fs.WriteBuffer(daten,sizeof(daten));

Code:

fs.Read(ZText,d.l); skala.Version2s:=ZText;

So geht es.
Danke aber nochmals für die Hilfe.
Grüße aus dem Saarland
der Eisenmann.

[BerndS]

Wenn sowieso der ganze Shortstring geschrieben wird, der ja 255 Ansichars enthält, ist SizeOf überflüssig.
Besser wäre es aber Length zu verwendern und dann nur die Zeichen, die der Shortstring enthält mit dem Längenbyte zu schreiben.
etwa so:

Delphi-Quellcode:

var 
  daten:ShortString;
  l: Byte;
begin
  l := Length(daten);
  fs.WriteBuffer(l, sizeof(l)); 
  if l > 0 then
    fs.WriteBuffer(daten[1], l);
...

Aber wenn Daten immer 255 Zeichen enthält ist das Längenbyte überflüssig.