아래는 JPeg화일을 DB에 입력하고 불러내는..
샘풀 소스입니다..
Delphi 3.0에서 제공하는 JPeg Unit를 사용했습니다.,
Table은 DBDEMOS에 있는 Animals.DBF를 그대로 사용했습니다..
필드에디터로 필드들을 등록하신 후 사용하세요..

From 류..

---------

implementation

Uses
    JPeg;

Procedure LoadJPegToBitmap(FileName:String; Bitmap:TBitmap);
Var
   JPEGImage : TJPEGImage;
Begin
  JPEGImage:= TJPEGImage.Create;
  With JPEGImage do
    Begin
      LoadFromFile(FileName);
      With Bitmap do
        Begin
          Width:=  JPEGImage.Width;
          Height:= JPEGImage.Height;
          Canvas.Draw(0, 0, JPEGImage);
        End;
      Free;
    End;
End;

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
Var
   fsJPeg : TFileStream;
Begin
  If OD.Execute then
     Begin
       fsJPeg:= TFileStream.Create(OD.FileName, fmOpenRead);
       Table1.Edit;
       Table1BMP.LoadFromStream(fsJPeg);
       Table1.Post;
       fsJPeg.Free;
     End;
end;

procedure TForm1.Table1AfterScroll(DataSet: TDataSet);
Var
   fsJPeg : TFileStream;
begin
  fsJPeg:= TFileStream.Create('C:\a.jpg', fmCreate);
  Table1BMP.SaveToStream(fsJPeg);
  fsJPeg.Free;
  LoadJPegToBitmap('C:\a.jpg', Image1.Picture.Bitmap);
end;