说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

如何在数据库中存放avi文件-Delphi资料

HTML文档下载 WORD文档下载 PDF文档下载
如何在数据库中存放avi文件-Delphi资料

对blob字段的操作只能通过流操作实现,即根据需要先创建一个流,这个流可能是内存流或者是文件流,也可能是其他类型的流。这里流是操作BLOB的通道:通过特定的操作,将BLOB的数据和流中的数据交换,然后再对流数据处理

var

filename:string;

//这里是从系统中取得一个临时文件

function GetTemporaryFileName:string;

//$IFNDEF WIN32

const MAX_PATH=144;

//$ENDIF

var

//$IFDEF WIN32

lppathBuffer:PChar;

//$ENDIF

lpbuffer:PChar;

begin

GetMem(lpBuffer

MAX_PATH);

//$IFDEF WIN32

GetMem(lpPathBuffer

MAX_PATH);

GetTempPath(MAX_PATH

lpPathBuffer);

GetTempFileName(lpPathBuffer

'tmp'

0

lpBuffer);

FreeMem(lpPathBuffer

MAX_PATH);

//$ELSE

GetTempFileName(GetTempDrive('C')

'tmp'

0

lpBuffer);

//$ENDIF

result:=StrPas(lpBuffer);

FreeMem(lpBuffer

MAX_PATH);

end;

//将一个AVI文件写到一个BLOB字段中

Procedure TForm1.Button1Click(Sender:TObject);

var

FileStream:TFileStream;// 将入的AVI文件

BlobStream:TBlobStream;//保存的BLOB流

begin

Application.ProcessMessage;

Button1.Enabled:=false;

Button2.Enabled:=false;

FileStream:=TFileStream.Create('C:\PROGRA~1\BORLAND\DELPHI~1\DEMOS\COOLSTUF\COOL.AVI'

fmOpenRead);

Table1.Edit;

//为Table1AVI字段创建一个BLOBSTREAM

BlobStream:=TBlobStream.Create(Table1AVI

bmReadWrite);

//移动到STREAM的首位

BlobStream.Seek(0

soFromBeginning);

//清空数据流

BlobStream.Truncate;

//将FILESTREAM的内容拷贝到BLOBSTREAM

BlobStream.CopyForm(FileStream

FileStream

size);

//释放流

FileStream.Free;

BlobStream.Free;

//添加记录

Table1.Post;

//使buttons可用

Button1.Enabled:=true;

Button1.Enabled:=true;

end;

// 从BLOB字段中读取一个AVI,然后播放这个文件

Procedure TForm1.Button2Click(Sender:TObject);

var

FileStream:TFileStream;

BlobStream:TBlobStream;

begin

//为AVI字段创建BLOB数据流

BlobStream:=TBlobStream.Create(Table1AVI

bmRead);

if BlobSteam.Size=0 then begin

BlobStream.Free;

Exit;

end;

// 关闭media player

MediaPlayer1.Close;

//重值文件名

MediaPlayer1.FileName:='';

//刷新显示窗口

MediaPlayer1.Display:=Panel1;

Panel1.Refresh;

//创建前删除同名的临时文件

if FileName<>'' then

DeleteFile(FileName);

//设置临时文件名

FileName:=GetTemporaryFileName;

//为临时文件创建文件流

FileStream:=TFrileStream.Create(FileName

fmCreate or fmOpenWrite);

//拷贝BLOB到临时文件

FileStream.CopyFrom(BlobStream

BlobStream.Size);

//释放流

FileStream.Free;

BlobStream.Free;

//设置Media Player播放AVI文件

MediaPlayer1.FileName:=filename;

MediaPlayer1.DeviceType:=dtAviVideo;

MediaPlayer1.Open;

MediaPlayer1.Play;

end;

procedure TForm1.FormDestroy(Sender:TObject);

begin

//取消临时文件和media player的关联

MediaPlayer1.Close;

MediaPlayer1.FileName:='';

//删除临时文件

if fileName<>'' then

DeleteFile(FileName);

end;

