Olha, eu tenho duas procedures: Uma que lê e outra que grava jpg no banco.
Dá uma olhada ae, talvez te sirva
procedure GravaFoto(Tbl:TDataSet; Campo:TField; Foto:TImage;
OpenDlg:TOpenPictureDialog; AutoStretch: Boolean);
var
BS:TStream;
MinhaImagem:TJPEGImage;
begin
OpenDlg.Filter := 'JPEG Image File (*.jpg)|*.jpg|JPEG Image File
(*.jpeg)|*.jpeg';
OpenDlg.Title := 'Carregar Foto';
if not (Tbl.State in [dsEdit, dsInsert]) then
Tbl.Edit;
if OpenDlg.Execute then
begin
if OpenDlg.FileName <> '' then
begin
BS := Tbl.CreateBlobStream((CAMPO as TBlobField),bmWrite);
MinhaImagem := TJPEGImage.Create;
MinhaImagem.LoadFromFile(OpenDlg.FileName);
MinhaImagem.SaveToStream(BS);
MostraFoto(Tbl,Campo,Foto, AutoStretch);
BS.Free;
MinhaImagem.Free;
end;
end;
end;
procedure MostraFoto(Tbl:TDataSet; Campo:TField; Foto:TImage;
AutoStretch: Boolean);
var
BS:TStream;
MinhaImagem:TJPEGImage;
begin
if Not Campo.IsNull then
begin
BS := Tbl.CreateBlobStream((CAMPO as TBlobField),bmRead);
if BS.Size > 0 then
begin
try
MinhaImagem := TJPEGImage.Create;
MinhaImagem.LoadFromStream(BS);
if AutoStretch then
begin
Foto.Stretch := (MinhaImagem.Width > Foto.Width) or
(MinhaImagem.Height > Foto.Height);
end;
Foto.Picture.Assign(MinhaImagem);
MinhaImagem.Free;
except
end;
enD;
BS.Destroy;
end
else
Foto.Picture.Assign(nil);
end;
Observe que elas recebem como parâmetro um TImage... O TDBImage não funciona
muito bem. Pelo menos comigo não
[]'s
Thiago
----- Original Message -----
From: "drummondfilho" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Wednesday, June 15, 2005 3:01 PM
Subject: [delphi-br] Re: Recuperar imagens do banco
Boa tarde Francisco Thiago,
Estou utilizando sim um Blob para acessar o banco estou usando o Zeos.
O formato da foto não é problema se só puder ser bmp ou jpg depois eu
posso converter quando o usuário for selecionar a foto.
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.323 / Virus Database: 267.7.5/18 - Release Date: 15/6/2005
_______________________________________________________
Yahoo! Acesso Grátis - Internet rápida e grátis.
Instale o discador agora! http://br.acesso.yahoo.com/
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
