Bom dia Carlos,
Me desculpa a ignorância.. mas ainda não consegui exibir a imagem no Timage
para salva-la.
Salvar a imagem do Timage tudo bem.. mas o erro da quando vou atribuir a
imagem do campo da tabela paradox para o compomente.
Na função ExibeFoto quando é executada, como ele verifica se é JPG ou
BPM.. pq ele sempre executa esta parta do código como se fosse um JPG.
JpegImage := TJPEGImage.Create;
try
JpegImage.LoadFromStream(BlobStream); // neste nomento da o
erro, ele não consegui ler a imagem, da JPEG error #53
Por isto acho q as fotos salvas no banco são BMP.
ImageExibicao.Picture.Assign(JpegImage);
ImageExibicao.Center:=true;
finally
BlobStream.Free;
JpegImage.Free;
end;
na parte do BMP não deveria carregar a imagem como no JPG
JpegImage.LoadFromStream(BlobStream); como ele mostraria a imagem no
componente sem
atribuir Bitmat
Bitmap:=TBitMap.Create;
Try
Bitmap.Width:=1;
Bitmap.Height:=1;
ImageExibicao.Picture.Assign(BitMap);
ImageExibicao.Center:=false;
finally
Bitmap.Free;
BlobStream.Free;
end;
Dimas.
_____
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Carlos
Enviada em: terça-feira, 19 de agosto de 2008 12:29
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: RES: RES: Res: [delphi-br] Salvar uma imagem
Não tem problema meu camarada!
Apenas mude a linha
img1.Picture.SaveToFile('Caminho' + NomeDoArquivo);
Exemplo:
img1.Picture.SaveToFile('C:\Monit\bin\arqs\' +
dmCadastro.cdsFotoFoto.Value);
O 'NomeDoArquivo' é o campo da tabela onde se encontra a imagem no
banco de dados.
Espero ter ajudado, mas qualquer coisa, estamos ai.
Fraterno abraço,
Carlos
No virus found in this incoming message.
Checked by AVG - http://www.avg.com
Version: 8.0.138 / Virus Database: 270.6.5/1620 - Release Date: 19/8/2008
06:04
[As partes desta mensagem que não continham texto foram removidas]
