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

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

Polycode:免费、开源的跨平台(游戏和APP)开发工具 为何大多数云计算公司注定要失败 究竟是什么让Redshift比Hive快10倍?! [评论]将Linux拒之门外 微软被开源社区指控垄断 精细化运营:友盟统计分析SDK 3.0版本发布 “锤子OS”功能猜测与罗式对比营销 神奇!1KB JavaScript代码编写的3D蜜蜂 顶尖技术人员“兜售”的顶尖编程语言、扩展工具等 移动阅读商业化:Flipboard支持用户DIY杂志 全球移动App:Top 52发行商排行榜 知新网CTO:从程序员的视角,实践精益创业 罗永浩锤子ROM:小团队的75项微创新 谷歌知识图谱扩展到Android平板电影中 云计算大战升温 服务器OEM押注OpenStack 如何将战略性的内容策略融入进网页设计中 数字天堂CTO:移动行业应用开发“潜规则” 众联智领CTO:从idea到面目全非的创业产品 CMDN Club 25期:knewone与路况电台的精益创业法则 Windows Blue的孪生兄弟?Office Gemini浮出水面 HTML5开发平台Ludei将支持3D游戏开发 《二战风云》发布至今,已为顽石互动狂赚2.7亿 腾讯开源基于HTML5技术的专业级图像处理引擎 AlloyImage Linux容器运行时Docker开源 360上线第三方漏洞收录平台 将现金奖励爆料者 UC推出iOS平台首个支持WebGL的浏览器 魔兽之父专访:今年游戏产业会出现一场革命 Instagram 5位传奇工程师背后的技术(PPT全译) Google云计算专家Jeff Dean与Sanjay Ghemawat获ACM Infosys基金会大奖 谷歌承诺不对开发、发行和使用开源软件的人专利诉讼 Web框架排行榜 Netty、Servlet和Vert.x位列前三 DARPA慷慨解囊的背后:Python与大数据的火花 我只问一个扩展名和文件位置(在线等候) linux急救 白给分---请问改变字体 java小问题 游戏引擎和3d真实感图形渲染器源代码和开发文档出售 主 题:要用vc做报表(含mschar图形内容),用什么控件好? linux急救!!!!! 谁能提供求矩阵的秩的算法,高分相送。 高分求书!! 关于Client/Server系统的问题 TStringGrid中设置颜色的问题!! 迷惘 不该在此问的问题,希望你们能帮我!!!进来看看吧!!! 谁有系统开发的功能定义(function spec.)样例? SB其实是外来语 数据表里的数据排序问题。(ADO) 谁知道怎样进入 WWW.MICROSOFT.COM 的原代码区? 我想学vc++请问我该看什么书? 读密码(*****)的软件有哪些?(答对就有分) 如何重复使用自己以前开发的库文件*.pbl文件? 关于用DELPHI6的WebSnap开发网络应用程序的讨论 为什么在线程里,在以CString做为返回值的函数总出错? 哪位大哥能指点迷津? 采用中文变量名或者过程名或者函数名有没有什么副作用? 怎么用udp协议发送信息? bdk1.1 WinXp和Win2000对等网的连接 前两年做的软件,竟然出现在D版盘里面,觉得跟高兴。 如何将实数转化为字符串? 求助!!有谁用过LINUX下的UCD-SNMP? jBuilder6 for windows的注册码 winsocket的简单问题 [Linker Fatal Error]Fatal:Expected a file name:这个错误怎么解决? 大家都来看看怎么实现这个效果。。。 关于cscrollview 我下载了delphi6的补丁2,还未安装是否要先装补丁1。要如何?? 数字签证的问题 关于cscrollview 使用专利技术是什么概念啊?高手指点。 vb6.0中如何将dbgrid里的内容添加到数据库里? 谁能告诉我哪里有第三方控件下载吗?高分相送 游戏编程是否要用到物理知识? 数据库启动时出现错误"Cannot mount database in exclusive mode" 也许这个问题很无聊! 这个连接有实时错误为什么呢 请高手指点 我想用VB+SQL 做一个数据库 什么样的delphi能进深圳?? HELP 找几个做过行业应用软件测试的朋友兼职~~ 寻觅UNIX高手 一个专科生想考研,大家出出主义,有没有 过来人? 哎,VC版两个月前的问题,三次回复都是自己,那位水友版忙gz一下,100分专家分到手>>> 冬冬从一楼走到五楼,一共走了68级台阶.平均相邻两层之间的台阶又多少级? 楼梯踏步为什么单数吉利原始洞口0.88米*1.79米宽 层高2.6米 楼梯如何制作合理 《做人要诚实》 作文 600字 冬冬要上四楼办事,每上一层楼要走12级台阶,那反他上到四楼要走多少级台阶? 有没有关于大自然的手抄报只要图 写一篇关于《诚信做人,诚信生活》的作文要写到三点:1.诚信作业2.诚信考试3.诚信说话 已知△ABC内接于圆O,AB为直径,弦CE⊥AB,C是弧AD的中点,连接BD已知△ABC内接于圆O,AB为直径,弦CE⊥AB,C是弧AD的中点,连接BD并延长交EC的延长线于点G,连接AD,分别交CE、BC于点P,Q(1)求证:P是△ACO的 直到昨天我才知道用英语翻译 关于日本地理的手抄报怎么做 保护地球环境的手抄报保护环境,地球环境的手抄报(最好有哭泣的地球的图片)必须是画的!关于保护环境的,保护地球环境的! 任何大于6的质数除以6,肯定有余数,余数只会是( ) 和( )任何大于6的质数除以6,肯定有余数,余数只会是( ) 和( )括号里天虾米? 如图,在△ABC中,∠BAC=90°,AB=AC,M是AC上一点,AD⊥BM于E,交BC于D,如果∠AMB=∠CMD,求证:M是AC的中点 保护地球手抄报 证明:任何大于5的素数平方除以30时,余数只能是1或19 如图,在Rt△ABC中,∠BAC=90°,AB=AC,M是AC的中点,AD⊥BM,垂足为E,交BC于点D,求证;∠1=∠2我要的是做“中线”的那个答案,老师讲过,和网上的不一样,可惜我忘了具体的了.只限6月26日至27日早6点半,回答 爱护环境手抄报内容 大自然的手抄报写什么?最好有图片的 写一篇关于诚信的作文,在生活中经常出现过的.400或500多字.我想要参考一下,嗯,我会自己写的,只是我想看看能不能用另一种方式来写. 一间教室要用方砖铺地,用面积是0.16平方米的方砖需要360块.如果用边长是60厘米 大自然的手抄报该写什么内容啊 急 做人要讲诚信的作文500字 如图,AB为圆O的直径,AC为弦D为弧BC的中点,DE⊥AC于E,DE=6,CE=2.求证:1DE是圆O的切线 2求圆o半径 认识大自然手抄报可以写什么内容? 3分之8除以多少等于8分之15乘多少等于3分之2.急 我要一篇500字的作文扩写《所见》 如图,已知AB为圆O的直径,BC是弦,过C点的切线CE与弦BD的延长线相交,且CE垂直于BE,求证:弧AC=弧CD. 用 初三直线与圆的位关系之切线 的知识做. 关于大自然的手抄报内容 球面上三点A、B、C,AB=18,BC=24,AC=30,球心到平面ABC的距离等于球半径的一半,求此球的表面积 在一段公路两边安树距8米种树1402棵两边都种这段路多少米两边不种这段路多少米? 认识大自然手抄报(内容)填写手抄报的认识大自然的内容! 已知球的表面积是20π.球面上有A.B.C三点,如果AB=AC=2,BC=2倍根号3,球心到平面ABC距离为多少?为什么ABC所在元半径为2 环境手抄报 加油!我的弟弟!翻译成英语 球面上有A,B,C三点,AB=AC=2,BC=2根号2,球心到平面ABC距离为1,求这个球的表面积 怎么做环境手抄报 只是因为 作文400--500字 球面上有三点A、B、C,若AB =18,BC=24,AC=30,且球心到三角形ABC所在平面的距离等于球半径的一半,求球的表面积 关于大自然的手抄报有哪些? 描写校园的作文开头 春节200字作文 大自然的手抄报 写校园的作文怎么开头?我写作文中心主要是校园内有趣的事.怎么吧开头写的生动些. 给一间教室铺地,用面积0.16平方米的方砖300块,如果用边长是0.2米的方砖需要多少块?列方程! 美术老师在泥塑课上按1:20的比为小华做了一尊塑像,塑像高7.5厘米,小华的实际身高是多少米? 描写未来校园的作文600字左右的 一间教室用方砖铺地,用边长0.3米的方砖需要640块.如果改用面积是0.16平方米的方砖需要多少块 一条450米长的路,在路一边种树,没两棵树之间的距离是9米,两端都种,一共要种多少棵 校园作文的开头怎么写比较好?是关于同学间互帮互助的 给教室铺地,用边长0.4米的方砖需要300块,如果改用长0.4米,宽0.3米的长方形砖需要多少块(比例) 关于雪的手抄报 小明8周岁时身高1.14米,12周岁时身高1.5米.他平均每年长高多少米? S,A,B,C是球表面的点,SA垂直于平面ABC,AB垂直于BC,SA=AB=1,BC=根号2,则球的表面积等于? 关于气象的手抄报,急用!一般十万个为什么里面有些问题资料! 小明千年身高140厘米,去年比前年长高了20/1.小明去年身高多少米?就是这个问题我不会,呵呵,请教大家,不好意思! 8. 已知球的表面积为20π,球面上有A、B、C三点,如果AB=AC=BC=二倍根号三,则球心到平面ABC的距离为A、1 B、根号2 C、根号三 D、2 新学期新气象的手抄报内容? 求做美国地理手抄报==急.如果实在不会,就想一下小报的主题可以是神马.或找一份美国地图(不要太大,我要剪下来贴在小报上的). 中国地理手抄报题目初一的,中国地理,手抄报,题目 小红有100元,小娟有150,小娟的钱比小红多几分之几 如何做人做事800字作文
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