Fórum Aramazenar Imagem em campo Blob #215828

20/02/2004

0

Delphi

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

Responder

Posts

29/02/2004

Mmtoor

Armazene somente o path da imagem.
Carlos


Responder

Gostei + 0

29/02/2004

Edilcimar

inclua jpeg em uses


Responder

Gostei + 0

29/02/2004

Vieira_alex

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;


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar