Author: Tomas Rutkauskas

How to copy a *.bmp file from a floppy disc to a blob field

Answer:
1   
2   procedure TForm1.Button1Click(Sender: TObject);
3   var
4     tb: TBlobstream;
5     tf: TFileStream;
6   begin
7     table1.edit; {load from disk file and save in table}
8     tf := TFileStream.create('splash.bmp', fmOpenRead);
9     tb := TBlobstream.create(Table1PictureData, bmReadWrite);
10    tb.CopyFrom(tf, 0);
11    tf.free;
12    tb.free;
13    table1.post;
14  end;
15  
16  procedure TForm1.FormCreate(Sender: TObject);
17  var
18    tb: TBlobstream;
19  begin
20    table1.active := true;
21    if not (Table1.EOF) then
22    begin
23      Table1.first; {load from table and display}
24      tb := TBlobstream.create(Table1PictureData, bmRead);
25      Image1.Picture.Bitmap.LoadFromStream(tb);
26      tb.free;
27    end;
28  end;