十分恳求

Question

请问利用delphi怎样在sql server2000中实现对图片、声音和视频等多媒体文件的存储和调用？

Answer 1

用内存流的方法看一下这个例子http://expert.csdn.net/Expert/topic/2844/2844005.xml?temp=.3278467

Answer 2

用 BolbStream，名字可能有误。

Answer 3

可以保存任何文件jpeg,pdf,wav 等。
delphi7+sql2000+win2000通过!unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls, shellapi,Buttons;type
  TForm1 = class(TForm)
    OpenDialog1: TOpenDialog;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
   s:string;
implementation{$R *.dfm}procedure TForm1.BitBtn1Click(Sender: TObject);begin
 if OpenDialog1.Execute then
  begin
    if not ADOQuery1.Active then ADOQuery1.Open;
    ADOQuery1.Append;
    s :=ExtractFileName(OpenDialog1.FileName);
    (ADOQuery1.FieldByName('doc') as TBlobField).LoadFromFile(OpenDialog1.filename);
     ADOQuery1.Post;end;
end;procedure TForm1.BitBtn2Click(Sender: TObject);   begin
  (ADOQuery1.FieldByName('doc') as TBlobField).savetoFile(ExtractFileDir(Application.ExeName)+s);
  shellexecute(handle,nil,pchar(s),nil,nil,sw_shownormal);end;end.

Answer 4

sql2000中的数据'doc'格式为 image 格式。。

Answer 5

adoBS: TADOBlobStream;adoBS := TADOBlobStream.Create(Dset.Fields[nI]
                  as TBlobField, bmRead);
try
  adoBS.ReadBuffer(aMachFing[0], COLL_FINGER_DATA);
finally
  adoBS.Free;
end;如果是BDE的则用TBlobStream  具体可查帮助