Hallo!
Hier gibt es eine FAQ, wie man bspw. eine Datei per Blobstream in ein Blobfeld packt. Es geht aber auch (meiner Meinung nach) schneller: Einfach das Feld als TBlobfield casten, und schon stehen einem die Methoden LoadFromStream/SaveToStream zur Verfügung.
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12:
| var datei:TStream; begin datei:=TFileStream.Create('C:\testdatei.jpg',fmOpenRead or fmShareDenyWrite); try IBtesttabelle.Edit; (IBTestTabelle.FieldByName('MeinBlobfeld')as TBlobField).LoadFromStream(Datei); IBtesttabelle.Post; finally datei.Free; end; end; |
Cu,
Udontknow