Gravar/Ler imagem no banco firebird

[Daniel Paixão-Cascavel]

Galera, objetivamente, ou seja, quem não tiver feito com sucesso e não tiver um exemplo prático não responda:

Alguém ai tem algum exemplo prático de como gravar/ler imagens em um banco de dados firebird em uma versão do Delphi compatível com a 2007? Se alguem tiver um exemplo que funciona, preciso urgente. Pago por isso.

 

Abraço.

[Juliomar Marchetti]

Movido para o local correto.

[Dercide Alvarez]

@daniel_paixao

Essa imagem que você quer gravar seria JPEG ?

Me manda parte do fonte que esta salvando no banco a imagem.

Dercide.

[Daniel Paixão-Cascavel]

Sim, seria um JPG, na verdade eu não fiz nenhum modo que deu certo ainda. O que eu fiz foi transformar a imagem em Hexadecimal e Salvar no banco e depois trazer do banco e transformar em JPG mas, em alguns casos, a imagem fica preta ou corta. Não sei mais o que fazer.

[Dercide Alvarez]

@Daniel_paixao

Tenho gravado e restaurado tranquilamente JPG, XML e campos BLOB sem problema.

No caso de imagens eu gravo assim :

 

if fcMateriais.ImagemDB.Picture.Graphic <> nil then // Pra verificar se tem alguma imagem
begin
     ParamByName('IMAGEM').Assign(fcMateriais.ImagemDB.Picture.Graphic);
     ParamByName('TIPO_IMAGEM').AsString := TGraphicClass(fcMateriais.Imagem.Picture.Graphic.ClassType).ClassName  end;
 

Onde fcMateriais é o meu Form que tem o TImage, e criei :

    property ImagemDB: TImage read Imagem write  Imagem;
 

No Form  ==> OPD: TOpenPictureDialog

procedure TfcMateriais.ImagemClick(Sender: TObject);
begin
  if OPD.Execute then
  with Imagem do
    begin
      Proportional := False;
      Picture.LoadFromFile(OPD.FileName);
      if (Picture.Height > Height)or(Picture.Width > Width) then
        Proportional := True;
    end;
end;
 

Isso porque a gravação e a leitura da imagem esta em uma Unit, e o form em outra, uso TRecord para passar os dados.

Mais ou menos isso.

Dercide.