[delphi-br] Re: Exportar imagem JPG do banco de dados para arquivo em disco - Resolvido

[Carlos]

Senhores, boa tarde, consegui resolver de forma simples a referida
questão!
Quero agradecer a colaboração do colega Eduardo, e aproveitar a
oportunidade para informar qual a solução:
1 - Coloquei um componente TImage no Form e sua propriedade Visible =
False;

2 - Usei uma procedure para exibir a imagem no TImage;

3 - Salvei a imagem no local desejado.

Segue abaixo, o pedaço de código usado e a função.

Fraterno abraço a todos,
Carlos

  if not (dmCadastro.cdsFoto.IsEmpty) then
  begin
    dmCadastro.cdsFoto.DisableControls;
    dmCadastro.cdsFoto.First;
    while not dmCadastro.cdsFoto.Eof do
    begin
      if (img1.Picture <> nil) then
        img1.Picture := nil;
      funcoes.ExibeFoto(dmCadastro.cdsFoto, 'foto', img1);
      img1.Picture.SaveToFile('C:\Monit\bin\arqs\' +
        dmCadastro.cdsFotonome.Value + '.jpg');
      dmCadastro.cdsFoto.Next;
    end;
    dmCadastro.cdsFoto.EnableControls;
    img1.Picture := nil;
  end;

procedure ExibeFoto(DataSet : TDataSet; BlobFieldName : String;
  ImageExibicao : TImage);
var
  BlobStream : TStream;
  JpegImage : TJPEGImage;
  bitmap:TBitMap;
begin
  BlobStream :=
DataSet.CreateBlobStream(DataSet.FieldByname(BlobFieldName), bmRead);
  if BlobStream.Size <> 0 then
  begin
      JpegImage  := TJPEGImage.Create;
      try
        JpegImage.LoadFromStream(BlobStream);
        ImageExibicao.Picture.Assign(JpegImage);
        ImageExibicao.Center:=true;
      finally
        BlobStream.Free;
        JpegImage.Free;
      end;
  end
  else
  begin
      Bitmap:=TBitMap.Create;
      Try
          Bitmap.Width:=1;
          Bitmap.Height:=1;
          ImageExibicao.Picture.Assign(BitMap);
          ImageExibicao.Center:=false;
      finally
          Bitmap.Free;
          BlobStream.Free;
      end;
  end;
end;