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]
>
>
> ------------------------------------
>
>
