Blob and image importation (SOLVED)

[xinyiman]

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]

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

[xinyiman]

Thank you

[xinyiman]

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]

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')).SaveToStream(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')).SaveToStream(MioStream);

compare this error

Writing to stream is not support


Why?

[xinyiman]

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')).SaveToStream(MioStream);
                MioStream := Q_Generica.CreateBlobStream(Q_Generica.FieldByName('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;