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