用PB开发多媒体数据库管理系统

发表于:2008-02-25来源:作者:点击数: 标签:
图像、声音、数字视频是多媒体的基本要素,目前多媒体 数据库 正得到是益广泛的应用。例如:桂林市开通的交互式有线电视实时点歌系统,即人们可以用电话机的按键点歌,并且同时在电视上看到自己正在操纵的菜单,选中歌曲后电视立即自动播放MTV,不需旁人帮助
图像、声音、数字视频是多媒体的基本要素,目前多媒体数据库正得到是益广泛的应用。例如:桂林市开通的交互式有线电视实时点歌系统,即人们可以用电话机的按键点歌,并且同时在电视上看到自己正在操纵的菜单,选中歌曲后电视立即自动播放MTV,不需旁人帮助,这是网络多媒体数据库的具体应用。 用PowerBuilder开发应用程序时,您完全可以把多媒体数据集成到应用程序中,使您的应用程序具备多媒体录制,查询播放等众多功能。显然,多媒体将进一步提高应用程序的层次,并且给用户一种身临其境的感觉。

  怎样用PowerBuilder创建并展示多媒体数据库呢?它可分为两部分:

  1. 怎样将图象、声音、动画存入数据库

  2. 查询系统的制作.

  下面以PowerBuilder6.5和SQL Anywhere为例。让我们快速制作一个简单的查询系统。制作婚姻介绍系统,查询到符合条件的人后,显示该人的人事档案卡上有个人的照片,要求双击个人照片,能调用Acdsee展示该照片(顾客能任意放大、缩小欣赏照片);或者双击该个人档案某处放映一段该个人档案的个人生活录相,个人喜欢的音乐等.

  一.怎样将图象、声音、动画存入数据库

  首先要有一个包含Blob数据类型的表,,然后利用Bb数据窗口的"OLE database Blob"(OLE数据库二进制大对象),可以轻易地把图片等多媒体数据存入数据库或展示在屏幕上。

  步骤如下:

  1.建立一个表aaa,内含两个字段,记录号和相片,一个字段取名为ID,另一个字段名为Pic,类型分别为char和Long binary,ID为主键。具体操作步骤为:进入Database画笔来建立此表,ID字段取type 为char,不许为空,即Null为No,Pic字段type为Long binary,可为空,即Null为Yes(重要)。将英文标题头改成中文,即将id字段的Header内的"id"改为"记录号",Label的内容改为"记录号:",同理将pic字段的改为"相片"和"相片:"按Close图标,保存的文件名填aaa,按Table Properties图标,按Primary key,并点选ID为主键,按Close图标关闭Database画笔。

  注意:在这一步骤里不要输入数据,而要在后面的数据窗口里,按预览图标输入数据。

  Pic字段的数据类型即所谓Blob类型,其数据类型在不同的DBMS中有一定的差别:在SQL Anywhere 中是Long binary;在SQL Server中是Image。

  2.建立一个新的应用程序。具体操作步骤为:按Application图标,再按New图标,文件名填test,按保存,Application填test,按OK,出现一"Would you like……"的对话框,问是否要应用程序模板,按"是",为简化制作步骤,要模板。

  3.建立数据窗口并准备输入数据。步骤为:按DataWindow图标,在"Select datawindow"对话框中选New,在New Datawindow对话框中选SQL Slect和Freeform,即SQL 选择的数据源,自由格式的风格。按OK,在Select talbe对话框中选中aaa表,按Open。点选ID列,使ID出现在Select list的右边,在窗口下方按Where按钮,按Colume,并在Cloume的下拉条中选中"aaa"."id",在Valua的一栏中填入 :temp,注意,这里的temp前面有一冒号 按窗口上方的Desion菜单,选Retriveal Arguments,在Name一栏填temp,注意,这里的temp前面没有冒号,type一栏选String(注意),按OK。

  规定:SQL语句可以嵌入到PowerScript语言当中,只不过每一个SQL语句必须以分号结尾,而且在SQL语句中如果要引用PowerScript变量,则必须对这些变量赋予一个前缀--冒号:而PowerScript语句的变量不要加冒号,注意区分。

  4.用数据窗口的预览方式输入数据。具体操作步骤为:按Desion菜单,选Data Source使Data Source前面不打钩,从Objects菜单中选择OLE Database Blob项,然后在设计窗口中适当位置点鼠标左键,此时出现Database Blob object对话框。逐渐填写对话窗:

  ClientClass:填入DataWindow,可选。

  ClientName:填入当前DataWindow的名字,可选。

  Table:选择aaa表。

  Large Binary/Text Columns:选择pic字段。

  KeyClause:选id=:id,用于构造where子句,即where id=:id,用于定位相位记录。

  File template:浏览选择并填入一个bmp文件,可不填。

  OLE Class:通过下拉菜单选择Pbrush画笔程序。

  Client Name Expression:填入某一字符串表达式,当OLEServer运行时,显示在其标题处,如填写入id+".bmp",按OK键。

  单击Positions标签,选中"Resizable",单击General标签,在Border列表框中选择"Resize"如此选择这两个属性后,程序运行时,用户能够通过拖拽改变图片的大小,单击OK关闭对话框。

  此时,PB关闭该对话窗,并回到DataWindow的设计窗口,OLE字段以一小方框的形式显示出来。

  单击Preview预览图标,在跳出的对话框中给temp的值填1,点Insert Row 图标,在表中添加一行,填入id后,双击方框,打开画图程序,这时可以通过绘制,复制等手段制作图片,制作好后,单击文件菜单中的"退出并返回到…"关闭画图程序,再次单击预鉴图标,系统提示"save……",将数据窗口取名为aaa,选择"是"将结果保存到表中。

