![]() |
Probleme bei Schreiben in TfileStream.
Hi
Ich will ein Programm schreiben mit dem ich Id3 tags bearbeiten kann. Bin jetzt soweit, das ich eine Datei in einen Tfilestream einlese, dann an die Stelle springe wo der z.b. der Titel gespeichert wird springe und dann dort den Titel änder. Allerdings werden anstatt "blabla" irgendwelche komischen Zeichen. Kann mir einer sagen wo dran es liegt?? Hier ist der Code.
Delphi-Quellcode:
Danke schon mal fpr eure antworten.
procedure TForm1.Button1Click(Sender: TObject);
var datei: tfilestream; titel: string; size: integer; begin titel:='blablabla'; datei:= tfilestream.create ('D:\Neuer Ordner\Various Artists - Echt! - Wo bist du jetzt.aac',fmopenreadwrite); Size:= datei.Size; edit1.Text:= inttostr(size); edit2.text:= titel; datei.Position:= Size-125; datei.Write(titel,30); beep; datei.Free; end; CU |
Re: Probleme bei Schreiben in TfileStream.
|
Re: Probleme bei Schreiben in TfileStream.
Hi
danke für die schnelle antwort. Hab den Fehler gefunden. Anstatt "titel" musste ich "pchar(titel)^" verwenden. THX & CU |
Alle Zeitangaben in WEZ +1. Es ist jetzt 04:23 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-2025 by Thomas Breitkreuz