如何将多媒体文件保存到Oracle数据库中？

Question

现在我机器上有一个视频文件，要存到数据库中，是用什么方法把它存到数据库中呢？？？？那位高手能否说得详细一点！！！是用语句还是用函数？？？

Answer 1

你看能不能利用流存到oracle数据库的某个字段，那个字段的变量类型要求支持视频文件
我记得有个声音文件可以保存的

Answer 2

procedure TMainForm.sbPlayClick(Sender: TObject);
var
  B: TBlobStream;
  M: TMemoryStream;
begin
  B := TBlobStream.Create(tblSoundsWave, bmRead); // create blob stream
  Screen.Cursor := crHourGlass;                   // wait hourglass
  try
    M := TMemoryStream.Create;                    // create memory stream
    try
      M.CopyFrom(B, B.Size);             // copy from blob to memory stream
      // Attempt to play sound.  Raise exception if something goes wrong
      Win32Check(PlaySound(M.Memory, 0, SND_SYNC or SND_MEMORY));
    finally
      M.Free;
    end;
  finally
    Screen.Cursor := crDefault;
    B.Free;                                       // clean up
  end;
end;procedure TMainForm.sbAddClick(Sender: TObject);
begin
  if OpenDialog.Execute then
  begin
    tblSounds.Append;
    tblSounds['FileName'] := ExtractFileName(OpenDialog.FileName);
    tblSoundsWave.LoadFromFile(OpenDialog.FileName);
    edTitle.SetFocus;
  end;
end;procedure TMainForm.sbSaveClick(Sender: TObject);
begin
  with SaveDialog do
  begin
    FileName := tblSounds['FileName'];    // initialize file name
    if Execute then                       // execute dialog
      tblSoundsWave.SaveToFile(FileName); // save blob to file
  end;
end;

Answer 3

delphi5开发人员指南上的代码，先看看

Answer 4

用TFileStream吧，可以搞定任何文件。//ADOTable
var
  TmpFileStream : TFileStream;
begin 
  ...
  open;
  locate...
  edit;
  if FileExists(trim(edtFileName.Text)) then begin
  TmpFileStream := TFileStream.Create(trim(edtFileName.Text), fmOpenRead);
  try
    TBlobField(FieldByName('ImageField')).LoadFromStream(TmpFileStream);              
    Post;
  finally
    TmpFileStream.Free;
  end;
end;

Answer 5

楼上的兄弟
如果用adoquery则，应该怎么来做呢？？？