Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Delphi Probleme bei Schreiben in TfileStream. (https://www.delphipraxis.net/16475-probleme-bei-schreiben-tfilestream.html)

superman21 17. Feb 2004 15:04


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:
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;
Danke schon mal fpr eure antworten.

CU

Gandalfus 17. Feb 2004 15:54

Re: Probleme bei Schreiben in TfileStream.
 
http://www.delphi-treff.de/content/t...dex.php4?kat=2

superman21 17. Feb 2004 16:28

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 00:59 Uhr.

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