Res: [delphi-br] ClientDataSet BMP x JPG
Para trabalhar com Jpg no Delphi, vc deve declarar a unit JPEG no uses da unit. Procure sobre essa unit no help do Delphi que vc vai achar muito informaçao útil. Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] ClientDataSet BMP x JPG
Não, assim não funciona... já tentei... _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Alexandre Nicolas Enviada em: segunda-feira, 7 de abril de 2008 08:44 Para: delphi-br@yahoogrupos.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]
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: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Alexandre Nicolas Enviada em: segunda-feira, 7 de abril de 2008 08:44 Para: delphi-br@yahoogrupos.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]
RES: RES: [delphi-br] ClientDataSet BMP x JPG
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]