大大好： 我在利用blobstream把图片添加到数据库中,为什么报数据集没有处于编辑模式i？ 多谢大大费心了。。     

 
var
  BmpDlg: TOpenPictureDialog;
  ADOBlobStream: TADOBlobStream;
begin
//设置（更新/添加）的图片
//打开对话框，选择图形bmp
//利用dataset保存至数据库
  bmpDlg := TOpenPictureDialog.Create(nil);
  try
    bmpDlg.Filter := 'BitMap  (*.bmp)|*.BMP';
    bmpDlg.InitialDir := '.\image';
    if bmpDlg.Execute then
    begin
      if ADODataset1.FieldbyName('OBJBMP').IsBlob then
      begin
        ADODataset1.Edit;
        ADOBlobStream := TADOBlobStream.Create(TBlobField(ADODataset1.FieldbyName('OBJBMP')), bmwrite);
        try
          ADOBlobStream.LoadFromFile(bmpDlg.FileName);              TBlobField(ADODataset1.FieldByName('OBJBMP')).LoadFromStream(ADOBlobStream);
          ADODataset1.Post;
        finally
          ADOBlobStream.Free; 报错未处于编辑状态 
        end;
      end;
    end;
  finally
    bmpDlg.Free;
  end;

 
var
  BmpDlg: TOpenPictureDialog;
  ADOBlobStream: TADOBlobStream;
begin
//设置（更新/添加）的图片
//打开对话框，选择图形bmp
//利用dataset保存至数据库
  bmpDlg := TOpenPictureDialog.Create(nil);
  try
    bmpDlg.Filter := 'BitMap  (*.bmp)|*.BMP';
    bmpDlg.InitialDir := '.\image';
    if bmpDlg.Execute then
    begin
      if ADODataset1.FieldbyName('OBJBMP').IsBlob then
      begin
       ADODataset1.Active:=True;
        ADODataset1.Edit;
        ADOBlobStream := TADOBlobStream.Create(TBlobField(ADODataset1.FieldbyName('OBJBMP')), bmwrite);
        try
          ADOBlobStream.LoadFromFile(bmpDlg.FileName);              TBlobField(ADODataset1.FieldByName('OBJBMP')).LoadFromStream(ADOBlobStream);
          ADODataset1.Post;
        finally
          ADOBlobStream.Free; 报错未处于编辑状态 
        end;
      end;
    end;
  finally
    bmpDlg.Free;
  end;

引言:

 
var
  BmpDlg: TOpenPictureDialog;
  ADOBlobStream: TADOBlobStream;
begin
//设置（更新/添加）的图片
//打开对话框，选择图形bmp
//利用dataset保存至数据库
  bmpDlg := TOpenPictureDialog.Create(nil);
  try
    bmpDlg.Filter := 'BitMap  (*.bmp)|*.BMP';
    bmpDlg.InitialDir := '.\image';
    if bmpDlg.Execute then
    begin
      if ADODataset1.FieldbyName('OBJBMP').IsBlob then
      begin
//******************************
//不行啊，数据集本来就是处于激活状态的
        ADODataset1.Active:=True;  
        ADODataset1.Edit;
        ADOBlobStream := TADOBlobStream.Create(TBlobField(ADODataset1.FieldbyName('OBJBMP')), bmwrite);
        try
          ADOBlobStream.LoadFromFile(bmpDlg.FileName);              TBlobField(ADODataset1.FieldByName('OBJBMP')).LoadFromStream(ADOBlobStream);
          ADODataset1.Post;
        finally
          ADOBlobStream.Free; 报错未处于编辑状态 
        end;
      end;
    end;
  finally
    bmpDlg.Free;
  end;

您己經執行了 Post 動作才執行 ADOBlobStream.Free; 的動作 所以先執行 ADOBlobStream.Free; 的動作再做 Post 的動作 -- Everything I say is a lie. 發表人 - hagar 於 2004/06/28 18:23:42

多谢Hagar大大！程序运行成功了！ 有一点不明白：为什么先執行 ADOBlobStream.Free; 的動作再做 Post 的動作？     

 
ADODataset1.Edit;
        ADOBlobStream := TADOBlobStream.Create(TBlobField(ADODataset1.FieldbyName('OBJBMP')), bmwrite);
        try
          ADOBlobStream.LoadFromFile(bmpDlg.FileName);
          TBlobField(ADODataset1.FieldByName('OBJBMP')).LoadFromStream(ADOBlobStream);
        finally
        //BlobStream释放以后，数据集才可以post
          ADOBlobStream.Free;
          ADODataset1.Post; 
        end;
      end;

看了一下 Source 在 TADOBlobStream 的 Destroy procedure 中 執行了 FDataSet.SetFieldData(FField, @FData); 再看 SetFieldData procedure 的內容 有這麼一行: if not (State in dsWriteModes) then DatabaseError(SNotEditing, Self); 最後看 dsWriteModes 的內容: dsWriteModes = [dsEdit, dsInsert, dsSetKey, dsCalcFields, dsFilter, dsNewValue, dsInternalCalc]; 相信您應該了解為什麼要先執行 ADOBlobStream.Free; 後再執行 Post 的動作了 -- Everything I say is a lie.