tstringlist.loadfromstream liest mehr ein, als es soll

[himitsu]

Die StringListe als Erstes in den Stream und dann noch eine #0 (besser ein Word mit dem Wert 0) hinten an den Stream ... danach kann man ohne Probleme andere Daten dranhängen.

Hat man den Gesamt-Stream in einem TMemoryStream drin, dann kann der Text der StringList sonstwo stehen, onlange auch da eine #0 hinten dran hängt ... einlesen dabei z.B. über TStringList.SetText.


Ich hatte mir irgendwo mal einen Stream erstellt, welcher einen Teil eines anderen Streams wie einen eigenständigen Stream representiert, ohne die Daten vorher temporär zu kompieren.

[DrUArn]

@himitsu

heisst, tstringlist.LoadFromStream(astream) liest definitiv nur bis #0?

Probiere ich aus.

danke Uwe

//daten schreiben
procedure tstorepersistent_UA.writeotherdata(astream: tstream);
var i:integer;
a:char;
begin
astringlist.SaveToStream(astream);
a:=#0;
astream.Write(a,sizeof(a));
end;

Diese Änderung bringt's nicht - wo und warum der Leseprozess beendet wird, kann ich nicht erkennen - aber immer werden ein paar mehr Strings eingelesen als gespeichert!

Gruß Uwe

[himitsu]

http://www.delphipraxis.net/130566-t...ml#post1137526

Theoretisch sollte sie (zumindestens die aktuelle TStringList) auch nur ab der aktuellen Position einlesen, aber ich bin mir nicht sicher, ob das schon immer der Fall war ... aber bis zur #0 lesen die alle nur.

[CCRDude]

Das wäre aber bugusing. Denn daß eine StringList nur bis #0 arbeitet, ist imho ein Bug. Der irgendwann gefixt werden kann, und dann sucht man den Fehler...

Heißt ja immerhin TStringList und nicht TPCharList

Leider hat die RTL/VCL einige wenige solcher Stellen, aber Embarcadero fixt sie, wenn bekannt. Zumindest habe ich mal den #0-End-Bug in StringReplace gemeldet und das QC-Ticket wurde sogar geöffnet (ob auch schon gefixt weiß ich gerade nicht mehr).

[Bummi]

lese tut sie alles, aber interpretiert wird nur bis zur #0, in den Zeiten von Unicode sollte man eh andere Wege bestreiten...

[DrUArn]

Hi,


@himitsu: Hatte mich in meinen eigenen Routinen verheddert. Du hast recht! #0 beendet den Lesevorgang. Sicherheitshalber noch mal die Frage: Wird dieses zusätzlich gespeichert #0 (a:=#0; astream.Write(a,sizeof(a))) beim Lesen (tstringlist.LoadFromStream(astream))mit einbezogen - also astream.position hinter dem #0 oder muß man beim Lesen nochmal astream.read(a, sizeof(a) nutzen, um weitere Daten ab der richtigen Stelle zu lesen. Beim Probieren meine ich zu merken, dass der Zeiger schon hinter dem #0 steht.

OK - ich denke der Zeiger muß hinter #0 stehen - denn erst muß tstringlist.LoadFromStream(astream) das #0 ja einlesen ehe das Lesen gestoppt werden kann!

@Bummi: Welche?

MfG Uwe

[Bummi]

du bist auch wenn #0 vorkommt faktisch am Ende des Streams .... es wird nur nicht mehr dargestellt

Delphi-Quellcode:

var
ms:TStringStream;

procedure TForm1.Button1Click(Sender: TObject);
var
 s:String;
begin
    s := '连接测试'+ #13#10 +'Test'+#0;
    ms.WriteString(s);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   ms.Position := 0;
   ListBox1.Items.LoadFromStream(ms,TEncoding.Unicode);
   Caption := IntToStr(ms.Position) + ' - ' + IntToStr(ms.Size)
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 ms := TStringStream.Create('',TEncoding.Unicode);
end;

Mir ist noch nicht ganz klar was genau Du vorhast, ich würde das was ich verstanden habe über eine Klasse mit einer Liste von Streams abfackeln, was hier für welche Ausgabe gebraucht wird lässt sich iontern gegf. über zusammenkopieren in neue Streams abfackeln.
Der Ansatz von Jaenicke könnte für Dich passen, auch Dein Ansatz mit Längenspeicherung innerhalb des Streams ist brauchbar, allerdings würde ich den von Komponenten zu ladenden Stream vorher in einen neues Extrahieren.