Blob and image importation (SOLVED)
lazarus / 16-Databases

----------------------------------------------------------------------
xinyiman · 2010-11-23 13:24

I created a field in a firebird db blob to contain an image. How do I
import pictures in it and see how I can make a video preview? Using
the TIBConnection to connect to firebird. Thanks

----------------------------------------------------------------------
leiteiro · 2010-11-23 18:40

var
    FileStream: TStream;
....
....
....

 FileStream := TFileStream.Create(FileName, fmOpenRead);
 imgBlob.Picture.LoadFromStream(FileStream);

----------------------------------------------------------------------
xinyiman · 2010-11-24 04:52

Thank you

----------------------------------------------------------------------
xinyiman · 2010-11-25 13:57

Another question, now that I imported the jpg image in firebird how do
I make it display in a TImage field, reading a FieldByName
('namefield')?

Thank you to response

----------------------------------------------------------------------
xinyiman · 2010-11-26 04:57

procedure TForm2.Grid_DettaglioGiornoCellClick(Column: TColumn);
var
   MioStream: TStream;
   IdNota: integer;
begin

   IdNota:=Grid_DettaglioGiorno.DataSource.DataSet.FieldByName('IdNota
').AsInteger;

   Q_Generica.SQL.Text:='Select Immagine FROM T_Scontrini Where
IdNota=' + IntToStr(IdNota) + ';';
   Q_Generica.Open;
   if not Q_Generica.EOF then
   begin
        Q_Generica.First;
        MioStream := TStream.Create;
        try
           if not Q_Generica.FieldByName('Immagine').IsNull then
           begin
                TBlobField(Q_Generica.FieldByName('Immagine')).SaveToS
tream(MioStream);
                MioStream.Position := 0;
                Img_Modifica.Picture.LoadFromStream(MioStream);
           end
           else
           begin
                Img_Modifica.Picture.Clear;
           end;
        finally
               MioStream.Free;
        end;
   end
   else
   begin
        Img_Modifica.Picture.Clear;
   end;
   Q_Generica.Close;

end;


On this row: TBlobField(Q_Generica.FieldByName('Immagine')).SaveToStre
am(MioStream);

compare this error

Writing to stream is not support


Why?

----------------------------------------------------------------------
xinyiman · 2010-11-26 07:32

Solved when:


procedure TForm2.Grid_DettaglioGiornoCellClick(Column: TColumn);
var
   MioStream: TStream;
   IdNota: integer;
begin

   IdNota:=Grid_DettaglioGiorno.DataSource.DataSet.FieldByName('IdNota
').AsInteger;

   Q_Generica.SQL.Text:='Select Immagine FROM T_Scontrini Where
IdNota=' + IntToStr(IdNota) + ';';
   Q_Generica.Open;
   if not Q_Generica.EOF then
   begin
        Q_Generica.First;
        //MioStream := TStream.Create;
        try
           if not Q_Generica.FieldByName('Immagine').IsNull then
           begin
                //TBlobField(Q_Generica.FieldByName('Immagine')).SaveT
oStream(MioStream);
                MioStream := Q_Generica.CreateBlobStream(Q_Generica.Fi
eldByName('Immagine'),bmRead);
                MioStream.Position := 0;
                Img_Modifica.Picture.LoadFromStream(MioStream);
           end
           else
           begin
                Img_Modifica.Picture.Clear;
           end;
        finally
               MioStream.Free;
        end;
   end
   else
   begin
        Img_Modifica.Picture.Clear;
   end;
   Q_Generica.Close;
end;