同理:若想将动画存入数据库则另加一字段,将音乐存入数据库则另加一字段。

  二. 查询系统的制作

  1. 制作从键盘输入记录号,可查询到该人的档案记录。

  ①制作查询窗口。步骤为:鼠标点按Window图标,新建一窗口,在窗口中,添加一个DataWindow控件,在DataWindow控件上按鼠标右键,选择并单击Properties快捷菜单项,在在Datawindow object name旁按Browse按钮,选择装入前面制作的aaa数据窗口,调整好窗口的大小,再在窗口上放一SingleLineEdit控件,和一CommandButton按钮控件,点中按钮控件并按右键选择Properties ,将其显示文本修改为"查询",按钮名称仍为cb_1,点中按钮控件并按右键选择Script…,输入以下脚本

  dw_1.settransobject(sqlca)

  dw_1.retrieve(sle_1.text)

  关闭并保存,按Save图标保存该窗口,窗口取名为aaa,

  ②将查询窗口连接入test应用程序内。点按Application图标,出现test应用程序,双击test,出现名为w_genapp_frame的窗口图标,这是应用程序为我们提供的主窗口的名字,点按w_genapp_frame不放按右键选edit,出现该主窗口,将一按钮控件放入该窗口,按钮显示的文本可改为"唯一查询",也可省略不改,点中该按钮控件并按右键选择Script…,输入:open(aaa),保存。点按Application图标,再按script图标,出现应用程序的自动生成的主体脚本,部分内容如下,它的任务是将数据库初始化,相当于win.ini。假若不要应用程序的模板,则下面的脚本需自己输入。而使用模板后,现在我们只需将//connect;前面的注释号"//"符号删除即可。除省事外还避免了因为排版引起的下面的程序格式错误。(本人经常因为书中个别字母印刷错,或排版引起的程序格式错误造成程序无法运行而痛心不已。)

  sqlca.DBMS = ProfileString (ls_startupfile, "database", "dbms", "")
  sqlca.database = ProfileString (ls_startupfile, "database", "database", "")
  sqlca.userid = ProfileString (ls_startupfile, "database", "userid", "")
  sqlca.dbpass = ProfileString (ls_startupfile, "database", "dbpass", "")
  sqlca.logid = ProfileString (ls_startupfile, "database", "logid", "")
  sqlca.logpass = ProfileString (ls_startupfile, "database", "LogPassWord", "")
  sqlca.servername = ProfileString (ls_startupfile, "database", "servername", "")
  sqlca.dbparm = ProfileString (ls_startupfile, "database", "dbparm", "")
  connect;

  现在按Run图标运行该程序,结果如下图。为简化程序,我们只加入了多媒体中的图片字段,成功后,读者可自已增加动画,声音字段。

  讨论:假若多媒体的字段和数据个数比较少,也可用变量和函数来解决。如:

  temp2=temp+".bmp"
  p_1.picturename=temp2
  ole_1.insertfile("sample.avi")
  run("c:\acdsee.exe c:\aa.bmp",normal!)

  这些都是很有用的函数,但数据多而杂时,它们就会显得力不从心了,因为使用它们时,多媒体数据并没有内置于数据库之中,也就是说数据库内并没有它们的字段,想想看,假若数据库的所有字段都用变量来代替的话会怎么样。

原文转自:http://www.ltesting.net