Blob: Filestream und Zusatzinformation

[danieleh]

Hallo Alle,

Ich versuche in einem Blob eine beliebige Datei zu speichern mit - im selben Blob - eine (beliebige) Zusatzinformation, zB. der Dateiname.
Eine Datei in einem Blob alleine ist kein Problem. Dazu verwende ich folgender Code.
Es ist auch nicht ein Problem den Dateinamen in ein anderes Feld zu schreiben. Nur möchte ich aus einem bestimmten Grund eine Zusatzinfo im BLOB reinschreiben können.

Wie kann mann nun 2 Streams so zusammenfügen dass man es im Blob speichern und wieder auslesen kann. Hätte jemand ein Beispiel ?

Delphi-Quellcode:

  odf := OpenDialog1.FileName;
  D_DOCS.Open;
  D_DOCS.Insert;
  D_DOCS.Edit;
  blob:=D_DOCS.CreateBlobStream(D_DOCS.FieldByName('F_ATT'),bmWrite);
  try
    blob.Seek(0,soFromBeginning);
    datei:=TFileStream.Create(odf,fmOpenRead or fmShareDenyWrite);
    D_DOCS.FieldByName('F_SHC').AsString := ExtractFileName(odf);
    try
      blob.CopyFrom(datei,datei.Size);
    finally
      datei.Free;
    end;
   finally
    blob.Free;
    D_DOCS.Post;
  end;

Gruss
daniele