Hi
Hab jetzt mal ein bisschen rum experimenttiert. Bin jetzt soweit, dass ich die Datei mit tfilestream öffnen, dass ich dann zu der stelle spring wo der tag gespeichert wird. Allerdings kann ich noch nicht richtig schreiben.
Quelltext
1:
| datei.Write(titel,30); |
Wenn ich das mach gibt schreibt er in die datei anstatt "blabla" irdwelch komischen zeichen und wenn ich mir den id3 tag mit winamp angucke steht da "ÔE" unter Titel.
Kann mir einer sagen was ich machen muss damit er mir dort anstatt dieser Zeichen "blabla" schreibt??
Hier ist noch mal der Code(Ist immoment nur versuchsweise, daswegen ist der Pfad und so dierekt angegeben):
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
| 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; |
Moderiert von 
Peter Lustig: Code- durch Delphi-Tags ersetzt
