Moacir Desculpa minha ignorância, mas o fato de eu passar uma imagem BMP para uma Stream vai alterar o tamanho físico dela? att. Juliano
_____ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Moacir - GMail Enviada em: segunda-feira, 7 de abril de 2008 11:55 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] <<< ClientDataSet BMP x JPG >>> Juliano, Vc deve usar uma Stream para isto: procedure GravaLogo; var msImagemS, msImagemR : TMemoryStream; begin //-- Gravar os logotipos no banco como JPEG msImagemS := TMemoryStream.Create; msImagemR := TMemoryStream.Create; With IBSQL1 do Try If Not IBTran1.InTransaction then IBTran1.StartTransaction; SQL.Clear; SQL.Add('UPDATE EMPRESAS SET LOGOSCREEN=:LOGOSCREEN, LOGORELATO=:LOGORELATO '); SQL.Add(' Where CODIGO=:CODIGO'); ParamByName('CODIGO' ).AsString :=cdsEmpresa.FieldByName('CODIGO' ).AsString; ImgLOGOSCREEN.Picture.Graphic.SaveToStream(msImagemS); ParamByName('LOGOSCREEN').LoadFromStream(msImagemS); ImgLOGORELATO.Picture.Graphic.SaveToStream(msImagemR); ParamByName('LOGORELATO').LoadFromStream(msImagemR); ExecQuery; IBTran1.Commit; Except On E: exception do Begin IBTran1.Rollback; StatusBar1.SimpleText:=''; ShowMessage('Erro ao gravar Logotipos da empresa ! '+#13+e.Message); end; End; FreeAndNil(msImagemS); FreeAndNil(msImagemR); end; [ ]´s Moacir Juliano Silva - Yahoo escreveu: > > Não, assim não funciona... já tentei... > > _____ > > De: [EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br> os.com.br [mailto:[EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br> os.com.br] Em > nome de Alexandre Nicolas > Enviada em: segunda-feira, 7 de abril de 2008 08:44 > Para: [EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br> os.com.br > Assunto: Re: [delphi-br] <<< ClientDataSet BMP x JPG >>> > > > > Se não me engano, basta colocar na cláusula "uses" a unit "Jpeg" que ele > passa a aceitar o JPG. > > PS: Tudo que respondo nessa lista demora uma eternidade para chegar no > grupo... > pra vocês terem uma idéia: > agora são 08h41 da manhã do dia 7/4...vamos ver quando essa resposta chega > na lista... > Desse ser um problema crônico do yahoo groups...poderíamos discutir a idéia > de migrar > o grupo para o GoogleGroups hein...está muito melhor e mais moderno que o > yahoo...está aberta a discussão. > > []s > > Alexandre NIcolas > > ----- Original Message ----- > From: Juliano Silva - Yahoo > To: [EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br> os.com.br > Sent: Monday, April 07, 2008 8:33 AM > Subject: [delphi-br] <<< ClientDataSet BMP x JPG >>> > > Pessoal > > Estou fazendo a captura de imagem dos clientes (com webcam) mas o > ClientDataSet não aceita que eu coloque no banco uma imagem no formato JPG, > apenas BMP... como estou fazendo: > > 1. Capturo a foto da WebCam, esta é salva como BMP > 2. Converto para JPG a foto pois fica muito menor então fico com 2 imagens > (Imagem.bmp e Imagem.jpg) > 3. Carrego o campo com a imagem JPG mas não funciona, apenas como BMP > funciona. > > [ FUNCIONA ] edCLI_IMG_FOTO.Bitmap.LoadFromFile('Imagem.bmp'); > [ NAO FUNCIONA ] edCLI_IMG_FOTO.Bitmap.LoadFromFile('Imagem.jpg'); > [ NAO FUNCIONA ] edCLI_IMG_FOTO.LoadFromFile('Imagem.jpg'); > > ****** PORQUE NÃO FUNCIONA JPG ? ******** > > Utilizo o Firebird 1.5 o campo CLI_IMG_FOTO é do tipo BLOB 0 > > att. > > Juliano Silva > > [As partes desta mensagem que não continham texto foram removidas] > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > > [As partes desta mensagem que não continham texto foram removidas] > > > ------------------------------------ > > [As partes desta mensagem que não continham texto foram removidas]
