图片存入数据库的问题

Question

var
  MyBlob: TStream;
  Myfs:TFileStream;
begin
  path:='D:\ICON\exit.bmp';
  Table1.Active:=true;
  table1.Last;
  table1.Insert;
  try
  begin
    MyBlob:=table1.CreateBlobStream(table1.FieldByName('photo'),bmReadWrite);
    MyBlob.Seek(0, soFromBeginning);
    Myfs:= TFileStream.Create(path, fmOpenRead);
    try
    begin
      MyBlob.CopyFrom(Myfs, Myfs.Size);
    end;
    finally
      Myfs.Free
    end;//try
  end;
  finally
    MyBlob.Free
  end;  //try
  table1.Post;//当图片大于100K时报错 Ivalide Blob Length不知哪里有错请指教.我用的数据库是SQL SERVER 2000
end;

Answer 1

你的代码没有错误，数据库默认的BLOBSIZE为100K，你只需要把数据库的BLOBSIZE扩大一点就可以了；
自己找一下配置选项，OK