RES: RES: [delphi-br] <<< ClientDataSet BMP x JPG >>>

2008-04-07 Por tôpico Juliano Silva - Yahoo 
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]

Re: RES: [delphi-br] <<< ClientDataSet BMP x JPG >>>

2008-04-07 Por tôpico Moacir - GMail 
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]  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: [delphi-br] <<< ClientDataSet BMP x JPG >>>

2008-04-07 Por tôpico Juliano Silva - Yahoo 
 
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]  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: [delphi-br] <<< ClientDataSet BMP x JPG >>>

2008-04-07 Por tôpico Andre Luis Silveria 
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]