Am ende von filestream schreiben.

[superman21]

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

[Christian Seehase]

Moin Superman,

warum setzt Du nicht einfach TFileStream.Position auf TFileStream.Size, um an das Ende des Streams zu gelangen?