Imagem no IB

Firebird

20/04/2004

Como faço para gravar/ler imagem jpg no InterBase?
Uso campos Blob.
T+


Eniorm

Eniorm

Curtidas 0

Respostas

Fabio.hc

Fabio.hc

20/04/2004

Tente assim:

uses Jpeg;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
   if OpenDialog1.Execute then
      begin
      IBQuery1.Edit;
      IBQuery1LOGOTIPO.LoadFromFile(OpenDialog1.FileName);
      IBQuery1.post;
      end;
end;


Para ler.
DBImage1 linkado na IBQuery1 e no campo LOGOTIPO.


o campo LOGOTIPO definido como:
BLOB sub_type 0 segment size 100


GOSTEI 0
POSTAR