Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi String in TFileStream (https://www.delphipraxis.net/61947-string-tfilestream.html)

Metatron220 28. Jan 2006 16:18


String in TFileStream
 
Wie kann ich in einen FileStream an den Anfang einer Datei einen String schreiben und hinten eine andere Datei aus einem MemoryStream anhängen und diesen String später wieder auslesen? Aus der Suche bin ich leider nicht schlau geworden...
Vielen Dank schon mal im Vorraus

Christian Seehase 28. Jan 2006 16:42

Re: String in TFileStream
 
Moin Metatron,

hier mal ein kleines Beispiel (getestet):

Delphi-Quellcode:
var
  fs    : TFileStream;
  ms    : TMemoryStream;
  sValue : string;
  dwLen : DWORD;

begin
  // Speichern
  fs := TFileStream.Create('c:\temp\testdatei.txt',fmCreate);
  ms := TMemoryStream.Create;
  try
    sValue := 'Diesen String an den Anfang';
    // Einen String in die Datei schreiben, inclusive Länge, damit
    // man ihn anschliessend wieder auslesen kann
    dwLen := length(sValue);
    fs.Write(dwLen,4);
    fs.Write(sValue[1],dwLen);
    // Und den Inhalt des MemoryStreams hinterher
    // Irgendetwas sollte dann aber schon drinstehen ;-)
    fs.CopyFrom(ms,0)
  finally
    FreeAndNil(fs);
    FreeAndNil(ms);
  end;

  // Löschen, um zu zeigen, dass es funktioniert ;-)
  dwLen := 0;
  sValue := '';

  // Auslesen
  fs := TFileStream.Create('c:\temp\testdatei.txt',fmOpenRead);
  ms := TMemoryStream.Create;
  try
    // Stringlänge auslesen
    fs.Read(dwLen,4);
    SetLength(sValue,dwLen);
    fs.Read(sValue[1],dwLen);
    // Diesmal muss die Länge mit angegeben werden, damit die Position im
    // FileStream nicht wieder auf 0 gesetzt, sondern hinter dem String
    // ausgelesen wird.
    ms.CopyFrom(fs,fs.Size-fs.Position);
  finally
    FreeAndNil(fs);
    FreeAndNil(ms);
  end;
end;


Alle Zeitangaben in WEZ +1. Es ist jetzt 19:49 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz