Imagens Em Um Banco De Dados

[koala]

Como faço para colocar imagens dentro de um banco de dados como o paradox?

e queria saber se eu posso colocar fotos JPG ou só bitmap.

eu gostaria que tivesse uma combo box e quando eu soltar em um item dai o conteudo aparece em uma Dbedit mas no caso da foto preciso que aparece em uma DBimage ou outra coisa parecida.

é urgente

Obrigado desde já.

[DELPHI-Man32]

Gravar imagem JPG em tabela Paradox
--------------------------------------------------------------------------------
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;

[DELPHI-Man32]

Caso Queirz colocar num banco Intebase é mais facil ainda:

cria a tabela no interbase

CREATE TABLE "FOTO"
(
"COD" INTEGER NOT NULL,
"FOTO" BLOB SUB_TYPE 0 SEGMENT SIZE 1,
CONSTRAINT "PK_FOTO" PRIMARY KEY("COD")
);

NO DELPHI, você COLOCA UM COMPONENTE "OPENPICTUREDIALOG" COLOCA UM BOTÃO "FOTO" E NO EVENTO "ONCLICK" COLOCA ASSIM:

begin
IF openpicturedialog.execute then
IBDataSetFOTO.LoadFromFile(openpicturedialog.FileName);
end;

até mais...

[koala]

mais dá pau nessa linha

IBDataSetFOTO.LoadFromFile(openpicturedialog.FileName);

[DELPHI-Man32]

obs: no caso do InterBase grave imgens *bmp!

você deve usar os componentes da peleta InteBase "IBDataBase, IBDataSet, IBTransaction e Um DataSource da Paleta DataAccess..

coloca o erro que dá ae!!