平板电脑悬了 Phablets或成为未来移动设备的主流 拿什么拯救你:黑莓今年将裁员4500人 推荐10款免费的在线UI测试工具 最好的Java IDE之争:Eclipse PK IntelliJ IDEA Intel发布E5 2600 v2处理器 开放硬件监控信息 XP寿终大限将近 微软再次呼吁用户尽早“分手” Dropbox CTO:离开办公室就焦虑的技术宅男 看雪学院“走进企业看安全”活动百度站落幕 九大设计技巧+作品赏析 激发你的创作灵感! 排名前十CEO的工资条,你怎么看? 麻省理工TR35之IT界年轻有为创新者(下) Storm的“翻版”:LinkedIn开源实时数据处理系统Samza 呼吸监测耳机:一个在“呼吸”上做文章的可穿戴设备 谷歌7年210亿美元的基础设施建设,及可供17万家庭使用的风电 Touch ID很安全?德国黑客宣布已绕过苹果指纹识别系统 纽约警方鼓励用户升级iOS 7 你想好了吗? Android开发者不可或缺的四大工具 Mozilla开源TogetherJS:让网站拥有实时协作功能 可穿戴技术专家Jawbone UP向所有开发者开放API 18款在线代码片段测试工具 Gartner咨询公司研究副总裁彼得·福斯特布鲁克:互联网安全新兴威胁与挑战 美国智库战略与国际研究中心(CSIS)詹姆斯·刘易斯:网络安全神话、传说与现实 云安全联盟中国分会理事赵粮:建设可信的云生态环境 Web前端优化最佳实践及工具集锦 2013中国互联网安全大会(ISC)9月23日隆重举行 科技界最聪明的人:Facebook首任CTO激情燃烧的岁月 继乔布斯时间胶囊出土 其儿时的家或成历史遗迹 微软向7亿Windows 7用户发布Internet Explorer 11预览版 乐视腾讯深度合作 超级电视26日易迅网首发 开源jQuery插件推荐 帮你快速构建单页网站 实时数据追踪?Salutron发布LifeTrak API 怎么在一个CStatic上用程序动态显示BMP图片 javabean+tomcat访问数据库,如何配置阿!大虾帮帮我吧!搞来稿去就不行! 我想在运行时把form里面的所有控件缩小一半(控件很多,不想一个一个设),该怎么办? c++builder6快出现了。散分!!!!!!!!!!!!!!!!!!! 如何在程序中插入 EXCEL表格 我是个菜鸟,我这个问题这么这么的简单,以经在CSDN上问了好多好多天,为什么就是没有人会帮我解决? 急,所以到谁圆问一下,.dwg的文件是什么格式,用什么打开,谢谢! 一段读串口的代码有问题,高手帮我看看 紧急求救!!!怎样用C++Builder在链接服务器中创建一个表呢?SOS 特惠虚拟主机:dtp.51.net! 想把一系统内存块拷贝到位于D3DPOOL_DEFAULT的Surface中,怎样做更快?谈谈你的经验吧 在msdn中我看了一下午关于枚举的可就是不明白他到底在什么情况或者处理什么情况的时候用? All-in-Wonder Radeon 是不是不支持 Real Producer???? 用ACCESS设计了一个报表,在VB中如何调用? 支持ASP、PHP高迅特价主机:(推荐)dtp.51.net 套接字问题再次提问 C#参考文档要的举手啊! 怎样做服务程序? (在系统后台运行) TComboBox的text能否设为只读? 站点属性中“应用程序保护”有三个选项,分别是---低,中,高。有什么区别吗?安全性有什么不同?为什么有的isapi程序必须设置成低才能正确执行啊? 怎样才能使Web页上的ACTIVEX控件自动下载注册? ADO 与 DATA MODUAL 怎样判断一个文本文件中的数据。 绝对的诚意邀请高手加盟 请问邮件服务器,如何用java实现,最好有源代码,谢谢了,急 急贴:>>>>>>>>>>>>>>>>>>>>>>>>>>这里有英语好的网络专家吗? 关于java中的画矩形 哪里有将股票数据转换成数据库格式的工具? 从哪里能找到用opengl绘制三维图形的源码?基于unix下的。 asp 怎么判断客户端的操作系统还有屏幕大小什么的? 卡在了一个错误里出不来,求救! 谁知道??????求救~~~~用asp操作注册表,从注册表中删除指定的主键! 何处能找到用opengl绘制三维图形的源码?基于unix下的 谁有多种字符窜转换的方法或代码呀? 用JBuilder5做的数据库应用程序怎么打包? 我的机器上没有装outlook,当我点击mailto时,就直接链接到hotmail的邮箱,怎么回事那 请问我在一个窗体里拖动了十几个ADODC控件,启动时很慢请问我该怎么样 怎样调整图片适应"picturebox"大小 请问那位大哥有求切线的C程序。 关于赵薇着装的讨论可以停止了 怎样远程连接安装在Linux 上的Mysql数据库? 谁能帮我解压缩从huizen.dds.nl/~roalt/h263.html下载的 H263软件 真诚的希望你加入振兴软件产业的 事业中来 两个函数之间变量可以共享吗 拷贝ACCESS 库 请教高手(关于数据结构)的一个问题 关于Rundll32.exe程序的问题 播放AVI动画的问题 c#和asp.net有什么关系? 串口打不开怎么办? 请问各位大虾,怎样在java里打开一个IE窗口。 关于制造不锈钢刀本人家住山东省临沂,关于一些制造不锈钢刀的一些设备,尤其是想知道在临沂市有没有直接把不锈钢片和刀刃直接焊接在一起的设备,是一种自动焊接的设备~ 特征X射线产生的机理是什么? x射线荧光光谱仪有辐射吗 不锈钢可以做刀可以吗 不锈钢酸洗后为何表面发黑 广东省长城304不锈钢矩形管比重、价格各多少? 还原性强的金属单质易被氧化吗? 不锈钢酸洗后出现黑色怎么回事 浓硝酸能使活泼金属(如铝铁锌镁)发生钝化.为什么是错的?还有…用浓盐酸如何鉴别浓硫酸和稀硫酸. 金属的冶炼难易程度跟金属的活动性有关吗 简述特征X射线产生的机理? 浓硝酸和铝反应的化学方程式.除了钝化之外还有么?生成什么? 金属在什么样的土壤中易氧化 求各种材料的比重,如铜,不锈钢 不锈钢钝化工艺 x射线探伤机离多少米 铜,铁,不锈钢的比重是多少 不锈钢的比重是多少? 不锈钢保温杯内部怎么清洗?新买的保温杯,内部怎么清洗?用洗洁精还是用热水烫比较好? 什么就201半铜不锈钢装饰管,201与201#不锈钢有什么不同? 不锈钢抛光处理和钝化处理区别,请高手解答并请告抛光处理和钝化处理的基本工艺流程 摩易笔怎么用?摩一擦橡皮?怎么用? 不锈钢钢管的酸洗配方硝酸,氢氟酸的配方比例,及各自作用? 为什么奥氏体不锈钢要求进行酸洗、钝化处理 为什么可擦中性笔可擦?原理是什么? 酸洗是否会造成材料腐蚀 不锈钢钝化处理 爱好摩易擦怎么用? 不锈钢管为什么要酸洗 410不锈钢加硬是否可以钝化处理 爱好摩易擦笔写的字真的在六十摄氏度字消失,零下十摄氏度字显现? 不锈钢用什么酸洗没腐蚀 什么是X射线荧光光谱仪? 可擦荧光笔的原理为什么可擦荧光笔能把颜色擦下去?有谁知道原理是什么? X射线的特征谱是由于什么原因产生的? X射线荧光光谱仪价格用于测试塑料、线材铜丝等,主要检测元素有Br、Pb、As、Cd、Hg、Cl、Cr等ROHS有害物质.固定道的,国产的就行了,越便宜越好,性价比越高越好! 保温杯有多种内胆,紫砂内胆,不锈钢内胆,还有的是玻璃内胆,陶瓷内胆哪种内胆保温时效更长.分别是多少哦 不锈钢管是否需要酸洗? 怎么辨认铁 铝 铜 不锈钢 保温杯内胆用进口不锈钢材料装菜会产生化学反应吗? x射线如何产生 铁,钢,不锈钢如何区分?碰水不生锈的是那种? 用内胆是不锈钢的保温杯泡茶好不好? 430不锈钢密度是多少,430不锈钢板是按理论重量收费的吗?我在“祺元金属”买了几吨430不锈钢2B板,给我算理重时说430不锈钢密度值是7.75g/cm3, 如何区分自行车是铁的还是不锈钢的 ”我要变成一块透明的石头“ 他说他想变成一块透明的石头.不知道是不是歌词.如果是的话,不懂 wt粗糙度参数符号是什么意思? 酸洗与钝化只是针对不锈钢材质吗 易水解阴阳离子 便携式x射线探伤机的使用 不锈钢酸洗与钝化有何不同 什么金属离子可以水解? 不锈钢酸洗钝化膏制作方法是否需要一些处理工艺?是搅拌还是离心或者还是其他什么工艺? 不锈钢酸洗钝化? 球墨铸铁、灰铸铁铸造工艺600例及铸造质量缺陷控制实用手册 这本书到哪里买啊?或者类似的书也可以,关于球墨铸铁造型工艺的实例 不锈钢酸洗钝化液是什么酸 X射线荧光光谱仪的原理是什么? 不锈钢怎么做刀 不锈钢酸洗钝化液哪家比较有效啊 X射线荧光光谱仪分析原理?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn