如何将一个JPEG文件保存到数据库(SQL server2000)?

Question

求教！

Answer 1

With ADOQuery1 do
begin
  If OpenPictureDialog1.Execute then
  begin
    Edit;
    TBlobField(FieldByName('Image')).LoadFromFile(OpenPictureDialog1.FileName);
    Post;
  end;
end;

Answer 2

filestream := tfileStream.create(OpenPictureDialog1.FileName);
TBlobField(FieldByName('Image')).LoadFromStream(filestream);

Answer 3

procedure TForm1.SpeedButton2Click(Sender: TObject);
var
  t1 : TTable;
  mstream1 : TMemoryStream;
//  jpeg : TJPEGImage;
begin
//  jpeg := TJPEGImage.Create ;
  t1 := TTable.Create(nil);
  t1.DatabaseName := db1.DatabaseName ;
  t1.TableName := 'T_BASE';
  t1.Open;
  t1.First ;
  while not t1.Eof do
    begin
      if t1.FieldByName('id').AsInteger  = nCurrentRec then
      begin
        mstream1 := TMemoryStream.Create;
//        TBlobField(t1.FieldByName('image')).SaveToFile('c:\temp.bmp');
//        imageBase.Picture.Bitmap.LoadFromFile('c:\temp.bmp');
        TBlobField(t1.FieldByName('image')).SaveToStream(mstream1) ;
        mstream1.Position := 0;
//        TBlobField(t1.FieldByName('image')).SaveToFile ('c:\2.jpg');
//        imageBase.Picture.LoadFromFile('c:\2.jpg');
        imageBase.Picture.Bitmap.LoadFromStream(mstream1);//bmp文件
//        jpeg.LoadFromStream(mstream1);//JPEG文件
//        imageBase.Picture.Assign(jpeg);
//        imageBase.Picture.Bitmap.SaveToFile('c:\temp.bmp');
{        if  OpenDialog1.Execute then
        begin
          if FileExists(OpenDialog1.FileName) then
          begin
            imageBase.Picture.LoadFromFile(OpenDialog1.FileName);
          end;
        end;}
        imageBase.AutoSize := true;
        DBGrid1.Visible := false;
        imageBase.Show ;
        imageBase.OnClick := imageBaseClick;
        mstream1.Free ;
      end;
      t1.Next;
    end;
  t1.Close;
  t1.Free;
end;