如何将wav文件存放到access的ole字段中？(100分)

N

notnoname

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-04

• #1

with table1 do
begin
TBlobField(FieldByName('AffairRecord')).LoadFromFile(ExtractFilePath(Paramstr(0))+'Temp.wav');
Post;
end;
我用上面的代码把'temp.wav'存放到'AffairRecord'字段中。
但是我用
OleContainer1.LoadFromStream(TFileStream(Table1.FieldByName('AffairRecord')));
怎么也不管用。
IntToStr(Table1.FieldByName('AffairRecord').size) 显示大小是1;
请大哥们指教。

 

F

flysand

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-04

• #2

OleContainer1.LoadFromStream(TFileStream(Table1.FieldByName('AffairRecord').value));
不知行不行(加了value)

 

A

antic_ant

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-05

• #3

存放到image类型的字段

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-05

• #4

var
stream:TBlobStream;
stream:=TBlobStream.Create( TBlobField(Table1.FieldByName('AffairRecord')),bmRead );
OleContainer1.LoadFromStream(stream);
stream.Free;

 

N

notnoname

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-05

• #5

To FlySand:
系统提示 Invalid Typecast;
To Antic_ant:
不太明白您的意思。有Image类型的吗？
To Pipi:
还是不行啊。我认为原因还是数据更本没存放进去。

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-05

• #6

保存：
var
stream:TBlobStream;
OleContainer1.CreateObjectFromFile(ExtractFilePath(Paramstr(0))+'Temp.wav',false);
Table1.Edit或者Insert;
stream:=TBlobStream.Create(TBlobField(FieldByName('AffairRecord')),bmWrite);
OleContainer1.SaveToStream(stream);
stream.Free;
Table1.Post;

 

N

notnoname

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-24

• #7

算了吧，还是先给分吧。

 

N

notnoname

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-31

• #8

多人接受答案了。