Hi,

hat jemand eine Idee warum das hier geht:

zusammenfalten · markieren

Delphi-Quellcode:

procedure WriteString(Stream: TStream; const str: String); inline;
var
  ptr: MarshaledAString;
  len: Integer;
begin
  ptr := MarshaledAString(TMarshal.AllocStringAsUtf8(str));
  len := length(ptr);
  Stream.Write(len, sizeof(len));
  Stream.Write(ptr^, len);
end;

function ReadString(Stream: TStream): String; inline;
var
  len: Integer;
  Bytes: TBytes;
begin
  Stream.Read(len, sizeof(len));
  SetLength(Bytes, len);
  Stream.Read(Bytes, len);
  result := TMarshal.ReadStringAsUtf8(TPtrWrapper.Create(Bytes),len);
end;

und das hier nicht?

zusammenfalten · markieren

Delphi-Quellcode:

procedure WriteString(Stream: TStream; const str: String); inline;
var
  len: Integer;
  Bytes: TBytes;
begin
  Bytes := TEncoding.UTF8.GetBytes(str);//BytesOf(str);
  len := length(Bytes);
  Stream.Write(len, sizeof(len));
  Stream.Write(Bytes, len);
end;

function ReadString(Stream: TStream): String; inline;
var
  len: Integer;
  Bytes: TBytes;
begin
  Stream.Read(len, sizeof(len));
  SetLength(Bytes, len);
  Stream.Read(Bytes, len);
  result := TEncoding.UTF8.GetString(Bytes, Low(Bytes), High(Bytes) + 1);//StringOf(Bytes);
end;

Ist das jetzt ein Fehler in der Implementierung?

Peter

markieren

Delphi-Quellcode:

Stream.Write(ptr^, len); // dereferenziert
Stream.Read(Bytes, len); //Stream.Read(@Bytes[0], len); // nicht dereferenziert

Stream.Write(Bytes, len); //Stream.Write(@Bytes[0], len); // nicht dereferenziert <<<<<<<
Stream.Read(Bytes, len); //Stream.Read(@Bytes[0], len); // nicht dereferenziert

Ganz vergessen ... Stream kann jetzt auch TByte direkt

zusammenfalten · markieren

Delphi-Quellcode:

  TStream = class(TObject) // altes Delphi
    function Read(var Buffer; Count: Longint): Longint; virtual; abstract;
    function Write(const Buffer; Count: Longint): Longint; virtual; abstract;
  end;

  TStream = class(TObject) // neueres Delphi
    function Read (var Buffer; Count: Longint): Longint; overload; virtual;
    function Write(const Buffer; Count: Longint): Longint; overload; virtual;

    function Read( Buffer: TBytes; Offset, Count: Longint): Longint; overload; virtual;
    function Write(const Buffer: TBytes; Offset, Count: Longint): Longint; overload; virtual;

    function Read (var Buffer: TBytes; Count: Longint): Longint; overload;
    function Write(const Buffer: TBytes; Count: Longint): Longint; overload;
  end;

Was heißt denn "geht" nicht?

Auf den zweiten Blick seh ich jedenfalls keinen Fehler mehr.




Bist du auf genau dieses Speichern angewiesen?
Wie wäre es mit einer Alternative?
z.B. TStringStream oder TReader+TWriter

Wenn ich die TEncoding.UTF8 Funktionen nutze, gibt es bei echtem UTF8 encodiertem Text unter IOS Exceptions. Sobald ich TMarshal nutze funktioniert alles wie gehabt.
Ich schreibe in den Stream noch etwas mehr als Text, da sind auch Zahlenwerte drin gespeichert.

Und was für Exceptions?


Versuch es mal probehalber so

zusammenfalten · markieren

Delphi-Quellcode:

procedure WriteString(Stream: TStream; const str: String); inline;
var
  len: Integer;
  Bytes: TBytes;
begin
  Bytes := TEncoding.UTF8.GetBytes(str);
  len := length(Bytes);
  Stream.Write(len, sizeof(len));
  if len > 0 then
    Stream.WriteBuffer(Bytes, len);
end;

function ReadString(Stream: TStream): String; inline;
var
  len: Integer;
  Bytes: TBytes;
begin
  Stream.Read(len, sizeof(len));
  SetLength(Bytes, len);
  if len > 0 then
    Stream.ReadBuffer(Bytes, len);
    Result := TEncoding.UTF8.GetString(Bytes {, 0, Length(Bytes)});
  else
    Result := '';
end;

Wenn du von Read und Write das Result nicht auswertest, dann besser die Buffer-Varianten verwenden, denn die Prüfen wenigstens, ob wirklich alles gelesen oder geschrieben wurde.

Und die Read/Write-Methoden mit TBytes dereferenzieren das Array auch dann, wenn es leer ist ... könnte sein, dass es da Problemchen gibt.

Ich bin jetzt kein sonderlich schlauer Mensch: Wozu brauchst du bei TEncoding.GetString(Bytes: TBytes; ByteIndex, ByteCount: Integer) die beiden letzten Parameter? Die kann man sich doch schenken?