Problem beim Lesen (und schreiben?) von Stream

[TiGü]

fs:= TFileStream.Create(FileName, fmCreate); // in procedure TForm1.ProjektOpen

Zitat:

fmCreate - Create a file with the given name. If a file with the given name exists, override the existing file and open it in write mode.

Du überschreibst beim Öffnen die Datei. Die ist leer. Prüfe mal fs.Size.
Die sollte ja größer null sein, wenn richtig eingelesen.

Probiere es doch mal mit fmOpenRead.

[e-gon]

Hallo TiGü,

Du hast natürlich recht! Ich habe mir die Datei damit überschrieben. Da sucht man stundenlang nach einem Fehler und findet derartige Schnitzer dennoch nicht...

Leider besteht das Problem immer noch. Könnte das auch mit BMPLogo.SaveToStream(st); zusammenhängen? Überschreibt das evtl. den zuvor eingefügten String wieder?

Gruß
e-gon

[e-gon]

stahli hatte mal ein ähnliches Problem (siehe https://www.delphipraxis.net/107713-...nd-stream.html)

Ich werde es mal auf diese Art versuchen...

[KodeZwerg]

Binde doch der einfachkeit halber .zip support ein.
Also externe Daten zippen & dann im temp entzippen/verwenden.

[e-gon]

Hallo KodeZwerg,

Du meinst einen temporären Ordner erstellen, dort alles getrennt speichern, den kompletten Ordner zippen und diesen dann wieder löschen?

Das hätte natürlich den Vorteil, dass man zur Not auch ohne den Editor an die Daten herankäme.

Andererseits stehe ich nicht so auf Temporäre Dateien und außerdem ist die Festplatte doch langsamer als der Arbeitsspeicher.

Muss mal in mich gehen...

[Delphi.Narium]

Für die Arbeit mit ZIP-Archiven braucht man keinen temporären Ordner oder temporäre Dateien. Man kann auch einen Stream direkt ins ZIP packen.

Auf der Festplatte entsteht nur die ZIP-Datei.

[BerndS]

Beim Einlesen der Strings sollte nicht Result, sondern Result[1] verwendet werden, da hier der Zeichenpuffer des Ansistrings beginnt.

Delphi-Quellcode:

 function LoadStrFromStream(const st: TMemoryStream): AnsiString;
  var l: LongInt;
  begin
    st.ReadBuffer(l, SizeOf(l)); // -> beim ersten Durchlauf knallt es hier dann
    SetLength(Result, l);
    if l>0 then st.ReadBuffer(Result[1] ,l); 
  end;

[KodeZwerg]

Zitat von e-gon:

Hallo KodeZwerg,

Du meinst einen temporären Ordner erstellen, dort alles getrennt speichern, den kompletten Ordner zippen und diesen dann wieder löschen?

Das hätte natürlich den Vorteil, dass man zur Not auch ohne den Editor an die Daten herankäme.

Andererseits stehe ich nicht so auf Temporäre Dateien und außerdem ist die Festplatte doch langsamer als der Arbeitsspeicher.

Muss mal in mich gehen...

Zitat von Delphi.Narium:

Für die Arbeit mit ZIP-Archiven braucht man keinen temporären Ordner oder temporäre Dateien. Man kann auch einen Stream direkt ins ZIP packen.

Auf der Festplatte entsteht nur die ZIP-Datei.

da ich nicht genau weiß wie er das meint, schrieb ich's halt mit temp ordner.
.zip kann vollkommen per TStream abgewickelt werden, laden speichern löschen whatever.
ob nun text bilder oder whatever.
ich finde es ist die einfachste möglichkeit damit umzugehen, da die eigentliche datei (das archiv) eh mitgegeben werden muss. (ob nun zip zlib whatever)
eine font ist meist eine ttf datei, die einfach mit ins archiv, fertig.

[e-gon]

Hallo zusammen,

vielen lieben Dank für die ganzen Antworten!

Ich muss das jetzt erstmal alles ausprobieren und verstehen. Bis evtl. noch Fragen aufkommen lösche ich die Markierung zur offenen Frage.

Danke nochmals an alle!

Gruß
e-gon