Tem Como Salvar Jpeg Em Paradox?

[vitorbrando]

Ai pessoal minha dúvida é a seguite:

Estou precisando gravar umas fotos no banco de dados, to usando Tabelas Paradox e o campo das fotos é do tipo Graphic... Acontece que consigo carregar e gravar imagens no formato BMP, mas quando carrego fotos em JPEG ele não apresenta erro não, faz como se tivesse gravado mas quando vou ler o registro a imagem não aparece...

Minha pergunta é a seguinte:

- Na tabela Paradox tem como gravar uma imagem no formato JPEG, com o campo tipo Graphic?

- Se sim como fazer? O que devo está fazendo errado? tem que declarar alguma coisa a mais?

Aguardo respostas!!!

Vlw!!!!

[Kikonanet]

Olá,

Veja se te ajuda!

Procedure Grava_Imagem_JPEG(Tabela:TTable; Campo:TBlobField; 
Foto:TImage; Dialog:TOpenPictureDialog);
var BS:TBlobStream;
MinhaImagem:TJPEGImage;
Begin
Dialog.InitialDir := 'c:\temp';
Dialog.Execute;
if Dialog.FileName <> '' Then
Begin
if not (Tabela.State in [dsEdit, dsInsert]) Then
Tabela.Edit;
BS := TBlobStream.Create((Campo as TBlobField), BMWRITE);
MinhaImagem := TJPEGImage.Create;
MinhaImagem.LoadFromFile(Dialog.FileName);
MinhaImagem.SaveToStream(BS);
Foto.Picture.Assign(MinhaImagem);
BS.Free;
MinhaImagem.Free;
Tabela.Post;
DBISaveChanges(Tabela.Handle);
End;
End;

procedure TForm1.Button1Click(Sender: TObject);
begin
Grava_Imagem_JPEG(TbClientes,TbClientesCli_Foto, Image1, 
OpenPictureDialog1);
// TbClientes é o nome de alguma Tabela
// TbClientesCli_Foto é um variavel da tabela do tipo Blob
// Image1 é um componente
// OpenPictureDialog1 é o componente para abrir a figura
end;

Obs: Eu não testei esse código

Abs.

Kiko