Salvar foto no Banco De Dados

[Valtran Silva]

Salvar foto no Banco De Dados

03/12/2018

Delphi

Galera é o seguinte, tô a muito tempo tentando aprender a Gravar uma foto no Banco de Dados mais não tive sucesso. pesquisei muito na internet, mais o problema que o que Domina é Função SQL. Não costumo trabalhar com função SQL. Uso Banco de Dados "FIREBIRD", Junto IBTABLE1, uso ele porque acho mais fácil e e o que aprendi na FAcu. Mais não teria problema nenhum em mudar um dia para SQL. 

Mais hoje preciso da ajuda de alguém voltado para minha realidade. 

1º. Como funciona a lógica Disso. Eu gravo a foto, e Depois eu Busco Do Banco de Dados?

2º Eu tenho um cadastro de clientes com uma "DBImage" ja está setado com os valores do Grid. Quero que para cada cadastro que eu selecionar ou apenas rolar com o mouse no Grid, mude a foto automaticamente, só isso.

Alguém poderia, me dar uma idéia de como funciona a lógica disso tudo??????

Não adianta pedir código, porque não tenho nenhum, estou pedindo do zero! 

Valeu por me ajudar

[Amarildo de Matos]

Bom dia. Ve se nao tem componente que faca isso automatico.

[Valtran Silva]

Bom Dia. Valeu por responder amarildo. Se tem infelizmente não conheço, mais irei pesquisar mais para ver se acho.

 

Mais tipo você sabe me informar a lógica da Foto no (BD)?

[Amarildo de Matos]

Existe o tipo binario para isso.

[Valtran Silva]

Como Funciona, se mencionou a respeito vai saber, manda ai? 

[Reinaldo Silveira]

Teste o seguinte Valtran:

uses Jpeg, PngImage, Clipbrd;

procedure LoadImageFromFile(pArquivo: String; pImgDest: TDBImage);
var
  Jpeg: TJPEGImage;
  Bitmap: TBitmap;
  Png: TPngImage;
  lsExt: String;
begin
  lsExt := LowerCase(ExtractFileExt(pArquivo));

  if (lsExt = '.jpeg') or (lsExt = '.jpg') then
    begin
      Jpeg := TJpegImage.Create;
      Jpeg.CompressionQuality := 50;
      Jpeg.LoadFromFile(pArquivo);
      Clipboard.Assign(Jpeg);
      Jpeg.Free;
    end

  else if lsExt = '.bmp' then
    begin
      Bitmap := TBitmap.Create;
      Bitmap.LoadFromFile(pArquivo);
      Clipboard.Assign(Bitmap);
      Bitmap.Free;
    end

  else if lsExt = '.png' then
    begin
      Png := TPngImage.Create;
      Png.LoadFromFile(pArquivo);
      Clipboard.Assign(Png);
      Png.Free;
    end;

  pImgDest.PasteFromClipboard;
  Clipboard.Clear;
end;

Use o seguinte comando para inserir a imagem no campo ligado do DBImage:

  if OpenDialog1.Execute then
    LoadImageFromFile(OpenDialog1.FileName, DBImage1);

Essa é apenas uma das forma de se fazer. Qualquer dúvida posta aí.