Fórum JPG no DBImage. #167880
04/07/2003
0
Como vizualizar imagens JPG dentro de um DBImage? Pois eu não estou conseguindo. Já coloquei a unit JPEG, na aplicação, consigo gravar, mas não consigo visualizá-las. O DBImage está dentro de CtrlGrid, para q eu possa visualizar várias fotos ao mesmo tempo. Por ex: Se eu gravo, 5 fotos do imóvel, no DBCtrlGrid, vem 5(DBImage), mas todos vazios, sem as fotos. Agora, o q eu acho estranho é q, qdo vou cadastrar a foto, ela aparece antes do post, logo após o post, ela some e na apresentação ela não aparece.
Paulo
Curtir tópico
+ 0
Responder
Posts
04/07/2003
Carnette
Esta é a idéia...Voce deve adaptar para uso na sua forma como vc chama os campos da tabela..
Ler imagem JPG da tabela Paradox
Procedure Le_Imagem_JPEG(Campo:TBlobField; Foto:TImage);
var BS:TBlobStream;
MinhaImagem:TJPEGImage;
Begin
if Campo.AsString <> ´´ Then
Begin
BS := TBlobStream.Create((Campo as TBlobField), BMREAD);
MinhaImagem := TJPEGImage.Create;
MinhaImagem.LoadFromStream(BS);
Foto.Picture.Assign(MinhaImagem);
BS.Free;
MinhaImagem.Free;
End
Else Foto.Picture.LoadFromFile(´c:\temp\limpa.jpg´);
End;
procedure TForm1.Button1Click(Sender: TObject);
begin
Le_Imagem_JPEG(TbClientesCli_Foto, Image1);
// TbClientesCli_Foto é um variavel da tabela do tipo Blob
// Image1 é um componente
end;
Ler imagem JPG da tabela Paradox
Procedure Le_Imagem_JPEG(Campo:TBlobField; Foto:TImage);
var BS:TBlobStream;
MinhaImagem:TJPEGImage;
Begin
if Campo.AsString <> ´´ Then
Begin
BS := TBlobStream.Create((Campo as TBlobField), BMREAD);
MinhaImagem := TJPEGImage.Create;
MinhaImagem.LoadFromStream(BS);
Foto.Picture.Assign(MinhaImagem);
BS.Free;
MinhaImagem.Free;
End
Else Foto.Picture.LoadFromFile(´c:\temp\limpa.jpg´);
End;
procedure TForm1.Button1Click(Sender: TObject);
begin
Le_Imagem_JPEG(TbClientesCli_Foto, Image1);
// TbClientesCli_Foto é um variavel da tabela do tipo Blob
// Image1 é um componente
end;
Responder
Gostei + 0
04/07/2003
Aroldo Zanela
Paulo,
Dê uma olhada neste link: http://www.forumweb.com.br/index.php?showtopic=1935&hl=jpeg
Dê uma olhada neste link: http://www.forumweb.com.br/index.php?showtopic=1935&hl=jpeg
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)