Fórum Gravar JPG no campo Bytea do postgres #555550
30/05/2016
0
Ola, estou tentando gravar o imagem JPG no banco de dados postgres usando o campo bytea mais acontece o seguinte erro: 'Bitmap image in not valid'. no momento de leitura da imagem.
estou usando o seguinte código para leitura e gravação:
var
jpg : TJPEGImage;
begin
if odImagemNFE.Execute then
begin
odImagemNFE.Filter := 'jpg|*.jpg|';
try
dmDados.cds_nfe.Edit; //coloca tabela nota em modo de edição
jpg := TJPEGImage.Create; //criação a instancia na classe TBitmap
dmDados.cds_nfeimg_nfe.LoadFromFile(odImagemNFE.FileName); //grava no banco
jpg.LoadFromFile(odImagemNFE.FileName); //carrega imagem na instancia bit
DBImage.Picture.Assign(jpg); //assimila bit para dbImagem(mostra imagem no formulario)
jpg.Free; //distroi instancia da img (libera memoria)
except
on E:Exception do
begin
jpg.Free;
MessageBox(Application.Handle, Pchar('É permitido apenas arquivos JPG!')
, Pchar('Falha ao carregar Imagem!'), MB_OK+MB_ICONWARNING);
end;
end;
end;
estou usando o seguinte código para leitura e gravação:
var
jpg : TJPEGImage;
begin
if odImagemNFE.Execute then
begin
odImagemNFE.Filter := 'jpg|*.jpg|';
try
dmDados.cds_nfe.Edit; //coloca tabela nota em modo de edição
jpg := TJPEGImage.Create; //criação a instancia na classe TBitmap
dmDados.cds_nfeimg_nfe.LoadFromFile(odImagemNFE.FileName); //grava no banco
jpg.LoadFromFile(odImagemNFE.FileName); //carrega imagem na instancia bit
DBImage.Picture.Assign(jpg); //assimila bit para dbImagem(mostra imagem no formulario)
jpg.Free; //distroi instancia da img (libera memoria)
except
on E:Exception do
begin
jpg.Free;
MessageBox(Application.Handle, Pchar('É permitido apenas arquivos JPG!')
, Pchar('Falha ao carregar Imagem!'), MB_OK+MB_ICONWARNING);
end;
end;
end;
Tulio Santana
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)