[resolvido] Como Salvar No Bd No Formato Jpeg

[jo_user]

Bom dia a todos, estou com uma dúvida quando salvo imagens para o banco de dados (Firebird), utilizo o componente DBimage, consigo salvar fotos no banco no formato bmp, porém, num formato reduzido não é possível (Jpeg), lembrando que declarei na uses o formato Jpeg.

Utilizo o código abaixo para capturar a imagem;

OpenPictureDialog.Execute;

if OpenPictureDialog.FileName <> '' then

DbImage1.Picture.LoadFromFile(OpenPictureDialog.Filename);

Funciona apenas em Bmp, obrigado pela atenção.

[Eder]

Ola...Eu uso esta dica...

CODIGO COM ARQUIVOS JPG:

procedure TForm2.AOLButton1Click(Sender: TObject);
VAR
jpg: TJpegImage;
begin
if OpenPictureDialog1.Execute then
begin
jpg := TJpegImage.Create;
jpg.LoadFromFile(OpenPictureDialog1.FileName);
clipboard.Assign(jpg);
DBImage1.PasteFromClipboard;
jpg.Free;
end;
END;

No Uses

jpeg, Clipbrd

ve se serve pra você

Espero que te ajude...t+ ;)

[jo_user]

Obrigado, funcionou, uma forma bem fácil de trabalhar com imagens.