![]() |
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 |
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 17:29 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