怎样将影音文件以二进制的形式上传到数据库中?
也就是像电影,flash文件以二进制的形式上传到数据库中,并对其进行添加,修改,删除等操作! 请高手帮忙了
解决方案 »
- 大家讨论下DELPHI面向对象编程的方面。很少人讨论这个。
- 怎么用delphi模仿 windows text copyer的功能?抓取屏幕上的文字
- Delphi7写了个程序,昨天还好的,今天在编译执行时出现Debugger exception'Property BCDToCurrency does not exist',有知道的吗?
- delphi TEMbeddedWB与IDHttp怎么结合解决需要登录的网页文件下载
- 请问如何获取EXE文件的版本号?
- 如何实现这个功能
- Delphi中如何判断某个Object是XX接口的一个实例?
- 急!!!在线等!!!
- delphi中能用BCB中的控件吗??
- 高手指教
- 有关ReadProcessMemory的问题?
- 原来今天是我生日啊, 我都给忘了, 刚刚中国联通发来短信我才知道, 汗! 散分100
var ms: TMemoryStream;
begin
if not fileExists(filename) then
begin
showmessage('file error or unknown error');
result := false;
exit;
end;
DM.DSTTEMP.Active := false;
DM.DSTTEMP.CommandText := 'select * from ' + tableName;
DM.DSTTEMP.Active := true;
if DM.DSTTEMP.RecordCount = 0 then
DM.DSTTEMP.Append
else if DM.DSTTEMP.RecordCount = 1 then
DM.DSTTEMP.Edit
else
begin
showmessage('bsf error');
result := false;
exit;
end;
DM.DSTTEMP.FieldByName('ext').AsString := extractFileExt(filename);
DM.DSTTEMP.FieldByName('Name').AsString := extractFileName(filename);
DM.DSTTEMP.FieldByName('bsf').AsString := self.dataBSF;
ms := TMemoryStream.Create;
ms.LoadFromFile(filename);
(DM.DSTTEMP.FieldByName('Data') as TBlobField).LoadFromStream(ms);//Data字段的数据类型为OLE对象
DM.DSTTEMP.Post;
result := true;
end;