Hi
Wie kann ich am ende einens Filestreams noch etwas dran hängen.
Ich will nämlich wenn der ID3 Tag einer Mp3 noch nicht existiert ihn schreibenlassen. Allerdings hängt er bei mir im momente nicht nicht 'Tag'+125 zeichen dran, sondern geht vom ende 128 zeichen zurück und schreibt dann 'tag'.
Delphi-Quellcode:
function ID3erstellen (filename:string ):boolean;
var
fs:Tfilestream;
begin
try
fs:= tfilestream.Create (filename, fmopenwrite);
fs.seek (sofromend,0);
fs.WriteBuffer(pchar('TAG')^,128);
result:= true;
fs.Free;
showmessage('erstellt');
finally
result:=false;
fs.Free ;
end;
end;
CU