请教：怎样把一个文件以流的形式写入到SQLSERVER2000的数据表中

Question

SQLserver2000字段类型用image;
具体方法：
//保存 
procedure TForm1.ImageIntoDBBitBtnClick(Sender: TObject); 
begin 
  try 
    with Query1 do 
      begin 
        close; 
        sql.clear; 
        sql.add('insert into img (imga) values(:imag)'); 
      end; 
    try 
      if FileName<>'' then 
        ParamByName('Img').LoadfromFile(FileName,ftGraphic) 
      else 
        ParamByName('Img') .asBlob:=''; 
      Query1.ExecSQL; 
    except 
      ShowMessage('图片保存出错！'); 
      exit; 
    end; 
  except 
  end; 
end; 
 

Answer 1

字段类型为 ImageTBlobField(AdoTable1.fieldbyname('file')).loadfromstream;//或 loadfromfile