procedure TframStartStudy.BitBtn8Click(Sender: TObject);
var
sFileName : string;
fStream:TFilestream;//to load the rm file
bStream:TBlobstream;//to save to the bolb
begin
if OpenDialog1.Execute then
begin
sFileName :=OpenDialog1.FileName ;
fStream := tFilestream.Create(sFileName,fmOpenread);
with Table1 do
begin
TableName :='aaa';//指定你自己的表名
Open;
Append;
//为Element字段创建一个blobstream
bStream := TBlobstream(Table1.CreateBlobStream(Table1.FieldByName('SoundFile'),bmReadWrite));//指定你自己的字段名
//移动到stream的首位
bStream.seek(0,soFromBeginning);
//清空流数据
if bStream.Size<>0 then
bStream.truncate;
//将filestream的内容拷贝到blobstream
bStream.copyfrom(fStream,fStream.size);
//释放流
fStream.free;
bStream.free;
//添加记录
try
post;
except
end;
end;
end;
end;
这是我现在在用的,什么图片,音频,都可以载入.