[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]
Re: [delphi-br] ClientDataSet BMP x JPG
Bom dia Juliano!
Dá uma olhadinha nessas duas dicas, pode ser que elas te ajudem um pouco.
[ http://www.swissdelphicenter.ch/torry/showcode.php?id=2012 ]
[ http://www.swissdelphicenter.ch/torry/showcode.php?id=1883 ]
Atte,
Ricardo.
Juliano Silva - Yahoo [EMAIL PROTECTED] escreveu:
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]
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
[As partes desta mensagem que não continham texto foram removidas]
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]
Re: [delphi-br] ClientDataSet BMP x JPG
tente assim:
edCLI_IMG_FOTO. picture.LoadFromF ile('Imagem. bmp');
[ NAO FUNCIONA ]
Juliano Silva - Yahoo [EMAIL PROTECTED] escreveu:
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]
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
[As partes desta mensagem que não continham texto foram removidas]
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: delphi-br@yahoogrupos.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]
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]
