sqlserver 中怎样存入图片,视频

字段类型为image，sql 7
var
  s : TMemoryStream;
begin
  s := TMemoryStream.Create;
  s.LoadFromFile('C:\temp.dwg');
  s.Position := 0;
  with ADOQuery1 do begin
    Close;
    SQL.Clear;
    SQL.Add('insert into drawdwg (tabno,filedwg) values (:no,:dwg)');
    Parameters.ParamByName('no').Value := Edit1.Text;
    Parameters.ParamByName('dwg').LoadFromStream(s,ftBlob);
    Execsql;
  end;
  s.Free;
  showmessage('save ok!');
end;//这是保存cad文件的with ADOQuery1 do begin
    Close;
    SQL.Clear;
    SQL.Add('select filedwg from drawdwg where tabno = :no');
    Parameters.ParamByName('no').Value := Edit1.Text;
    Open;
    if RecordCount = 0 then begin
      showmessage('no find result !');
      Exit;
    end;
  end;
  deletefile('c:\temp.dwg');
  s := TADOBlobStream.Create(TBlobField(ADOQuery1.FieldByName('filedwg')),bmRead);
  s.SaveToFile('c:\temp.dwg');
  s.Free;
//读出该文件；