[firebase-br] Gravar JPG

Simone simone em mithsan.com.br
Sex Jun 29 17:41:17 -03 2007


Valeu Rodrigo, era isso mesmo!!!

----- Original Message -----
From: "Dominio Informatica" <dominio em engeplus.com.br>
To: "FireBase" <lista em firebase.com.br>
Sent: Friday, June 29, 2007 4:20 PM
Subject: Re: [firebase-br] Gravar JPG


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


______________________________________________
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







Mais detalhes sobre a lista de discussão lista