Aramazenar Imagem em campo Blob

Delphi

20/02/2004

Pessoal,

Como faço pra jogar uma Imagem (.jpg) pra dentro de um campo Blob ?

Se for um arq. Bmp, ele armazena legal , conforme abaixo ,
ClientDataSet1.Edit;
ClientDataSet1IM_ASSINATURA.LoadFromFile(´C:\Temp\Omagem1.bmp´);
ClientDataSet1.Post;

Porém se eu colocar um .jpg

ClientDataSet1.Edit;
ClientDataSet1IM_ASSINATURA.LoadFromFile(´C:\Temp\Omagem1.jpg´);
ClientDataSet1.Post;

Ele dá a mensagem : Bitmap image is not Valid .
Algum sugestão ?

Allan


Allan

Allan

Curtidas 0

Respostas

Mmtoor

Mmtoor

20/02/2004

Armazene somente o path da imagem.
Carlos


GOSTEI 0
Edilcimar

Edilcimar

20/02/2004

inclua jpeg em uses


GOSTEI 0
Vieira_alex

Vieira_alex

20/02/2004

Tente assim:

acrescente na cláusula uses

JPeg, CLIPBRD;


Acrescente um objeto OpenPictureDialog e um DBImage no seu form.
No evento OnDblClick acrescente o código abaixo.

procedure TFAluno.DBImage1DblClick(Sender: TObject);
var
imagem : tPicture;
begin
if OpenPictureDialog1.execute then
begin
imagem := tPicture.create();
imagem.LoadFromFile(OpenPictureDialog1.FileName);
clipboard.Assign(imagem);
DBImage1.PasteFromClipboard;
imagem.Free;
end;
end;


GOSTEI 0
POSTAR