[firebase-br] Gravar JPG

[Dominio Informatica]

Boa tarde...

Tive esse mesmo problema anteriormente e aqui na lista me ajudaram muito, 
agora posso dar uma dica:

Salve em Algum Local no Disco, ex(c:\windows\temp) ou qualquer outro lugar 
como bitmap. Depois converta para JPG usando a função

procedure Converte(Arquivo: string);
var
  Bmp: TBitmap;
  JPeg: TJPegImage;
begin
  Bmp := TBitmap.Create;
  try
    Bmp.LoadFromFile(Arquivo);
    JPeg := TJPegImage.Create;
    try
      JPeg.CompressionQuality := 70; { Qualidade: 100% }
      JPeg.Assign(Bmp);
      JPeg.SaveToFile(ChangeFileExt(Arquivo, '.jpg'));
    finally
      JPeg.Free;
    end;
  finally
    Bmp.Free;
  end;
end;

na no botão gravar crie a variavel
var F1:TMemoryStream;

no corpo entre begin e end;
F1 := TMemoryStream.Create();
Converte('c:\windows\temp\foto1.bmp');  // automaticamente criará o arquivo 
Foto1.jpg no mesmo local onde estiver o bmp.
F1.LoadFromFile('c:\windows\temp\foto1.jpg');

// nesse caso eu uso o ibx, em outros tipos de acesso tem que ver...
DM.IBClientes.ParamByName('Foto1').LoadFromStream(F1,FTblob);


Nem precisa agradecer, pois é minha obrigação, muita gente ja me ajudou aq.

T+
Rodrigo.




.
----- Original Message ----- 
From: "Jeferson Oliveira" <jefersonfoliveira em gmail.com>
To: "FireBase" <lista em firebase.com.br>
Sent: Friday, June 29, 2007 4:04 PM
Subject: Re: [firebase-br] Gravar JPG


Simone escreveu:
> O problema é na hora de gravar...Se seleciono o BMP, grava certo, mas
> se seleciono o JPG e mando gravar, ele não dá erro,
> mas não grava...alguém sabe como posso gravar esse Jpg?!?

No Delphi é necessário declarar a unit Jpeg na seção "uses" da classe
que está realizando a gravção ou leitura. Se ainda assim não conseguir
gravar sugiro que procure auxílio em uma lista de discussão sobre
Delphi, pois essa situação não tem relação com o Firebird.


Abraço!
Jeferson Oliveira

______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
Para editar sua configuração na lista, use o endereço 
http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
Para consultar mensagens antigas: http://firebase.com.br/pesquisa