einlesen eines String aus einem TFileStream

[venice2]

Zitat von Uwe Raabe:

laenge gibt die Anzahl der Zeichen im String an, WriteBuffer und ReadBuffer erwartet aber die Anzahl der Bytes. Ein WideChar hat 2 Bytes. Deswegen kommen nur die ersten 11 Zeichen an.

Bei der Einbehaltung der Übergabe von PChar ergäbe sich das Problem erst gar nicht. Oder?

fS.WriteBuffer(laenge,sizeOf(PChar)); ??

[DeddyH]

Er will ja zuerst die Stringlänge und dann den String selbst in den Stream schreiben.

Delphi-Quellcode:

fS.WriteBuffer(laenge, SizeOf(laenge));
fS.WriteBuffer(PWideChar(daten)^, laenge * SizeOf(Char));

[venice2]

Zitat von DeddyH:

Er will ja zuerst die Stringlänge und dann den String selbst in den Stream schreiben.

Delphi-Quellcode:

fS.WriteBuffer(laenge, SizeOf(laenge));
fS.WriteBuffer(PWideChar(daten)^, laenge * SizeOf(Char));

Ok.. Habe dann wohl was nicht korrekt verstanden.

[Eisenmann]

Hallo,
und danke für die sehr sehr schnellen Antworten.
Ich werde da jetzt mal einiges ausprobieren.

[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