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

如何在数据库中存放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;

微软郑子颖:Windows Azure如何支持开源系统和软件? EMC 叶成辉:软件定义数据中心实现统一、开放的管理 百度云主任架构师 侯震宇:云终端开启数字生活 中国工程院院士 倪光南:中国云计算在全世界份额远超3% 信息图:未来的企业移动培训应用与技术 “2013年度中国优秀开源项目征集”活动最后三天 为什么开发者倾向于使用杂乱无章的免费工具 EMC合作伙伴销售经理杜术清:实现云的三种途径 开发者想走向海外:你融入老外的圈子了吗? 前微软工程师:美国监控和直接访问服务器?这不太可能 代码、TDD速查表 如何选择前端架构:服务器端HTML vs. JS部件 vs.单页Web应用 世界上最高深的Android特洛伊病毒 招聘iOS开发,老板必问的5个问题 护航科技吴伟湘:IT离线安全体检服务将带来颠覆 百度王继平:移动互联网时代云平台思路 “第八届开源中国开源世界高峰论坛”火热开启 微软发布SQL Server 2014预览版,展示内存数据库技术 帮助软件开发者提高效率的10个小窍门 我想做个程序员:Technovation Challenge圆女孩编程梦想 未来我们开发的Google Glass应用将会是什么样? 独家:前RIM大中华区总经理刘征宇,加入Appconomy 用一个API搞定一切 Segment.io为移动开发者提供便利的分析数据分发服务 TIOBE 6月编程语言排行榜:JavaScript回归前十 《Kingdom Rush Frontiers》上线后 迅速抢占27个国家游戏榜首 移动周报:85后程序员,iOS开源项目,细数7天大事件! Instagram:从Redis到Cassandra 成本节省1/4 乐元素CTO凌聪访谈:游戏引擎技术选型之王道 iOS 7的新设计并非止于外表 WWDC 2013大会10大启示:正向开发者支付大量现金 云计算大会微软专场成功举办 Windows Azure公众预览版上线 vb.net是怎么回事/?在学之前要哪些基础准备? 在VMware如何装SCO UNIX 谁有VMware版的SCO UNIX 5.06啊!!! 如何实现啊?---- 求一个函数! 50分,请大家帮忙寻找这个笔记本网卡驱动紧急求助(Fast Ethernet pc card) 求 Quoted-Printable,8bit编码方式的解码函数 菜COM:DELPHI如何独立编译,WAITING ONLINE 请求速答 请指点 但不知pb是怎么回事 在学之前要哪些基础准备? Authorware新家园,捧捧场哦 各位,那有候捷翻译的《windows 95系统大奥秘》的简体中文版可下啊 关于作用域 反对有些人以爱国或真理为名侮辱我们的政府!!!!! 但不知delphi是怎么回事 在学之前要哪些基础准备? 请问 SET XACT_ABORT ON 怎么用啊 散分!!分不够再加!!! 请问扩展名名为asp的文件怎么打开? [ZT]GOOGLE的彩蛋 看看,怎回事? Xsl:for-each进行循环,如何能从循环中退出!急急急!!!给分 怎样实现更新 DBGrid 选中的多行记录? 有人能帮我看看这个存储过程到底是为什么运行不了吗?晚上结 请教高手 :在一个bean内只能有一个结果集吗? 如何从表单radio中得到它的value值呀. 验证问题 还是没有解决windows NT密码丢失问题啊 求救呀,来看看,谢了 可否用程序动态改变机器名? 动态创建数据窗口的问题 怎么给那么多份啊,为什么我不能给阿 [RMI]为何说找不到stub类? 求购sniffer pro 的使用教程 第一次来水源,散分!! 倾尽家财只为一题,不吝赐教者奉送全部分数 SP1 激活问题,新手求助! 可以解释一下dll是什么吗? 第一次来水源,散分!!(2) 大哥大哥!!!!!!!!!!!!救命 我是初哥! 活动目录问题:如何实现这样的活动目录服务? 请问我在水晶报表里面要每页都显示报表页眉应该怎样设置?万分感谢! 郁闷啊!!学VC真的是太累了!! db文件格式 xp下有什么好的调试工具 名校科班出身的程序员进来聊聊目前的状况吧 大本营会员注册问题 俺给各位磕头了!!!只要能解决一个问题。。。。online waiting... 目前开发MS SQL Server 2000最好的工具是什么? 哪种前端开发程序较好? 程序传到了服务器上数据库连接字符串怎样改? C++bulider怎么没有vc++用的那么多啊 为我北京的女友祝福 宗的拼音是什么?这个字 只能打 我拼音 如图,有三边分别为0.4m、0.5m和0.6m的三角形形状的铝皮,问怎样剪出一个面积最大的 二元一次方程,用加减消元法, 残圆怎么画出整个圆 如图,一块三角形的铁皮,BC边为4厘米,BC边上的高AD为3厘米,要将它加工成一块矩形铁皮,使矩形的一边FGBC上,其余两个顶点E,H分别在AB,AC上,且矩形的面积是三角形面积的一半,求这个矩形的长和宽 can you give me? 机械能守恒定律的题目一固定斜面的倾角为α,高为h,一小球从斜面顶端沿水平方向落至斜面底端,不计小球运动中所受的空气阻力,设重力加速度为g,则小球从抛出到离斜面距离最大所经历的时 在一块面积为45平方厘米的圆形铁皮上割出最大的7个相同圆铁片,问余下的阴影部分的面积式子要简单一些的 如何阻止树根生长家门口有个树根,树已经没了,树根还在生长,而且树根长的把门口的水泥地面都破坏了,怎么才能阻止树根继续生长?这个树根是不小,树干跟部的直径在40CM以上 猫和猫头鹰是不是近亲啊? 建筑结构一道题,就是3.8那道 在一块面积为72平方厘米的圆形铁皮上割出最大的5个相同的圆铁皮,问余下阴影部分的面积是多少? 对许褚的四个字的称呼有什么 一道题 求极限的问题. 在一块面积为45平方厘米的圆形铁皮上割出最大的7个相同的元贴片,问余下阴影部分的面积是多少? 许褚到底怎么出装 关于建筑结构问题我是初学者,如果一间四层高的私人住宅,二楼打算用大面积落地玻璃,从经济安全方面考虑是框架结构,砖混结构,还是混合结构好?我知道框架结构造价最贵,我还想知道它比砖 南宋爱国诗人___被捕时路过零丁洋进留下了_____________,______________.这句千古名句. 许褚是什么人物,有关历史语? 建筑结构的一道问题 用括号中所给动词的适当形式填空.He said he ( )math at all.(not like)付讲解 许褚怎么死的 海运SER什么意思 一位高三学生以恒定的速率从学校教学楼的一层上到四层,该同学上楼过程中,克服重力做功约为?600J或6000J 请问为什么是6000J? 请问“健康养生院”的英文应该怎么翻译? 这句话怎样理解张晓风的人生哲理是:在生命高潮的波峰,享受它;在生命低潮的波谷,忍受它:享受生命,使我感到自己的幸运;忍受生命,使我了解自己的韧度,两者皆令我喜悦.那么这段话怎么理 l like swam.But my brother -------(not like)it at all.用所给词的适当形式填空还有一题 I brush my --------(tooth)twice a day. 系粽子的绳叫什么 怎样理解这句话的 一道概率题目.麻烦高手指点.谢谢:)设随机变量(x,y)的联合密度函数为f(x,y)= 4.8y(2-x) (0 物体除了做匀速圆周运动时有向心力,还在做什么运动时有向心力 你是怎样理解这句话的 打码中的吃票是什么意思拜托各位大神 怎样用最快的方式完成作业 填空(建筑物的结构)大神们帮帮忙请把填这些建筑物分类:民居,高楼大厦,电视塔,客家土楼,桥,石亭子 例:薄壳JIEGOU的有:石亭子.1.框架结构的建筑物有:( ).2.实习结构的建筑物有 .3.{ }结 “粗心妈妈”教你如何辨别led护眼台灯有无频闪和辐射? 一货车下用3m钢丝悬吊着一个质量为M的重物,货车以V的速度匀速行驶,若突然刹车,钢丝受到的拉力为多少? 建筑中的发券该如何理解?与拱顶结构有什么关系? 中华牌香烟一侧的打码是什么意思? 看图猜的成语 英语翻译Personal factsOn the first day of class,Tom's teacher asked class to fill the out a form.The information always helped her get to know her students.Tom filled out the form like this. Full name:Thomas Smith 这句话怎么理解?The educational systems are entirely different and attempts to compare them must be done on a strictly provisional basis.这句话中provisional 是暂时的意思,但是整个句子应该怎么理解? 看图猜个成语 请问这是什么东西,有药用价值吗? 这句话你怎么理解? 1、下列物体所做的运动可以近似地看成匀速直线运动的是(). a 高楼中电梯的升降运动 b 机械表指针的运动 谁能告诉我这是什么,有药用价值吗...根有点像 2 交流电24V变压器是不是接哪根线都可以没有正负极 一升降机从静止出发开始做匀速直线运动!一升降机从静止出发开始做匀速直线运动,先匀加速了3秒,又匀速运动了8秒,再匀减速后4秒停止,共进46米.问最大速度,各阶段的位移,各阶段的加速度 梧桐有什么药用价值作用麻烦告诉我 海关验货的问题前阵子我出口到西哈努克三个高柜,遇到海关验货,可最后说给两个验货员每人500RMB的验货费就免验,当时我给货主说了货主就给了,请问怎么回事啊 海关验货的可以私自收好处 怎么样完成作业更快,求方法 豌豆的药用价值,豌豆不能与什么同食 因为海关查验没赶上船期,所以产生了延滞费用如题,请问这些延滞费用是如何计算的?1个20的普柜和2个40的高柜. 39 English 42用所给动词的适当形式填空 1.There ______ [be]no food in the fridge this morning. 2.The young man _____ [get] the book therr days age. 3.The foreigners __ 曹妃甸湿地公园介绍 要文字,可以有图,但文字介绍必须多!不要怎么去湿地公园,更不要写曹妃甸湿地!湿地和湿地公园是有区别的!唐海湿地公园! 中译英,一句话!拒机译!由于海关与其它公司的货柜一起扣押验货直到昨天才放行,我们已安排最快的船期 如图 在矩形ABCD中E F 分别为边AB AD中点 现将三角形ADE沿DE折起 得四棱锥A-BCDE求证 EF∥平面ABC she has no paper ________.a.to writeb.writing onc.to write on选C对吗,to write on这里的on 能去掉吗,这是什么结构为什么不能去介词呢 等腰梯形ABCD,AD∥BC,AB=DC=1,∠B=60,AC平分∠BCD (1)求梯形ABCD周长 (2)求梯形ABCD面积 感动!美男子车祸变残障女友不弃结连理英老年人养鸡遣寂寞 送鸡上学生活忙【英汇丰银行报告:中国成为2013年度以色列军队炮击加沙打死一名巴勒斯坦人壮美!摄影师抓拍冰冻海浪翻滚瞬间【高英汇丰银行报告:中国成为2013年度港媒:中国小偷泰国免税店内行窃后坐飞娜塔莉·波特曼:参演《雷神》,主要是奥巴马豪华座驾“野兽”细节曝光美国务卿将访欧洲中东八国 重申与沙特美空管局解除禁令 飞行全程可使用电子美国空军证实一架“捕食者”无人机坠毁美国务卿将访欧洲中东八国 重申与沙特简化赴英签证手续今日实施杭州发布十大产业高层次人才需求榜 技杭州发布高层次人才“需求榜” 技术研俄罗斯核武部队大规模演习抗衡北约反导叙利亚如期销毁化学武器 获禁止化武组伊朗220亿美元油款因美国制裁“被困斯诺登在俄罗斯找到工作 负责网站维护韩国6岁萝莉美照 【组图】华硕正在对ZenFone2的5.1进女子从恶狗口中救下女童 自己四肢惨被陈龙:互联网金融不会颠覆传统金融,需三星开启Note4 5.1.1推送:南怀瑾谈“算命”中国古代十大禁书LG太良心:G2竟然可以升级5.110.19紧急通知:跑不跑自己的事!慕容莹:希腊伊朗拉跌原油,7月7号现用镜头建造奇幻世界!摄影师Manue韩国网络银行环境好 预测发展将超美国用镜头建造奇幻世界!摄影师Manue​游谱晒图丨一周晒图精选第12辑一款颠覆“三观”的互联网冰箱:海尔馨刘诗诗、吴奇隆领!证!啦!快来送上你游谱专题丨Pink!约女神去看京都落盘点靠搞怪大红大紫的邓超海量逗比奇葩苹果新专利揭示指纹信息会存储到云端,每日彩蛋丨江振诚的新台湾味餐厅老朋友:我有酒,你有故事吗?简简单单就是美!瑞典时尚博主汉娜·斯
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