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
PROTECTED] Em
nome de Carlos
Enviada em: segunda-feira, 18 de agosto de 2008 23:50
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: RES: RES: Res: [delphi-br] Salvar uma imagem
Meu camarada, boa noite!
Você informou que a imagem já está salva no banco de dados em formato
JPG correto.
Em caso
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
Bom dia Carlos,
Sem querer abusar da sua boa vontade, poderia me passar a função ExibeFoto.
Anteriormente você me passou a Grava_Imagem_JPEG, não tenho este ExibeFoto.
Obrigado.
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Carlos
Enviada em:
É claro meu camarada, não é abuso nenhum, aliás, é uma correção, haja
vista eu achava que já a tinha enviado.
procedure ExibeFoto(DataSet : TDataSet; BlobFieldName : String;
ImageExibicao : TImage);
var
BlobStream : TStream;
JpegImage : TJPEGImage;
bitmap:TBitMap;
begin
BlobStream :=
@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Carlos
Enviada em: segunda-feira, 18 de agosto de 2008 09:54
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: RES: Res: [delphi-br] Salvar uma imagem
É claro meu camarada, não é abuso nenhum, aliás, é uma correção, haja
vista eu achava que já
Meu camarada, boa noite!
Você informou que a imagem já está salva no banco de dados em formato
JPG correto.
Em caso afirmativo, eu pus no meu form um TImage(propriedade visible =
false), e usei a função ExibeFoto para inseri-la no TImage desta forma:
TImage.Picture := nil;
ExibeFoto(Nome do
7 matches
Mail list logo