stringhe scrivendo a TMemoryStream

Question

Ho letto un sacco di discussioni qui per quanto riguarda le stringhe scrittura di TMemoryStream e il salvataggio su file e leggere le stringhe nuovamente a TMemoryStream

io non so che cosa ho fatto di male qui, ma sia il mio SaveData o il mio LoadData è sbagliato. Posso controllare il valore di Title prima di chiamare SaveData e mantiene ciò che mi aspetto. Tuttavia, quando chiamo LoadData e controllo il valore di Title, è spazzatura. Qualcuno può dirmi che cosa ho fatto di male si prega

procedure SaveData(FileName: TFileName); 
var 
MemStr: TMemoryStream; 
Title: String; 
begin 
MemStr:= TMemoryStream.Create; 
try 
MemStr.Seek(0, soFromBeginning); 
WriteStreamStr(MemStr, TItle); 
MemStr.SaveToFile(FileName); 
finally 
MemStr.Free; 
end; 
end; 

procedure LoadData(FileName: TFileName); 
var 
MemStr: TMemoryStream; 
Title: String; 
begin 
MemStr:= TMemoryStream.Create; 
try 
    MemStr.LoadFromFile(FileName); 
    MemStr.Seek(0, soFromBeginning); 
    Title := ReadStreamStr(MemStr); 
finally 
    MemStr.Free; 
    end; 
end; 



procedure WriteStreamInt(Stream : TStream; Num : integer); 
{writes an integer to the stream} 
begin 
Stream.WriteBuffer(Num, SizeOf(Integer)); 
end; 

procedure WriteStreamStr(Stream : TStream; Str : string); 
{writes a string to the stream} 
var 
StrLen : integer; 
begin 
{get length of string} 
StrLen := Length(Str); 
{write length of string} 
WriteStreamInt(Stream, StrLen); 
if StrLen > 0 then 
{write characters} 
Stream.Write(Str[1], StrLen); 
end; 


function ReadStreamInt(Stream : TStream) : integer; 
{returns an integer from stream} 
begin 
Stream.ReadBuffer(Result, SizeOf(Integer)); 
end; 

function ReadStreamStr(Stream : TStream) : string; 
{returns a string from the stream} 
var 
LenStr : integer; 
begin 
Result := ''; 
{get length of string} 
LenStr := ReadStreamInt(Stream); 
{set string to get memory} 
SetLength(Result, LenStr); 
{read characters} 
Stream.Read(Result[1], LenStr); 
end; 

Answer 1

Quando si utilizza

Stream.Write(Str[1], StrLen); 

si sta scrivendo primi StrLen byte al flusso. Ma i dati di stringa (unicode) sono in realtà StrLen * SizeOf(Char) byte (è necessario prendere in considerazione la dimensione del tipo di carattere). Quindi il seguente dovrebbe funzionare:

Stream.Write(Str[1], StrLen * SizeOf(Str[1])); 

Lo stesso quando si leggono i dati dallo stream.