12 / 2 页

楼主: 韩冰

BCB教程

[复制链接]

字体大小: 正常放大

韩冰

823 主题	3 听众	4048 积分

我的地盘我做主

该用户从未签到

11^#

发表于 2005-1-26 01:22 |只看该作者

|招呼Ta 关注Ta

<

align=center>使用媒体播放器控件<

align=justify>上一讲中我们学习了利用文件来保存记录以及从文件中读取记录的方法，想必读者朋友们已经动手实践过了。其实，心铃在上一讲中给出的源代码中留下了一个隐藏的问题，不知道是否有朋友发现了？这个问题是：按照目前的代码，当我们利用查询功能查询出部分记录后，再添加一个新的记录，就会发现文件中原有的部分记录（当前未显示的记录）丢失了。第七讲曾经介绍过，编程错误通常可分为语法错误、运行时错误和逻辑错误三种类型，逻辑错误往往会引起程序功能上的问题，同时也不容易发现，上一讲留下的问题就属于一种逻辑错误，究其原因，是因为我们暂时用ListView控件来管理记录集，当查询功能执行后，ListView控件中的记录数量就减少了，此后再执行添加功能时，BtnAddSongClick调用SaveFile只会把ListView控件中的记录保存在文件中，从而造成记录丢失。<

align=justify>为了解决这一问题，可以在执行添加操作时先从文件中读取所有记录，然后再写回去，或者用一个专门的数据链表来管理记录集，这两种方法的具体实现就作为练习留给读者朋友自己来完成，在后面的讲座中，我们将改用数据库来管理记录集，从而解决上述问题。在本讲中，我们将要学习使用媒体播放器控件来播放MP3歌曲的方法。<UL><

align=justify><LI>媒体播放器控件简介
</LI></UL><

align=justify>CBuilder的媒体播放器控件是能够播放音频、视频等多种多媒体文件的控件，它的VCL封装类为TMediaPlayer。媒体播放器控件的工作原理是通过Windows的MCI接口来控制多媒体播放设备，它支持的媒体数据种类很多，如WAV文件、AVI文件、CD-ROM音乐、MIDI音乐，以及MP3音乐等等。<

align=justify>媒体播放器控件（图11-1）由一系列按钮组成，其中包括：播放（

lay）、暂停（

ause）、停止（Stop）、下一首（Next）、前一首（

rev）、前进（Step）、后退（Back）、录制（Record）、弹出（Eject）等，用户可以通过这些按钮来控制媒体播放器的播放操作。<

align=justify>媒体播放器控件最主要的属性是DeviceType和FileName，其中DeviceType指定要操作的媒体设备类型，这里的媒体设备可以是硬件设备也可以是软件驱动设备，例如dtCDAudio表示CD-ROM音乐播放设备，dtVCR表示WAV播放设备，如果不能确定媒体设备的类型，则可以设置此属性为dtAutoSelect，媒体播放控件就会根据FileName属性的文件类型来自动选择合适的播放设备。FileName属性为AnsiString类型的字符串，用来指定播放或录制的媒体文件名称。<

align=justify>设置了媒体播放器控件的DeviceType和FileName属性后，还需要打开该媒体设备，才能进行播放等操作。当媒体播放器控件的AutoOpen属性为true时，媒体设备会自动打开，该属性为false时，程序中必须通过控件的Open()方法来打开媒体播放设备。<

align=justify>如果打开媒体设备正确，用户就可以通过控件上的按钮进行播放、停止、前进、后退等操作，程序中也可以通过调用控件的方法，例如

lay()、Stop()、Step()、Back()等进行相同的操作。对于不同的媒体类型，用户可以进行的操作是不同的，例如，对MP3音乐文件来说，录音、弹出等操作是无效的；即使对同一个媒体文件，在不同的状态下可进行的操作也不相同。如果设置媒体播放器控件的AutoEnable属性为true，则控件可以自己管理其上的9个按钮是有效还是失效状态，如果该属性为false，则程序中可以通过设置控件的EnableButtons属性来决定哪些按钮有效。<

align=justify>媒体播放器控件既可以播放音频数据，也可以播放视频数据。如果播放的媒体文件中包含视频信息，则可以设置控件的Display属性，作为视频信息的输出窗口。如果将Display属性设为NULL，则控件在播放视频文件时，会自动创建一个窗口用于视频输出。<

align=justify>上面简要介绍了媒体播放器控件的主要功能及其基本使用方法，下面我们就来学习如何在Mp3Collect中使用媒体播放器控件。<UL><

align=justify><LI>设置属性 </LI></UL><

align=justify>使用媒体播放器控件之前，应该在编辑状态下设置好它的各项属性。首先设置控件的媒体类型属性DeviceType为dtAutoSelect，媒体播放器控件在Mp3Collect中主要用于播放MP3文件，由于MP3文件格式较新，帮助文档中没有给出MP3专用的媒体属性值，因此将DeviceType设为dtAutoSelect，只要是媒体播放器控件支持的，并且系统中又安装了相应驱动程序的媒体类型都可以适用。<

align=justify>由于MP3文件名称需要在运行时根据用户的选择进行设定，因此我们在编辑时把媒体播放器控件的另一个重要属性FileName设为空。媒体播放器控件是一个自动化程度较高的控件，可以设置其AutoEnable属性为true，让它在运行时自动响应用户的操作，自动管理各个按钮是否为有效状态。另外，设置控件的AutoOpen属性为false，取消其自动打开媒体设备的功能，由程序控制媒体设备的打开操作；并设置控件的AutoRewind属性为true，使一个MP3文件播放完毕后可以自动回到文件头的位置。除此之外，其余的属性接受缺省值即可。<UL><

align=justify><LI>实现简单播放功能 </LI></UL><

align=justify>当用户在列表框中选中某一首MP3音乐时，让媒体播放器控件打开该文件，如果打开成功，则控件上的相应按钮自动变为有效的状态，用户可以通过操作控件上的按钮，播放该MP3音乐。这是最简单的播放功能的实现方法。在第九讲中曾介绍过显示当前选中记录的实现方法，我们就在此基础上，将当前选中记录的MP3文件名赋给媒体播放器控件的FileName属性，并调用其Open()方法打开该文件，实现简单播放功能。另外，为了便于后面实现向前向后浏览和循环播放等功能，我们在TMainForm类中添加成员变量int m_CurPlayIndex，用于记录当前播放的文件序号，即当前播放的MP3记录在ListView1控件列表中的序号。打开当前选中的MP3文件的代码如下所示：<

align=justify>void __fastcall TMainForm:

istView1SelectItem(TObject *Sender, TListItem *Item, bool Selected)<

align=justify>{<

align=justify>if(Item)<

align=justify>{<DIR><

align=justify>//将当前选中列表项的内容写入编辑框中<DIR><

align=justify>……（略）</DIR><

align=justify>m_CurPlayIndex=Item->Index; //当前播放的文件序号为ListView1控件中的列表序号<

align=justify>//把记录的文件名赋给媒体播放控件的FileName属性<

align=justify>MediaPlayer1->FileName=edtFileName->Text;<

align=justify>MediaPlayer1->Open();//打开该MP3文件</DIR>}}<UL><LI>实现向前、向后浏览功能 </LI></UL>接下来我们要实现向前向后浏览功能，即当用户点击媒体播放器控件的Prev、Next按钮时，程序可以在ListView1中向前或向后浏览并播放相应的MP3文件。为了实现这一功能，我们需要处理用户点击媒体播放器按钮时所产生的OnClick事件。通过对象浏览器添加该事件的处理函数MediaPlayer1Click()，该函数的实现代码在下一小节中给出，这里先介绍一下它的编程思路。事件处理函数MediaPlayer1Click()有一个TMPBtnType Button参数，它指出了用户点击的是哪一个按钮。当我们判断出用户点击了Next按钮时，就让m_CurPlayIndex加一，如果m_CurPlayIndex的值超过了列表框控件中的记录总数，则让m_CurPlayIndex等于0。同样，当用户点击Prev按钮时，就让m_CurPlayIndex减一，如果m_CurPlayIndex小于0，则让m_CurPlayIndex回到记录的尾部。调整好m_CurPlayIndex的值以后，我们再将其对应的MP3文件名赋给媒体播放器控件的FileName属性，并调用控件的Open()、Play()方法来打开并播放该文件，这些播放操作统一在成员函数PlayTheSong()中完成，其实现如下：void __fastcall TMainForm:

layTheSong(){TListItem *theItem;theItem=ListView1->Items->Item[m_CurPlayIndex];//获取m_CurPlayIndex对应的列表项edtFileName->Text=theItem->Caption;edtSongName->Text=theItem->SubItems->Strings[0];edtSingerName->Text=theItem->SubItems->Strings[1];ListView1->Selected =theItem;//将m_CurPlayIndex对应的列表项设为当前选中项MediaPlayer1->FileName=theItem->Caption;MediaPlayer1->Open();MediaPlayer1->Play();}<UL><LI>实现循环播放功能 </LI></UL>循环播放是指当一个MP3文件播放完毕后，媒体播放器控件自动跳到下一个MP3文件，如此循环，直到用户按下Stop按钮停止播放为止。实现该功能的关键是怎样判断什么时候一个MP3文件已播放完毕，心铃准备使用定时查询的方法来检测是否播放到了MP3文件的尾部。定时查询的方法需要添加一个时钟控件Timer1，该控件位于System元件栏中，VCL类为TTimer。Timer1控件在运行时是不可见的，但每隔一定的时间间隔便会产生定时事件OnTimer。我们把Timer1控件的时间间隔属性Interval设为200毫秒，Enabled属性为false，并添加定时事件处理函数Timer1Timer()。在Timer1Timer()中，程序首先检查媒体播放器控件当前播放的位置Position，将其与MP3音乐的长度相比较，如果二者相等，则表示已经播放到了文件尾。再检测循环选项按钮chkLoop是否处于选中状态，以及媒体播放器是否处于播放状态，如果这两个条件均符合，就打开并播放列表框中的下一个MP3文件；否则表示播放结束，关闭时钟。事件处理函数Timer1Timer()如下所示。void __fastcall TMainForm::Timer1Timer(TObject *Sender){if(MediaPlayer1->Position == MediaPlayer1->Length){<DIR>//检测chkLoop是否处于选中状态，以及媒体播放器是否处于播放状态if(chkLoop->Checked && m_bIsPlaying) //如果条件符合，则计算下一个MP3记录序号{<DIR>if(m_CurPlayIndex<ListView1->Items->Count-1) m_CurPlayIndex++;else m_CurPlayIndex=0;PlayTheSong();//打开并播放该MP3文件</DIR>}else{<DIR>EnableButtons(true);//使记录操作按钮有效Timer1->Enabled =false;//关闭时钟</DIR>}</DIR>}}其中，EnableButtons()用来设置“添加”、“删除”、“修改”等记录操作按钮的状态。当媒体播放器控件正在播放时，为了避免因用户操作引起冲突，最好让这些记录操作按钮为无效状态，播放完毕后，再让它们有效。EnableButtons()函数如下所示：void __fastcall TMainForm::EnableButtons(bool bEnable){btnAdd->Enabled=bEnable;btnDelete->Enabled=bEnable;btnModify->Enabled=bEnable;btnFind->Enabled =bEnable;btnShowAll->Enabled=bEnable;}Timer1控件的初始状态是无效的，只有在播放期间是有效的。播放期间起始于用户按下Play按钮时，终止于用户按下Stop按钮，因此我们要在事件处理函数MediaPlayer1Click()中处理Play和Stop按钮的点击事件，分别打开和关闭Timer1。另外，我们还要在TMainForm类中添加了一个成员变量bool m_bIsPlaying，用来表示当前媒体播放器是否处于播放状态，设置和清除m_bIsPlaying的操作也都在MediaPlayer1Click()中完成。下面就是MediaPlayer1Click()的实现代码：void __fastcall TMainForm::MediaPlayer1Click(TObject *Sender,TMPBtnType Button,bool &DoDefault){switch(Button) //根据Button参数判断用户点击了什么按钮{case btPlay: //如果为Play按钮，设置m_bIsPlaying标志、打开时钟、使记录操作按钮失效<DIR>EnableButtons(false); //使记录操作按钮失效m_bIsPlaying=true; //设置m_bIsPlaying标志Timer1->Enabled=true;//打开时钟break;</DIR>case btStop: //如果为Stop按钮，清除m_bIsPlaying标志、关闭时钟、使记录操作按钮有效<DIR>EnableButtons(true); //使记录操作按钮有效m_bIsPlaying=false; //清除m_bIsPlaying标志Timer1->Enabled=false; //关闭时钟break;</DIR>case Mplayer::btNext: //如果为Next按钮，播放下一个MP3文件<DIR>EnableButtons(false);//计算下一个MP3文件的记录序号if(m_CurPlayIndex<ListView1->Items->Count-1) m_CurPlayIndex++;else m_CurPlayIndex=0;m_bIsPlaying=true;DoDefault=false; //不执行缺省的按钮事件PlayTheSong();//执行打开和播放MP3文件等操作Timer1->Enabled=true; break;</DIR>case Mplayer::btPrev: //如果为Next按钮，播放前一个MP3文件<DIR>EnableButtons(false);//计算前一个MP3文件的记录序号if(m_CurPlayIndex>0) m_CurPlayIndex--;else m_CurPlayIndex=ListView1->Items->Count-1;m_bIsPlaying=true;<DIR>DoDefault=false;</DIR>PlayTheSong();Timer1->Enabled=true;break;</DIR>}}　本讲中我们学习了如何使用媒体播放器控件来播放MP3音乐，到目前为至，Mp3Collect程序的大部分功能都已经实现了，下一讲中我们要为Mp3Collect添加一些辅助功能，并学习有关界面设计更多的知识。另外，下一讲结束之后，心铃会把Mp3Collect第一阶段的源程序以及讲座的部分电子文档放在主页上供朋友们下载，至于网址嘛，请看下回分解。

我也说一句

发表

使用道具举报

韩冰

823 主题	3 听众	4048 积分

我的地盘我做主

该用户从未签到

12^#

发表于 2005-1-26 01:24 |只看该作者 |招呼Ta 关注Ta

<

align=center>进一步完善应用程序<

align=justify>到上一讲为至，Mp3Collect程序已经具有了记录、编辑、存取文件、查找记录、播放MP3音乐等功能，基本上达到了我们的设计目标，但就操作方便程度而言，Mp3Collect还有所欠缺，因此在本讲中，我们就来为Mp3Collect添加一些辅助功能，使之更加完善。<UL><

align=justify><LI>实现排序功能
</LI></UL><

align=justify>为Mp3Collect添加排序功能之后，用户只要用鼠标点击记录列表框的某一列标题头，就可以以该项内容为基础按照字母排列顺序对记录进行排序，如果用户连续两次点击同一列，则可以在升序排列和降序排列之间切换。要实现这个功能，首先需要响应列表框的标题点击事件OnColumnClick，在该事件处理函数中判断是哪一列的标题头被点击，并利用列表框控件的AlphaSort()方法对列表框中的记录进行排序。<

align=justify>AlphaSort()方法可以依据两种标准来进行排序，一是根据列表框控件的SortType属性，该属性支持按照列表项的Caption属性以及Data属性进行排序，而本程序中需要实现对任意一个子列进行排序，不能通过简单地设置SortType属性来实现，因此我们采用第二种方法，即为列表框控件添加OnCompare事件处理函数。添加了OnCompare事件处理函数之后，列表框控件在排序时会自动调用该函数来比较两个列表项的次序，并根据OnCompare返回的结果进行排序。<

align=justify>下面就是ListView1控件的OnColumnClick和OnCompare两个事件的处理函数：<

align=justify>//ListView1控件的OnCompare事件处理函数，其中参数Item1和Item2是进行比较的列表项，<

align=justify>//通过参数Compare返回比较的结果。<

align=justify>void __fastcall TMainForm:

istView1Compare(TObject *Sender, TListItem *Item1, TListItem *Item2, int Data, int &Compare)<

align=justify>{<

align=justify>if (ColumnToSort == 0)//如果ColumnToSort为0，则按列表项Caption属性进行比较<DIR><

align=justify>Compare = CompareText(Item1->Caption,Item2->Caption);</DIR><

align=justify>else //如果ColumnToSort不为0，计算子列的序号，并按子列项进行比较<

align=justify>{<DIR><

align=justify>int ix = ColumnToSort-1;<

align=justify>Compare = CompareText(Item1->SubItems->Strings[ix], Item2->SubItems->Strings[ix]);</DIR><

align=justify>}<

align=justify>//Tag属性为1时升序排列，为0时降序排列<

align=justify>if(ListView1->Columns->Items[ColumnToSort]->Tag) Compare = -Compare;<

align=justify>}<

align=justify>//ListView1控件的OnColumnClick事件处理函数<

align=justify>void __fastcall TMainForm:

istView1ColumnClick(TObject *Sender, TListColumn *Column)<

align=justify>{<

align=justify>//如果是连接点击同一列，则切换该列的升、降序标志，否则记录新的排序列号<

align=justify>if(ColumnToSort==Column->Index) Column->Tag = 1-Column->Tag; <

align=justify>else ColumnToSort = Column->Index;<

align=justify>//调用列表框控件的排序方法<

align=justify>((TCustomListView *)Sender)->AlphaSort();<

align=justify>}<

align=justify>我们在上述代码中使用了TMainForm类的一个新成员变量ColumnToSort，其类型为int，用来存放当前准备排序的列号。另外，为了标志当前应该做升序排列还是降序排列，我们还用到了VCL元件的一个常用属性：Tag，该属性可以在元件对象中保存一个整数值，该属性的意义可以由程序自行进行解释，例如，窗体上有一组相同元件的多个对象时，就可以为各个对象赋予不同的Tag属性值，以此来区分不同的对象。在本程序中，我们就是利用TColumnItem对象（即列标框控件的子列标题）的Tag属性来标志当前应该做升序排列还是降序排列，其初值为0，即缺省操作为降序排列。<UL><LI>获取文件名对话框 </LI></UL>大家肯定注意到了，到目前为止，Mp3Collect主界面上还有两个按钮的功能未实现，它们分别是“…”和“退出”按钮。其中“…”按钮是为了方便用户查找和获得文件名称而设计的，当用户点击该按钮（btnFileName）时，Mp3Collect就会弹出如图12-1所示的获取文件名对话框，用户可以在其中浏览和查找所需要的文件。图12-1是一个典型的Windows打开文件对话框，Windows 95以上的操作系统为此功能提供了标准的对话框，CBuilder的VCL库把该对话框封装成为了OpenDialog控件，在程序中使用起来更为方便。在第八讲中，我们已经在Mp3Collect的窗体上添加了一个OpenDialog控件，其对象名称为缺省值OpenDialog1，现在我们来设置它的属性。首先设置其Title属性为“打开一个MP3音乐”，接下来双击Filter属性，设置文件类型过滤器。文件类型过滤器是指让对话框在浏览目录时只显示特定的文件类型，例如，如果我们希望对话框中只显示MP3音乐文件，就可以设置其过滤器为“*.MP3”，过滤器标题为“MP3音乐”。设置过滤器的对话框如图12-2所示，该对话框允许添加多个过滤器，我们在其中输入想要浏览的文件类型及相应的扩展名后，按下“OK”按钮确定所作的设置。除了上述属性之外，OpenDialog1控件的其它属性均采用缺省值。OpenDialog1控件在运行时一般是不可见的，只有程序调用它的Excute()方法时才会弹出图12-1的对话框，该对话框是模态对话框，即只有关闭对话框后，输入焦点才会回到父窗体中。如果用户选择一个文件并按下“打开”按钮，Excute()方法返回真，如果按“取消”按钮或直接关闭窗口，则Excute()返回假。当Excute()返回真时，通过OpenDialog1控件的FileName属性便可以获得用户选择的文件名。需要进一步说明的是，OpenDialog控件不仅支持选择单个文件也支持同时选中多个文件，其Options属性中的标志ofAllowMultiSelect可以决定允许单选还是多选。在“…”按钮启动的浏览功能中，我们采用缺省的单选方式，在本讲的后面，心铃还会介绍OpenDialog控件多选方式的使用方法。下面是btnFileName按钮的事件处理函数btnFileNameClick：void __fastcall TMainForm::btnFileNameClick(TObject *Sender){if(OpenDialog1->Execute()) //调出打开文件对话框{<DIR>//从OpenDialog1控件的FileName属性中获取用户选择的文件名//并将获取的文件名赋给edtFileName编辑框edtFileName->Text=OpenDialog1->FileName;//把文件名的路径部分和扩展名部分去除，生成缺省的歌曲名称，edtSongName->Text=ChangeFileExt(ExtractFileName(OpenDialog1->FileName),"");edtSingerName->Text="";//在MediaPlayer1控件中打开该文件，可以让用户试听音乐的效果MediaPlayer1->FileName=OpenDialog1->FileName;MediaPlayer1->Open();</DIR>}}实现了文件浏览功能后，程序会出现一个新的问题，就是OpenDialog1对话框在浏览文件时会改变程序的工作目录，随后保存记录文件及读取记录文件时就会到错误的目录下打开文件。解决这个问题的方法很简单：只要在TMainForm类中添加一个新的成员变量AnsiString m_PathName，并为MainForm窗体添加OnCreate事件处理函数，在其中添加初始化代码m_PathName=GetCurrentDir()；然后用成员变量m_PathName代替保存记录文件以及读取记录文件代码中对GetCurrentDir()的调用。这个问题告诉我们，在程序开发过程中，有时添加一个新功能可能会与已经实现的功能产生冲突，这一方面要求我们认真规划好程序开发的每一步，在程序设计时尽量考虑周到，避免前后矛盾的地方，另一方面说明了测试工作相当重要，只要可能，应在完成一项功能后就测试一项，尽可能早地发现错误并进行改正。<UL><LI>添加右键关联菜单 </LI></UL>在使用Windows以及CBuilder集成开发环境的过程中，我们已经深刻感受到了关联菜单的重要性和灵活性，下面心铃就来介绍一下如何为Mp3Collect程序添加关联菜单。首先在Standard元件栏中找到弹出式菜单控件（PopupMenu），为窗体添加一个PopupMenu控件，其名称为PopupMenu1，然后双击PopupMenu1，调出如图12-3所示的菜单编辑器。初次打开菜单编辑器时，它会在编辑对象（即PopupMenu1菜单）中自动生成一个新的菜单项，对象浏览器也会自动显示出该菜单项的属性。我们在对象浏览器中设置新菜单项的Name属性为mnuAdd，Caption属性为“添加多个记录”，表示用户选择该菜单命令时，可以调用前面讲过的OpenDialog对话框，一次性获取并添加多条MP3文件记录。设置好一个菜单项并确定后，菜单编辑器会自动生成一个新的菜单项。我们按照同样的方法生成三个新的菜单项，其属性分别为：第二菜单项的Name属性为mnuDelete，Caption属性为“删除”（即删除一条记录）；第三菜单项为一个分隔条，设置分隔条的方法很简单，只要将其“Caption”属性设为“－”即可；第四菜单项的Name属性为mnuSort，Caption属性为“排列”。第四菜单为级联式菜单，即它的下一层还有子菜单。创建子菜单的方法是在菜单编辑器中选中该菜单项，弹出右键关联菜单，并选择其中的“Create SubMenu”命令即可。我们在“排列”的下一层子菜单要添加三个菜单项，它们的Name和Caption属性分别为：mnuSortByFileName（“按文件名”）、mnuSortBySongName（“按歌曲名称”）、mnuSortBySingerName（“按歌手名称”）。设计好关联菜单控件PopupMenu1，接下来我们要把它与某个控件关联起来。大部分可视的VCL元件都具有PopupMenu属性，利用该属性可以为元件指定一个关联菜单对象，运行时，用户在该元件区域内点击右键，就会弹出相应的关联菜单。按照这一方法，我们将ListView1的PopupMenu属性设为PopupMenu1，即让设计好的弹出式菜单与列表框控件ListView1相关联。最后要完成菜单命令的事件处理函数，大家应该已经注意到了，PopupMenu1中的菜单命令所完成的大部分功能都已经在前面介绍过了，因此心铃在这里只介绍其中“添加多条记录”菜单命令的实现方法，其余的几个命令处理函数就作为练习由读者朋友自己来完成吧。我们在菜单编辑器中双击mnuAdd菜单项，由CBuilder自动生成该菜单的命令处理函数mnuAddClick()的框架。该处理函数完成的功能是这样的，首先调出文件浏览对话框，允许用户一次选择多个文件，然后再将这些文件逐条添加到MP3记录集中。下面是mnuAddClick函数的代码。void __fastcall TMainForm::mnuAddClick(TObject *Sender){int i;TListItem * newItem;//设置打开文件对话框的属性，使其能够一次选中多个文件OpenDialog1->Options.Clear();OpenDialog1->Options<<ofAllowMultiSelect<< ofFileMustExist<< ofHideReadOnly;OpenDialog1->Title="选择多个MP3音乐";if(OpenDialog1->Execute())//运行打开文件对话框，获取多个MP3文件名{<DIR>AnsiString InputString = InputBox("歌手名称", "请输入歌手名称", "");for(i=0;i<OpenDialog1->Files->Count ;i++){<DIR>newItem=ListView1->Items->Add();newItem->Caption = OpenDialog1->Files->Strings;newItem->SubItems->Add(ChangeFileExt(ExtractFileName(<DIR><DIR><DIR>OpenDialog1->Files->Strings.c_str()),""));</DIR></DIR></DIR>newItem->SubItems->Add(InputString);</DIR>}SaveFile();</DIR>}//恢复OpenDialog1原来的属性设置OpenDialog1->Title="打开一个MP3音乐";OpenDialog1->Options.Clear();OpenDialog1->Options<< ofFileMustExist<< ofHideReadOnly; //此处“<<”不是移位操作符}<UL><LI>退出功能 </LI></UL>退出功能实现起来非常简单。关闭一个应用程序有很多种方法，它们的原理主要是关闭主窗口或结束消息循环。对Mp3Collect来说，只要关闭主窗体MainForm，就可以退出整个程序的运行。因此在“退出”按钮的事件处理函数中我们只要简单地调用Close()方法就可以了。　本讲中我们又为Mp3Collect添加了一些功能，让它使用起来更加方便，同时我们还学习了PopupMenu和OpenDialog两种新控件的使用方法，其实，熟练掌握各种元件的使用方法是学习CBuilder编程的关键点之一，朋友们要想提高CBuilder编程的水平，除了学习讲座中讲解的内容以外，还要自己多做练习，努力用好CBuilder的各种元件。CBuilder讲座已经过半了，心铃把讲座的电子文档以及第一阶段的源代码上传到了一位朋友的主页上，地址是：<a href="http://windwind.home.china.com/" target="_blank" >http://windwind.home.china.com</A>，需要的朋友可以去下载，如果有什么问题，欢迎朋友们来信指教。

我也说一句

发表

使用道具举报

韩冰

823 主题	3 听众	4048 积分

我的地盘我做主

该用户从未签到

13^#

发表于 2005-1-26 01:28 |只看该作者 |招呼Ta 关注Ta

<

align=center>异常处理<

align=justify>在程序设计过程中，我们不仅仅要考虑如何实现程序的功能，还要防止可能出现的异常情况，所谓异常情况就是指在程序运行过程中出现的不正常或不可预料的情况，例如打开的文件不存在、不能分配所需的内存等等。特别是当一个软件要面向大量用户时，它所遇到的运行情况可能千差万别，如果不能够应付各种异常情况，其功能再好再强大也难以弥被这样的缺陷。本讲要介绍的就是如何在CBuilder中实现异常处理，并为Mp3Collect添加异常处理代码。<UL><

align=justify><LI>传统的异常处理方法
</LI></UL><

align=justify>为了应付可能出现的不正常情况，传统的方法主要是通过条件判断语句来检查是否产生异常的事件。例如，在MP3Collect程序的SaveFile函数中，我们添加了如下的条件语句，以处理可能产生的打开文件错误：<

align=justify>if(fp==NULL)<

align=justify>{<DIR><

align=justify>ShowMessage("不能打开文件Mp3Collect.sav，请检查是否为共享冲突");<

align=justify>return;<

align=justify>}</DIR><

align=justify>在检测到了异常事件后，一般需要做两件事，一是显示错误的信息，例如以上代码中对ShowMessage()函数的调用，再一个就是中断程序原有的执行流程，因为异常的发生已经使得程序无法满足继续执行原有流程的条件，在SaveFile()函数中，如果文件打开失败，就不能继续后面的写文件操作，因此在异常处理中用return语句直接返回，中断了保存文件的操作。<

align=justify>这种异常处理的方法当然最容易理解，但在大型的软件开发项目中，需要考虑的异常情况非常多，如果每个地方都使用if语句来检查错误并处理异常，就会使编程工作变得非常繁杂，源代码的可读性也会大大降低。为了解决这一问题，人们在面向对象编程中找到了更加结构化和更简便的方法来实现异常处理。<UL><

align=justify><LI>CBuilder中的异常处理机制 </LI></UL><

align=justify>CBuilder支持多种异常处理机制，其中包括符合ANSI标准的C++异常处理机制，微软公司提供的Win32结构化异常处理机制，以及基于VCL的异常处理机制，后者是Borland公司建议在CBuilder编程中采用的异常处理方式。<

align=justify>基于VCL的典型异常处理结构的形式如下所示:<DIR><

align=justify>try{<

align=justify>//可能引起异常的代码段<

align=justify>}<

align=justify>catch（Exception &e）{<

align=justify>//对异常进行处理的代码<

align=justify>}</DIR><

align=justify>其中try和catch为C++关键字。try用于标志可能产生异常的代码段（Block），该代码段用try后紧跟的一对大括号{}包括在内。如果这段程序在运行时产生了异常，系统会中止try代码段中的代码执行，并查找相应的catch代码段，如果找到了合适的catch代码段，即表示错误被捕捉到，这时相应的catch代码段被执行，如果没有找到合适的catch代码段，即错误始终没有被捕捉到，则系统会调用VCL库按照缺省的方法来处理异常。当然，如果try代码段在运行时一切正常，则catch代码段是不会被调用的。<

align=justify>在上面的异常处理结构中，我们看到，catch语句带有一个参数Exception &e，该参数是一个异常对象的引用。其中Exception是VCL库提供的异常处理类，该类代表了VCL库对异常事件的一个封装。也许有的朋友要问，catch语句中的Exception &e对象是哪里来的呢？整个程序代码中没有该对象的声明或定义呀？这正是VCL异常处理机制的特点，当异常产生时，VCL库会自动生成该异常对象，并将其作为参数调用合适的catch代码段。<

align=justify>Exception类也是其它VCL异常处理类的基类。为了处理不同的异常原因，CBuilder提供了多种异常处理类，例如，代表申请内存失败的EOutOfMemory异常，代表除数为0的EDivByZero异常，代表文件打开错误的EFOpenError，代表数据库操作错误的EDatabaseError，以及代表多媒体操作错误的EMCIDeviceError等。<

align=justify>事实上，一个代码块可能产生不止一种类型的错误，这样，对一个try代码段可以采用多个catch代码段。例如，一个try代码段内部可能产生申请内存失败异常EOutOfMemory和打开文件错误EFOpenError，那么我们可以使用两个catch语句来分别监视两种异常情况。采用多个catch语句的优点在于，可以对不同类型的异常分别进行捕捉和处理，但有时即使使用了多个catch语句后仍无法保证能够捕捉到所有的异常，这时可以使用参数为省略号(...)的通用catch语句，它可以捕捉尚未捕捉的所有任意类型的异常。<

align=justify>下面是使用多个catch及通用catch语句的典型例子，try代码段中进行了打开文件操作、分配内存操作、文件读操作和整数除法操作，这些操作都有可能引起异常，程序中对打开文件异常和分配内存异常分别进行了处理，对剩下的异常则统一由catch(...)语句进行处理。<

align=justify>try{<DIR><

align=justify>FILE * fp=fopen("test.dat","rb");//可能出现EFOpenError类异常<

align=justify>BYTE * buf=new BYTE[1024];//可能出现EOutOfMemory类异常<

align=justify>int k,i=100,j=fread(buf,1024,1,fp);// 可能出现EReadError类异常<

align=justify>k=i/j; //可能出现EDivByZero类异常fclose(fp);delete buf;</DIR>}catch(EFOpenError &e){<DIR>ShowMessage("test.dat：打开文件错误");</DIR>}catch(EOutOfMemory &e){<DIR>ShowMessage("内存不足错误");</DIR>}catch(...){<DIR>ShowMessage("应用程序出现异常错误");</DIR>}CBuilder为VCL库提供了非常灵活的异常唤醒和异常处理机制，除了由VCL库检测和产生异常之外，还可以由程序通过throw语句来强制产生一个异常，例如下面的代码在检测到异常情况后，强制产生一个异常，并初始化异常消息，交由catch代码段进行处理，后者将显示出现异常的信息。在这段代码中，异常检测仍然采用的是传统的条件语句检测方法，但异常处理则采用的是面向对象的异常处理方式。try{<DIR>FILE * fp=fopen("test.dat","rb");if(fp==NULL) //检测异常条件<DIR>throw Exception("test.dat：打开文件错误"); //创建异常对象，并抛出异常对象</DIR>...//正常的执行代码</DIR>}catch(Exception &e){<DIR>ShowMessage(e.Message);//显示异常信息</DIR>}<UL><LI>为MP3Collect程序添加异常处理功能 </LI></UL>了解了有关CBuilder中异常处理的基础知识后，下面我们就来为Mp3Collect添加异常处理代码，以提高程序的容错性和强壮性。实际上，由CBuilder自动生成的程序框架中已经包含了异常处理代码，在应用程序入口单元文件MP3Collect.cpp中，入口函数WinMain()便包含有try和catch代码段。不过，仅仅依靠这些缺省的异常处理还不够，我们还需要针对不同的错误情况分别进行处理，才能保证程序运行的可靠性。在Mp3Collect中，可能出现的异常情况主要是由媒体播放器控件产生的EMCIDeviceError和进行文件操作时产生的各种文件操作异常，具体地说，可能产生异常的函数主要有btnShowAllClick()、btnFindClick()、SaveFile()、btnFileNameClick()、mnuAddClick()、ListView1SelectItem()、MediaPlayer1Click()、Timer1Timer()、PlayTheSong()等。不过，为了简化程序代码，心铃准备统一采用了Exception类来捕捉所有的VCL异常对象，并利用对象的类名称属性ClassName来显示该异常的类别。BtnFileNameClick()的主要功能是运行打开文件对话框OpenDialog1，并将获取的文件名赋给文件名称编辑框和媒体播放器，其中，从OpenDialog1->Execute()开始就可能产生异常，下面是添加了异常处理后的btnFileNameClick()：void __fastcall TMainForm::btnFileNameClick(TObject *Sender){try{//标志可能产生异常的代码段<DIR>if(OpenDialog1->Execute()) {<DIR>MediaPlayer1->FileName=OpenDialog1->FileName;edtFileName->Text=OpenDialog1->FileName;edtSongName->Text=ChangeFileExt(ExtractFileName(OpenDialog1->FileName),"");edtSingerName->Text="";MediaPlayer1->Open();</DIR>}</DIR>}catch(Exception &e){//异常信息由两部分组成：异常对象的类名称、异常对象的错误消息<DIR>ShowMessage(AnsiString(e.ClassName())+ ": " + e.Message);</DIR>}}mnuAddClick()与btnFileNameClick()相似，此处不再重复。ListView1SelectItem()在操作MediaPlayer1控件时容易产生异常，因此try代码段中应包括对MediaPlayer1的操作，添加异常处理后的该函数如下：void __fastcall TMainForm:

istView1SelectItem(TObject *Sender, TListItem *Item, bool Selected){if(Item && Selected) {<DIR>……//其它操作try{//try代码段包括对MediaPlayer1的操作<DIR>MediaPlayer1->FileName=edtFileName->Text;MediaPlayer1->Open();</DIR>}catch(Exception &e){//异常消息由三部分组成：异常的类名称、MediaPlayer1的错误代码及其错误信息<DIR><DIR><DIR>ShowMessage(AnsiString(e.ClassName())+" Error " + IntToStr(MediaPlayer1->Error) + ": " + MediaPlayer1->ErrorMessage);</DIR></DIR></DIR>}</DIR>}}MediaPlayer1Click()函数体内原有的全部代码都应该被包括在try之内，并且在catch代码中，除了显示异常信息外，还需要清除播放标志，并关闭Timer1。添加了异常处理代码的该函数如下：void __fastcall TMainForm::MediaPlayer1Click(TObject *Sender,TMPBtnType Button,bool &DoDefault){try{<DIR>switch(Button){<DIR>……//根据Button参数判断用户点击了什么按钮，进行相应的处理</DIR>}</DIR>}catch(Exception &e)//捷捉可能产生的异常{<DIR>DoDefault=false;//取消缺省操作m_bIsPlaying=false;//清除播放标志Timer1->Enabled=false;//关闭时钟EnableButtons(true);//使能命令按钮<DIR><DIR><DIR>ShowMessage(AnsiString(e.ClassName())+" Error " + IntToStr(MediaPlayer1->Error) + ": " + e.Message);</DIR></DIR></DIR></DIR>}}Timer1Timer()与MediaPlayer1Click()的异常处理方式基本一致，也是将函数体内原有的全部代码标志为try代码段，并在catch代码段中进行清除播放标志、关闭Timer1等操作。另外，在时钟处理函数中应该尽量缩短函数的执行时间，避免函数重入引起的问题，因此Timer1Timer()函数的catch代码段最好不要显示异常信息，如果确实需要显示，必须在关闭Timer1之后再显示。由于PlayTheSong()被MediaPlayer1Click()和Timer1Timer()调用，而后两个函数中的异常处理代码完全可以处理PlayTheSong()可能产生的异常，因此就不需要再单独添加异常处理代码了。最后，btnShowAllClick()、btnFindClick()、SaveFile()三个函数已经有了基于传统的条件判断式的异常检测和异常处理代码，能够处理打开文件不正常的情况，读者朋友可以自行练习一下，把这一部分的异常处理改用try和catch代码段来实现。　本讲介绍了在CBuilder中进行异常处理的内容，不少初学CBuilder（或其它编程语言）的朋友因为觉得异常处理很复杂或是用处不大，就忽略了这部分内容，其实，异常处理的原理并不复杂，无非是中断产生异常的程序代码，捕捉可能产生的异常并进行相应处理，掌握了这一基本原理之后，就容易理解为什么要引入异常处理机制，以及如何使用异常处理机制了。

我也说一句

发表

使用道具举报

韩冰

823 主题	3 听众	4048 积分

我的地盘我做主

该用户从未签到

14^#

发表于 2005-1-26 01:30 |只看该作者 |招呼Ta 关注Ta

<

align=center>数据库编程基础<

align=justify>到上一讲为止，我们的音乐收藏小程序Mp3Collect的第一个版本已经完成了，这个版本的实现是基于文件的，具有简单的记录编辑和管理能力，但它也存在一些缺陷，因此在接下来的几讲中，我们就来编写Mp3Collect的第二个版本，第二版将利用数据库来保存记录，并具备访问查询数据库的能力。由于数据库在讲座中是全新的内容，所以在动手编程之前，心铃首先介绍一下在CBuilder中进行数据库编程的一些基础知识。<UL><

align=justify><LI>什么是数据库
</LI></UL><

align=justify>通常我们在谈论数据库的时候，很容易把数据库（Database）、数据库管理系统（Database Management System）、和数据库应用程序（Database Application）混在一起，实际上，它们是构成数据库应用系统的三个组成部分，其中数据库是按照一定的结构组织在一起的相关数据的集合；数据库管理系统是建立、使用和管理数据库的软件系统，简称为DBMS；而数据库应用程序则是具有数据库访问能力的应用程序，它提供用户一个访问和操作特定数据库的用户界面。<

align=justify>举例来说，我们常用的Office办公套件中有一个Access软件，它就是一种数据库管理系统，如果利用Access创建一个MP3Collect.mdb文件用于保存MP3音乐信息，那么这个MP3Collect.mdb文件就是一个数据库，而将要编写的第二版MP3Collect.exe能够访问MP3Collect.mdb中保存的记录信息，因此它是一个数据库应用程序。<

align=justify>数据库和数据库管理系统是密切相关的，通常我们称某某数据库是某一类型的数据库，就是按照该数据库管理系统的名称来命名的。例如，MP3Collect.mdb可以称为一个Access数据库。数据库管理系统不仅可以直接访问某一类型的数据库，还可以提供给其它应用程序一个访问该类型数据库的引擎（即驱动程序），这样，应用程序在访问数据库时就不用考虑数据库的物理存储方式、检索算法的实现等具体问题，而只要把命令传给数据库引擎，然后从数据库引擎处获取结果数据就可以了。<

align=justify>根据数据库对数据组织方式的不同，数据库管理系统又分为几种类型，如关系数据库、对象数据库等。其中关系数据库以表格的形式存储数据，是目前应用最广泛的数据库管理系统。我们讲座中要用到的Access就是一种关系数据库管理系统。一个关系数据库是由一个或多个数据表（Table）组成，而一个数据表又是由许多结构相同的记录（Record）组成，每条记录相当于数据表的一行，数据表的列又称为字段（Field），字段定义了该项数据内容的数据类型、数据宽度等。有些数据库是以文件形式存在的，例如Access的一个MDB文件就是一个数据库，其所有的数据表都包含在文件的内部，而有些数据库则是指一个目录，例如

aradox和dBase就是使用目录的数据库，每个数据表在该目录下以独立的文件形式存在。<UL><

align=justify><LI>CBuilder数据库开发环境 </LI></UL><

align=justify>CBuilder在其开发环境中提供了强大的数据库支持，使CBuilder开发的应用程序能够很方便地具有数据库访问能力。<

align=justify>首先，CBuilder提供了Borland公司的数据库引擎（Borland Database Engine，简称BDE），它是CBuilder数据库应用程序开发环境的核心。BDE位于应用程序和DBMS的数据库引擎之间，使得应用程序可以更加方便地访问不同类型的数据库。BDE支持直接访问

aradox和dBase数据库，通过合适的驱动程序和数据库引擎，BDE还可以访问FoxPro、Access、Infomix、DB2、Oracle等多种流行的桌面数据库和远程数据库，同时BDE也是CBuilder提供的众多数据库元件的功能基础。<

align=justify>CBuilder中包含了大量和数据库应用程序相关的元件，它们可分为数据库访问元件和数据控制元件。数据访问元件位于Data Access元件栏中，主要包括DataSource控件、Table控件、Query控件等。数据访问元件在运行过程中是不可见的，它主要是为应用程序提供一条访问数据库的通道。数据控制元件位于Data Controls元件栏中，它们为应用程序提供可视化的用户界面，常用的数据控制元件包括DBNavigator、DBGrid、DBEdit、DBText等。很多数据控制元件都是在普通的用户界面元件的基础上增加了数据感知能力，如DBEdit控件（数据库编辑控件），它不仅具有普通Edit控件的用户输入、编辑、浏览文本的能力，还可以和数据库访问元件关联在一起，从而具有浏览、编辑数据库记录的能力。<

align=justify>在CBuilder中开发数据库应用程序的基本思路是：使用数据访问元件与数据库建立联接，获取所需的数据集（Dataset），并将数据控制元件与数据访问元件相关联，实现用户浏览、操作数据的界面。<

align=justify>CBuilder的数据库开发环境中还包括几个工具软件，它们是BDE管理器（BDE Administrator）、SQL浏览器（SQL Explorer）、数据库桌面（Database Desktop）等。<

align=justify>BDE管理器是BDE管理和配置的工具软件，它可以创建和维护BDE数据库别名（Alias），安装和删除数据库驱动程序。其中数据库别名是BDE引入的一个重要概念，它的意义和创建方法将在后面进行介绍。<

align=justify>数据库桌面是一个简单的数据库管理工具，可以进行许多基于数据表的操作，如创建数据表、修改数据表的结构以及查看和编辑数据表的内容等等。<

align=justify>SQL浏览器是一个数据库浏览工具，可以浏览数据库中的各种对象，如数据表、字段、索引等，还可以创建和维护数据库别名，编辑和显示数据表中的记录，以及对数据表执行SQL查询等。其中，SQL的全称是结构化查询语言（Structured Query Language），它是目前使用得最广泛的一种标准的数据库查询语言，几乎所有的数据库都支持SQL语言。<UL><

align=justify><LI>建立一个ACCESS数据库 </LI></UL><

align=justify>下面，我们以Mp3Collect程序为例，一步一步地学习如何在CBuilder中开发数据库应用程序。第一步需要建立一个数据库。我们以Microsoft的Access 2000为例来说明创建数据库的方法。选用Access 2000是因为它是目前比较流行的桌面数据库，使用和管理起来都很方便。<

align=justify>首先启动Access 2000，选择新建空的数据库，在要求输入数据库名称和路径时输入“MP3Collect\MP3Collect.mdb”（即Mp3Collect所在目录）。接下来在新建的空白数据库中选择表对象，并双击其中的“使用表设计器创建表”命令，创建一个数据表。<

align=justify>在表设计器中，依次定义四个字段：ID、FileName、SongName和SingerName。后面三个字段的意义我们已经非常熟悉了，它们的数据类型定义为文本，FileName的字段大小为255，其它两个字段的大小为50，并且FileName字段中不允许空字符串，而SongName和SingerName允许空字符串。另外，我们还要为这三个字段添加允许重复的索引，因为在程序中需要按照这三个字段对数据库进行查询，添加了索引的字段，可以加快查询的速度。ID是自动编号类型的字段，这个字段的引入是为了给每个记录一个唯一的数字标识，在关系数据库中，这样的数字标识对提高访问效率和系统性能很有用。另外，由于每条记录的ID是唯一的，我们可以为ID添加无重复的索引，并且指定其新值的产生方式为递增。设置好这四个字段以后，关闭表设计器，这时Access会提示输入新表的名称，这里我们将其命名为MP3Info。<

align=justify>这样，数据库MP3Collect.mdb就创建好了，虽然这只是一个简单的单数据表的数据库，但是通过创建这个数据库，我们可以更直观地了解数据库、表、记录、字段、索引的概念，以及它们相互间的关系。有兴趣的朋友不妨再在库中添加一个歌手档案数据库，学习关系数据库中多数据表之间是怎样关联起来的。<UL><

align=justify><LI>创建ODBC数据源和使用数据库别名 </LI></UL><

align=justify>接下来我们要为MP3Collect.mdb数据库创建一个ODBC数据源。什么是ODBC？它的全称是开放式数据库互联（Open Database Connectivity），这是一个数据库的访问标准。由于不同的数据库在存储结构、检索算法上存在着很大的差异，为了使应用程序能够通过统一、通用的方法访问不同的数据库，微软提出了ODBC数据库访问标准。目前几乎所有的数据库管理系统都支持ODBC标准。CBuilder的BDE也具有ODBC接口，可以在CBuilder下访问支持ODBC的数据库。<

align=justify>数据源是ODBC标准中的一个概念，它把一个具体的数据库定义成为一个数据源，数据源中指定了数据库的类型、所使用的驱动程序、所处的路径等信息。应用程序在访问数据库时，只需要和数据源建立联接，而不用考虑数据库所处的具体位置。这样，即使数据库所在的位置（如移到另一个目录中）发生了变化，我们只需要重新设置数据源，而不需要改变应用程序中的代码。<

align=justify>ODBC数据源由操作系统进行创建和管理。我们打开Windows的控制面板中，找到并运行其中的ODBC数据源工具，就会出现如图14-1所示的ODBC数据源管理器，其中有用户数据源、文件数据源、系统数据源等多个选项。我们在用户数据源选项页中单击“添加”按钮，弹出创建新数据源对话框，在其中选择数据源的驱动程序为Microsoft Access Driver(*.mdb)，然后按下完成按钮。<

align=justify>接下来，系统会调用Access2000的ODBC数据源安装对话框，如图14-2所示。在其中输入数据源的名称MP3CollectDSN，并通过“选择”按钮选择数据库“MP3Collect\MP3Collect.mdb”，设置完成后，按下“确定”按钮，新的数据源MP3CollectDSN就创建好了。<

align=justify>下面还要为MP3Collect.mdb数据库创建和配置据库别名。前面提到过，别名是BDE引入的重要概念。在CBuilder的数据库访问元件中，很多元件都需要指定一个数据库的名称，这个名称通常就是数据库别名。别名的作用和ODBC数据源的作用很类似，它也定义了数据库的一些连接属性，如数据库类型、路径、连接参数等等。基于BDE的数据库应用程序可以通过简单地指定数据库的别名，就可以和数据库建立起连接。<

align=justify>创建别名可以通过BDE管理器来完成。在Windows的控制面板中找到并打开BDE管理器，如图14-3所示。管理器的左边是Database选项页和Configuration选项页，前者用于创建和维护BDE数据库别名，后者用于配置BDE驱动程序。在Database选项页中，我们看到，数据源MP3CollectDSN也位于其中，说明ODBC数据源同样可以作为BDE数据库别名来使用。不过为了说明别名的使用方法，心铃决定创建一个新的别名MP3Collect。在Database选项页中调出关联菜单，在其中选择“New...”菜单命令，在弹出的“New Database Alias”中选择数据库驱动程序名称为“Microsoft Access Driver(*.mdb)”，然后确定。这时Database选项页中多了一项别名，我们将其名称改为MP3Collect。BDE管理器的右边显示了新别名的定义，在其中的ODBC DSN栏中输入MP3CollectDSN，其它的项目采用缺省配置，然后选择菜单命令“Object->Apply”保存数据库别名MP3Collect的设置，为了验证别名设置是否正确，还可以选择菜单命令“Object->Open”来打开MP3Collect，如果打开正确，则说明别名设置是正确的，以后就可以在CBuilder应用程序中使用别名MP3Collect了。最后，用菜单命令“Object->Close”关闭打开的数据库别名。<UL><LI>MP3Collect的窗体设计 </LI></UL>完成上面的准备工作之后，我们就可以开始设计新的MP3Collect了。首先在CBuilder中新建一个工程（也可在原有工程上改，不过最好要做一个备份），工程名称仍然采用MP3Collect。工程中的主窗体名称为MainForm，主窗体类名称为TMainForm。新的窗体和第一版的窗体具有同样的界面风格。其中，窗体的上半部分与第一版完全一样，有三个编辑框edtFileName、edtSongName和edtSingerName，用于输入记录信息和查询条件，有七个命令按钮btnFilename、btnAdd、btnModify、btnDelete、btnFind、btnShowAll和btnExit，一个循环播放选项框chkLoop，以及一个媒体播放器控件MediaPlayer1。其余的非可视元件如Timer1、OpenDialog1和PopupMenu1等也与第一版中完全一样。窗体中的记录显示控件由原来的ListView1改为数据库控制元件DBGrid1。并新添了数据库控件Database1（VCL类为TDatabase）、数据表控件Table1（VCL类为TTable1）、数据查询控件Query1（VCL类为TQuery）和数据源控件DataSource1（VCL类为TDataSource）。放置好各种元件之后，还要设置元件的属性。这里只介绍新添的几个数据库控件的属性，其余的与第一版中的一样。首先设置数据库控件Database1，该控件代表了应用程序与某个数据库的连接，使程序获得对整个数据库的访问权。设置其Database Name属性为MP3Collect，指定其连接的数据库为BDE别名MP3Collect，由于别名中已经定义了连接的各种参数，所以Database1的DriveName、AliasName等属性均不需要进行设置。另外设置其LoginPromote属性设为false，表示连接时不要弹出登录对话框，登录对话框是用于在与数据库建立连接时提示用户输入用户名和口令的，在本例中并没有为数据库设置口令，所以不需要它。最后，将Database1的Connected属性设为真，表示与数据库建立起连接。接下来设置数据表控件Table1。该控件是最基本的数据库访问控件，它代表了实际的数据表对象，其中封装了对数据表的操作，如创建数据表，定义字段、索引，以及添加、修改、删除记录等。我们的程序中使用该控件主要是用于添加、修改和删除记录等操作。选中Table1控件后，可以在对象监视器看到它的属性非常多，其中大部分都可以采用缺省值，需要设置的有以下三个：在DatabaseName属性中，点击右侧的下拉式列表框，选择别名MP3Collect；在TableName属性栏中选择数据表MP3Info，并在其IndexName属性中选取索引ID；设置Active属性为true。至于其它属性，请有兴趣学习数据库开发的朋友参考相关资料。　由于篇幅所限，其余几个数据库控件的属性设置，以及功能代码的实现就留到下一讲中。本讲的内容涉及到数据库的许多概念，初次接触的朋友可能会感到比较难懂和枯燥，建议感兴趣的朋友们多结合实例，充分理解这些概念。　名词解释：数据表：一组相关数据的集合，类似于表格，它的每一行称为一条记录，每一列称为一个字段。在关系数据库中，数据表是真正存储数据的地方。记录：在数据库中，记录是一个专有名词，它是数据表的单一入口，每条记录由几个字段组成。字段：记录中一个特定的数据项目，数据表中的每一列定义了字段的数据类型和数据宽度等属性。索引：数据库中为加快对某一字段的查询而保存的特殊信息。记录集：应用程序访问数据库时获得的一组数据集合，它可以是一个表中的全部数据，也可以是表的一个子集，或是几个表的合集。BDE：Borland公司开发的数据库引擎，是Delphi以及CBuilder应用程序访问数据的核心。数据源：数据源是ODBC标准中的一个概念，它为某一个具体的数据库指定一个名称，数据源中定义了数据库的类型、所使用的驱动程序、所处的路径等信息。别名：别名用于基于BDE的数据库应用程序中，它的作用与ODBC数据源很类似。设置和维护数据库别名一般是通过工具软件BDE管理器来完成。

我也说一句

发表

使用道具举报

韩冰

823 主题	3 听众	4048 积分

我的地盘我做主

该用户从未签到

15^#

发表于 2005-1-26 01:33 |只看该作者 |招呼Ta 关注Ta

<

align=center>简单数据库查询操作<

align=justify>上一讲我们学习了数据库编程的基础知识，并对MP3Collect进行了一番改造，使其具有数据库访问能力。在本讲中，我们首先设置三个数据库元件Query1、DataSource1和DBGrid1的属性，接下来学习如何通过Query控件实现简单的数据库查询操作。<UL><

align=justify><LI>设置控件属性
</LI></UL><

align=justify>Query1控件的用途是查询数据库，获取可以显示在窗体中的数据。Query控件和Table控件一样，它们都是从VCL类TDataSet（数据集元件）中继承来的，都代表数据库中一组记录的集合。不同的是，Table控件代表库中实际存在的一个数据表对象，而Query控件则代表一次查询的结果。Query控件支持通过SQL进行查询，因此比Table控件具有更大的灵活性，它可以同时访问多个数据表，可以灵活访问数据表中的行和列，可以实现十分复杂的条件查询。<

align=justify>SQL的全称是结构化查询语言，它是一种标准的数据库查询语言，具有自己的关键字（SQL中的关键字是不分大小写的，SELECT和Select的作用是相同的）和语法，典型的SQL查询语句如下所示：<

align=justify>SELECT [字段名] FROM [数据表名] WHERE [条件子句]<

align=justify>其中SELECT、FROM和WHERE都是SQL的关键字。SELECT代表查询操作，“字段名”表示返回的记录集中所包含的字段，字段名可以使用通配符*，表示查询的数据表中的所有字段，“数据表名”表示在哪个数据表中进行查询，“条件子句”为查询的条件。<

align=justify>了解了SQL的基本语法后，下面我们来设置Query1控件的SQL属性。在对象监视器中双击Query1控件的SQL属性（该属性为TStrings*类型），打开字符串列表编辑器，在其中输入这样两句“Select * From MP3Info”和“Order by FileName ASC”。注意第二句要另起一行，这样在后面的编程中可以很方便地改变记录的排序方式。这两句合在一起的意思是获取MP3Info数据表中的所有记录，并以FileName字段为基准按升序方式排序。除了指定Query1控件的SQL属性外，还要指定它在哪个数据库中进行查询，将其Database属性设为别名MP3Collect。然后指定其Active属性为true，其它属性值都接受缺省值。<

align=justify>DataSource控件从字面上可翻译为数据源控件，不过它与上一讲介绍的ODBC数据源可不是一回事。DataSource控件是一个中间控件，它位于数据集控件（如Table控件或Query控件）和数据控制控件（如DBGrid控件或DBEdit控件）之间，是联系两类控件的桥梁。DataSource控件最重要的属性是它的数据集属性DataSet，在对象浏览器中点击该属性右侧的下拉式列表框，可以看到其中列出了Table1和Query1，我们选中Query1，表示DataSource控件从Query1中获取数据。<

align=justify>DBGrid控件是一种常用的数据控制元件，它以表格的方式显示记录，表格中的行表示记录，而列表示记录的字段。所有的数据控制元件都必须和某个DataSource控件相关联，才能获取所需要的数据，因此我们在这里将DBGrid1控件的DataSource属性设为DataSource1。指定DBGrid1的数据来源后，我们可以看到DBGrid1的表格中立即显示出相应的记录了。<

align=justify>缺省情况下，DBGrid1会显示数据集的全部字段，并以字段的名称显示在列标题中，我们可以在设计时通过DBGrid控件的列编辑器修改列的数目、标题以及布局等。在对象浏览器中双击Columns属性，打开列编辑器，此时列编辑器中的内容还是空的，因此我们在列编辑器中点击鼠标右键，选择关联菜单中的“Add All Field”命令，先把数据集中的所有字段添加进来。由于我们不希望将记录的编号显示出来，所以要删除其中的“ID”字段。<

align=justify>接下来我们来设置各列的列标题。首先选中“FileName”列，这时可以在对象浏览器中看到该列的各种属性，其中FieldName属性为“FileName”，表示该列显示“FileName”字段的内容，列对象的Title属性为复合属性，展开Title属性，将其中的Caption子属性改为“文件名称”，然后设置“FileName”列的列宽度，其缺省的Width属性为-1，表示根据字段的宽度自动设置列宽度，我们可以根据窗体的布局为其重新设置一个实际的值。按照同样的方法，我们继续把“SongName”、“SingerName”的列标题改为“歌曲名称”和“歌手名称”。<

align=justify>设置好DBGrid1控件的列对象的属性后，接下来还要设置它的Options属性，该属性决定了显示记录的方式。展开DBGrid1控件的Options属性，可以看见其中有十多项选项，将其中的dgEditing、dgAlwaysShowEdit和dgMultiSelect三个选项设为false，其余的选项都设为true，如此设置可以屏蔽在DBGrid中直接修改记录以及同时选中多条记录的功能。另外还可以设置DBGrid1的ReadOnly属性为true，使用户不能在网格中进行添加、修改、删除记录的操作。最后，设置DBGrid1的

opupMenu属性为

opupMenu1，为其指定关键菜单。<

align=justify>现在所有元件的属性都设置好了，下面我们来看看访问数据库的具体方法。为了简洁起见，下面的代码中都没有异常处理措施，读者朋友可以根据第13讲的内容自己添加相应的异常处理代码。<UL><

align=justify><LI>实现查询功能 </LI></UL><

align=justify>Table控件和Query控件都可以实现查询，但Table不支持SQL，只能通过数据表中的索引实现比较简单的检索功能（在后面还会用到Table的查询功能），因此心铃决定用Query1控件进行查询，提供显示在DBGrid1中的数据。<

align=justify>所有的查询都是通过设置Query1控件的SQL属性来完成的。实现显示所有记录的SQL语句最简单，即前面给出的SQL属性。下面是btnShowAllClick事件处理函数的新代码，其中给出了在运行时改变Query控件SQL属性的方法。<

align=justify>void __fastcall TMainForm::btnShowAllClick(TObject *Sender)<

align=justify>{<

align=justify>Query1->Close();//先关闭上一次查询<

align=justify>Query1->SQL->Clear();//清除原来的SQL语句<

align=justify>Query1->SQL->Add("Select * from MP3Info");//添加一个字符串，SQL属性由多个字符串组合而成<

align=justify>Query1->SQL->Add("Order By FileName ASC");<

align=justify>ColumnToSort=0;//记下当前排序的基准列为“FileName”<

align=justify>m_IsAsc=1;//记下当前排序的方式为升序方式<

align=justify>Query1->Open(); //设置好SQL属性后，打开Query1，获取数据并自动更新DBGrid1<

align=justify>}<

align=justify>在改变Query1的SQL属性之前，首先应将上一次查询关闭。SQL属性是一个TStrings对象指针，它将多个字符串组成一个完整的SQL查询语句，其中的Order By是SQL中的关键字，表示按照某一个字段进行排序，ASC是排序方式关键字，表示升序方式。ColumnToSort和m_IsAsc是MainForm类的成员变量，用于保存排序的基准列号和排序方式，有关排序的内容还要在下一节仔细介绍。设置好SQL属性后，调用Query控件的Open()方法，该方法会通过BDE引擎向数据库进行一次查询操作，获取所需的数据，并自动更新DBGrid1中显示的数据。条件查询操作需要使用SQL语句中的WHERE条件子句。查询的原理是依次读取三个条件输入框的内容，如果某一条件输入框不为空，则添加一个查询条件。这里使用的查询条件的语法如下所示：[字段名] Like '带通配符的字符串'其中[字段名]为要检查的字段，LIKE为SQL的关键字，表示将字段内容与“带通配符的字符串”进行比较，看是否符合给定的模式。“带通配符的字符串”需要用单引号包括起来，常用的通配符有“%”、“？”等。其中“%”表示任意字符串。例如，下面的SQL语句表示从MP3Info中取出所有FileName字段中包括“MP3”字样的记录：SELECT * FROM MP3Info WHERE FileName Like %MP3%另外，在MP3Collect中，各个查询条件之间是逻辑与的关系，因此多个查询条件之间要用关键字AND进行连接，表示只有符合所有查询条件的记录才是所需要的记录。下面是btnFindClick事件处理函数的新代码：void __fastcall TMainForm::btnFindClick(TObject *Sender){Query1->Close();//首先关闭Query1Query1->SQL->Clear();//清除原有的SQL语句Query1->SQL->Add("Select * from MP3Info");//表示从数据表中MP3Info中查询//如果edtFileName不为空，则添加对FileName字段的查询，注意不要漏了其中的单引号if(!edtFileName->Text.IsEmpty())<DIR>Query1->SQL->Add(" where FileName Like '%"+edtFileName->Text+"%'");</DIR>//如果edtSongName不为空，则添加对SongName字段的查询，由于整个条件子句中只有//一个WHERE关键字，多个条件之间需要用AND关键字连接，所以要进行一些特殊处理if(!edtSongName->Text.IsEmpty()){<DIR>if(Query1->SQL->Count>1)//判断是否已经包含查询条件了<DIR>Query1->SQL->Add(" and ");//如果是，则用AND连接本查询条件</DIR>else<DIR>Query1->SQL->Add(" where ");//否则用WHERE引出查询条件</DIR>Query1->SQL->Add("SongName Like '%"+edtSongName->Text+"%'");//添加一个查询条件</DIR>}//如果edtSingerName编辑框中不为空，则添加对SingerName字段的查询if(!edtSingerName->Text.IsEmpty()){<DIR>if(Query1->SQL->Count>1)//判断是否已经包含查询条件了<DIR>Query1->SQL->Add(" and ");//如果是，则用AND连接本查询条件</DIR>else<DIR>Query1->SQL->Add(" where ");//否则用WHERE引出查询条件</DIR>Query1->SQL->Add("SingerName Like '%"+edtSingerName->Text+"%'");//添加一个查询条件</DIR>}Query1->SQL->Add(" Order By FileName ASC");//添加排序子句ColumnToSort=0;//记下当前排序的基准列为“FileName”m_IsAsc=1;//记下当前排序的方式为升序方式Query1->Open();}<UL><LI>实现排序 </LI></UL>前面我们已经用到了SQL语言的排序子句，排序子句是由关键词Order By引出的，其后跟一个或多个字段，表示以某个字段为基准进行排序，如果有多个字段，则先按第一个字段进行排序，如果出现第一个字段的内容相同，再按第二个字段排序，依此类推。另外还可以用ASC（升序方式）和DESC（降序方式）规定其排序的方式。我们在TMainForm中添加了一个成员变量m_IsAsc，用于保存当前排序的方式，注意应在窗体的初始化函数FormCreate中将m_IsAsc初始化为1。下面是菜单命令mnuSortByFileName的命令处理函数：void __fastcall TMainForm::mnuSortByFileNameClick(TObject *Sender){if(ColumnToSort!=0)//如果以前不是按FileName字段排序，则改为按FileName字段排序{<DIR>Query1->Close();Query1->SQL->Delete(Query1->SQL->Count-1);//清除原来的排序子句Query1->SQL->Add("Order By FileName ASC");//添加新的排序子句ColumnToSort=0;//记下当前排序的基准列为“FileName”m_IsAsc=1; //记下当前排序的方式为升序方式Query1->Open();</DIR>}else //否则切换排序的方式{<DIR>Query1->Close();Query1->SQL->Delete(Query1->SQL->Count-1);if(m_IsAsc)<DIR>Query1->SQL->Add("Order By FileName DESC");//如果原来是升序，改为降序</DIR>else<DIR>Query1->SQL->Add("Order By FileName Asc");//如果原来是降序，改为升序</DIR>m_IsAsc=1-m_IsAsc;//改变m_IsAsc的值，反映排序方式的改变Query1->Open();//打开Query1</DIR>}}另外两个排序菜单命令的处理函数mnuSortBySongNameClick和mnuSortBySingerNameClick的实现方法与mnuSortByFileNameClick很类似，就交给读者朋友自己完成吧。最后，还要响应DBGrid1的OnTitleClick事件，允许用户通过单击DBGrid1的列标题来改变排序的方式。下面是DBGrid1TitleClick函数的新代码：void __fastcall TMainForm:

BGrid1TitleClick(TColumn *Column){<DIR>switch(Column->Index)//用户点击的列号</DIR>{<DIR>case 0://如果是第一列，则按FileName进行排序mnuSortByFileNameClick(NULL);break;</DIR>case 1: //如果是第二列，则按SongName进行排序<DIR>mnuSortBySongNameClick(NULL);break;case 2: //如果是第三列，则按SingerName进行排序mnuSortBySingerNameClick(NULL);break;</DIR>}}本讲我们学习了利用Query控件和SQL语句实现简单数据库查询的方法，SQL实际上是数据库编程的核心内容之一，因此心铃建议想进一步学习数据库开发的读者朋友一定要掌握好SQL的语法和用法。在下一讲中，我们将学习简单的数据库编辑操作，即添加、修改和删除记录的方法。

我也说一句

发表

使用道具举报

韩冰

823 主题	3 听众	4048 积分

我的地盘我做主

该用户从未签到

16^#

发表于 2005-1-26 01:34 |只看该作者 |招呼Ta 关注Ta

<

align=center>简单数据库编辑操作<

align=justify>上一讲我们学习了利用Query1控件和SQL语句实现简单数据库查询的方法，在本讲中，我们将要学习如何利用Table1控件来实现添加、修改、删除记录等数据库编辑操作。<UL><

align=justify><LI>获取当前记录
</LI></UL><

align=justify>在上一讲中我们曾经比较过Query控件和Table控件的异同，并指出Query控件是通过SQL语句来操作数据库的，SQL语句除了可以实现查询外，也可以通过关键字INSERT、UPDATE、DELETE来实现添加、修改和删除记录的操作，但是这一类SQL语句对初学者来说有一定难度，而Table控件提供有Insert、Edit、Delete等方法，实现简单的数据库编辑操作比Query控件更为容易，因此心铃决定以Table控件为例来介绍进行数据库编辑操作的方法。<

align=justify>MP3Collect使用的Query1和Table1是两个独立的控件，用户看到窗体上的数据是由Query1提供的，怎样才能让Table1控件知道用户当前操作的是哪一条记录呢？<

align=justify>为了解决这个问题，我们需要先学习一些基础知识。数据集控件（Table或Query）除了提供一组记录集合之外，还保存了一个称为光标（Cursor）的指针，用于指向当前记录，程序可以通过调用TDataSet类的First()、Next()、

rior()、MoveBy()、Last()等方法控制记录光标的移动。<

align=justify>如果数据集控件与某个数据控制控件相关联，则还可以通过数据控制控件来移动记录光标，例如，MP3Collect主窗体上的Query1控件和DBGrid1控件建立了关联（通过DataSource1控件），当用户在DBGrid1中选择不同的行时，同时也会把Query1的记录光标移到相应的位置上。<

align=justify>无论用哪种方式改变了数据集控件的当前记录光标，都会触发数据集控件的AfterScroll事件。因此，我们要为Query1控件添加AfterScroll事件的处理函数Query1AfterScroll，在其中获取当前记录的内容并显示在三个编辑框中，同时在MediaPlayer1中打开相应的音乐文件，另外还要利用Table控件的FindKey()方法将Table1的记录光标调整到相同的记录上。<

align=justify>前一讲中介绍过，Table控件也具有一定的查询能力，FindKey()就是它的查询方法之一，其原理是利用数据表的索引进行快速的检索操作。查询的步骤如下：首先设置Table控件的IndexName属性。在窗体设计阶段，我们已经将Table1控件的IndexName属性设为ID，选择ID作为Table1的索引，是因为每个记录的ID值是唯一的，不用担心会检索出重复的记录。在运行时确认Table1处于打开的状态，然后调用其FindKey()方法，查找数据表中ID值与Query1控件的当前记录ID值相等的记录，同时将Table1的光标移到新的记录上。下面就是Query1AfterScroll的实现代码。<

align=justify>void __fastcall TMainForm:

uery1AfterScroll(TDataSet *DataSet)<

align=justify>{<

align=justify>if(Query1->State==dsBrowse )//如果Query1控件当前处于记录浏览状态<

align=justify>{<DIR><

align=justify>if(!Query1->IsEmpty())//如果Query1的数据集不为空<

align=justify>{<DIR><

align=justify>//声明TVarRec类型的变量数组，FindKey()方法使用该类型的数组作为参数。</DIR></DIR><

align=justify>TVarRec KeyValues[1]; <

align=justify>//获得Query1控件的当前记录的ID字段内容，并赋给KeyValues数组中的第一个元素<DIR><DIR><

align=justify>KeyValues[0]=Query1->FieldByName("ID")->AsInteger;<

align=justify>if(!Table1->Active) //如果Table1还未打开，将其打开<DIR><DIR><

align=justify>Table1->Active =true;</DIR></DIR></DIR></DIR><

align=justify>Table1->FindKey(KeyValues,0);//调用FindKey()方法，查找并定位新的记录光标<

align=justify>//获取Query1控件当前记录的各个字段内容，并赋给相应的编辑框<DIR><DIR><

align=justify>edtFileName->Text=Query1->FieldByName("FileName")->AsString;<

align=justify>edtSongName->Text=Query1->FieldByName("SongName")->AsString;<

align=justify>edtSingerName->Text=Query1->FieldByName("SingerName")->AsString;</DIR></DIR><

align=justify>//在MediaPlayer1中打开相应的音乐文件<DIR><DIR><

align=justify>MediaPlayer1->FileName=Query1->FieldByName("FileName")->AsString;<

align=justify>MediaPlayer1->Open();</DIR>}</DIR>}}<UL><LI>移动当前记录 </LI></UL>为了实现向前、向后浏览和连续播放的功能，我们需要通过程序控制数据集的光标移动。其中，向前移动一条记录使用TDataSet类的Prior()方法，向后移动一条记录使用Next()方法，移动到第一条记录使用First()方法，移动到最后一条记录使用Last()方法。TDataSet类还提供了两个布尔类型的属性Bof和Eof，用于确定当前的记录是否是数据集中的第一个记录或最后一个记录。下面给出用户点击MediaPlayer的Next和Prev按钮时的事件处理代码（完整的事件处理函数参见第11讲）：<DIR>case Mplayer::btNext: //如果用户点击Next按钮，播放下一首MP3文件<DIR>EnableButtons(false);//使记录操作按钮失效Query1->Next();//使Query1控件的记录光标向后移动一条记录if(Query1->Eof)//如果Query1控件的Eof属性为真，则表示已到了最后一个记录<DIR><DIR>Query1->First();//循环到当前数据集的第一个记录</DIR></DIR>m_bIsPlaying=true; //设置m_bIsPlaying标志DoDefault=false; //不执行缺省的按钮事件PlayTheSong();//执行打开MP3文件、播放MP3文件等操作Timer1->Enabled=true; //打开定时器break;</DIR>case Mplayer::btPrev: //如果用户点击Prev按钮，播放上一首MP3文件<DIR>EnableButtons(false);Query1->Prior();//使Query1控件的记录光标向前移动一条记录if(Query1->Bof)//如果Query1控件的Bof属性为真，则表示已到了第一个记录<DIR><DIR>Query1->Last();//循环到当前数据集的最后一个记录</DIR></DIR>m_bIsPlaying=true;DoDefault=false;PlayTheSong();Timer1->Enabled=true;</DIR></DIR>break;Timer1的时间事件处理函数如下所示：void __fastcall TMainForm::Timer1Timer(TObject *Sender){if(MediaPlayer1->Position == MediaPlayer1->Length) //如果已经播放到一个文件的末尾{<DIR>//检测chkLoop是否处于选中状态，以及媒体播放器是否处于播放状态if(chkLoop->Checked && m_bIsPlaying){<DIR>Query1->Next();//使Query1控件的记录光标向后移动一条记录if(Query1->Eof)//如果Query1控件的Eof属性为真，则表示已到了最后一个记录<DIR><DIR>Query1->First();//循环到当前数据集的第一个记录</DIR></DIR></DIR>}else{<DIR>EnableButtons(true);//使记录操作按钮有效Timer1->Enabled =false;//关闭定时器</DIR>}</DIR>}}<UL><LI>添加记录 </LI></UL>TTable控件类提供了两种添加记录的方法，它们是Insert()和Append()。其中Insert()方法在当前记录处添加一条新的记录，而Append()则是在数据表的最后添加一条新记录，在MP3Collect中我们要使用的是前者。Insert()方法向数据表中添加一条空白的记录，并使Table控件处于记录添加状态。接下来设置新记录的各个字段值，利用TTable类的FieldByName()方法可以获取当前记录的各个字段对象。VCL为字段提供了封装类TField，根据字段不同的数据类型，TField类又提供了As****属性，用于读写其字段值。在MP3Info数据表中，FileName、SongName、SingerName都是文本类型，因此使用TField类的AsString属性来读写它们的内容。设置好新记录的各个字段值后，需要调用Table控件的Post()方法将此次操作保存到数据库中，如果用户放弃了这次操作，也可以调用Cancel()方法取消这次添加操作。Post()和Cancel()都可以结束记录添加状态，使Table控件恢复成记录浏览状态。下面给出“添加”按钮的命令响应函数btnAddClick()的新代码，另外一个同时添加多条记录的函数mnuAddClick()留给读者朋友自己完成。void __fastcall TMainForm::btnAddClick(TObject *Sender){if(edtFileName->Text.IsEmpty())//判断文件名编辑框中是否为空{<DIR>Application->MessageBox("文件名称不能为空，请重新输入文件名称！","MP3Collect",MB_OK);edtFileName->SetFocus();//令文件名编辑框获得键盘输入焦点return;</DIR>}Table1->Insert();//添加一条空白记录Table1->FieldByName("FileName")->AsString=edtFileName->Text;//设置FileName字段Table1->FieldByName("SongName")->AsString=edtSongName->Text;//设置SongName字段Table1->FieldByName("SingerName")->AsString=edtSingerName->Text;//设置SingerName字段Table1->Post();//保存这次添加操作所作的修改RefreshQuery();//更新Query控件中的数据，同时也更新窗体中的显示}在成功地添加了记录之后，还需要更新窗体上显示的数据，也就是要更新Query1控件中的数据。由于在进行添加、修改、删除记录等操作之后同样要进行这一步骤，我们为MainForm窗体类添加了一个新的成员函数RefreshQuery()来完成这一工作。更新Query1的方法比较简单，只需要先关闭一次，再重新打开就可以。为了保证在更新后还能恢复正确的记录光标位置，我们利用了数据集控件的书签对象（Bookmark）来保存和恢复记录光标位置。RefreshQuery()函数如下所示：void __fastcall TMainForm::RefreshQuery(){TBookmark * bm=(TBookmark *)Query1->GetBookmark();//获取当前Query1控件的书签对象Query1->Close();//先关闭Query1Query1->Open();//再重新打开Query1，即可更新其中的数据Query1->GotoBookmark(bm);//利用书签对象恢复记录光标的位置Query1->FreeBookmark(bm);//释放书签对象}<UL><LI>修改记录和删除记录 </LI></UL>由于前面已经为Table1控件和Query1控件的光标位置作了同步调整，因此可以保证在Table1中修改和删除的记录是用户当前所选择的记录。修改记录的步骤是：首先调用Table1控件的Edit()方法，使其处于记录修改状态，再设置当前记录的各个字段值，设置方法与添加记录中一样，接下来调用Table1控件的Post()方法保存这次修改，并关闭记录修改状态，回复到记录浏览状态，最后调用RefreshQuery()函数更新显示数据。删除记录的操作最简单，只要调用Table1控件的Delete ()方法就可以删除其当前的数据记录。下面是“修改”和“删除”按钮的命令响应函数的实现代码：void __fastcall TMainForm::btnModifyClick(TObject *Sender) //“修改”按钮的命令响应函数{Table1->Edit();//使Table1控件处于记录编辑状态Table1->FieldByName("FileName")->AsString=edtFileName->Text;//修改FileName字段Table1->FieldByName("SongName")->AsString=edtSongName->Text;//修改SongName字段Table1->FieldByName("SingerName")->AsString=edtSingerName->Text;//修改SingerName字段Table1->Post();//保存这次操作所作的修改RefreshQuery();}void __fastcall TMainForm::btnDeleteClick(TObject *Sender) //“删除”按钮的命令响应函数{Table1->Delete();//删除当前记录RefreshQuery();//更新Query控件中的数据，同时也更新窗体中的显示}　到现在为此，我们对MP3Collect的改造也已基本完成，第二版的MP3Collect程序已经具备了第一版的全部功能，并且解决第一版存在的一些潜在问题。数据库编程其实是一个相当复杂的课题，讲座中介绍的内容仅仅是九牛一毛，读者朋友们必须多学习、多动手实践方可真正掌握好数据库编程。

我也说一句

发表

使用道具举报

韩冰

823 主题	3 听众	4048 积分

我的地盘我做主

该用户从未签到

17^#

发表于 2005-1-26 01:37 |只看该作者 |招呼Ta 关注Ta

<

align=center>实现简单的数据报表<

align=justify>在前两讲中我们已经学习了对数据库进行查询和读写操作的基本方法，本讲中我们将为MP3Collect小程序添加另一项与数据库操作有关的新功能：数据报表打印功能。<

align=justify>打印数据报表是开发数据库类应用程序过程中经常遇到的问题，特别是在商务类的应用软件中，单位领导或者客户关心的不仅仅是显示在计算机屏幕上的数据，更重要的是打印出来的整齐清晰的报表。<

align=justify>设计一个好的数据报表应该遵循这样几个原则：首先要了解用户需要得到什么样的数据，数据库中的记录可能有成千上万条，打印出来的应该是经过提炼、精简的，其中将涉及到数据库的查询、统计、分组、排序等操作；第二个要点是关于报表的布局设计，其设计原则是整齐有序、美观大方，在某些应用场合，如财会类的应用软件中，报表的设计需要遵循固定的格式。第三点是将数据与报表结合起来，实现数据报表的生成与打印。<UL><

align=justify><LI>使用数据报表向导
</LI></UL><

align=justify>从前面的介绍中我们可以看出，实现数据报表的功能还是颇为复杂的。好在CBuilder充分考虑到了数据报表的重要性，在其集成开发环境中提供了许多现成的数据报表控件，因此大大方便了数据报表的设计与实现。另外，CBuilder还提供有专门的数据报表向导，利用向导可以在几分钟内完成一个简单的数据报表的设计。<

align=justify>下面我们首先学习如何使用CBuilder的数据报表向导。在MP3Collect工程中使用菜单命令“File->New...”，在弹出的新建对象对话框中选择“Business”页，并双击其中的“Quick Report Wizard”图标。这时会弹出如图17-1所示的新数据报表向导对话框，在其中选择报表的样式为“List Report”，然后按下“Start Wizard”按钮启动向导。<

align=justify>向导接下来会显示如图17-2所示的参数设置对话框。“Alias or directory”一栏用于指定数据库，我们在下拉列表框中选择数据库别名MP3Collect。“Table Name”一栏用于指定表，我们选择MP3Info。这时，数据表MP3Info中的四个字段ID、FileName、SongName、SingerName自动出现在Avaliable fields（可用的字段）列表框中，它的右侧是Selected fields（选中的字段）列表框，两个列表框中间有四个箭头按钮，用来在两个列表框之间移动字段。在本例中我们只希望打印歌曲名称和歌手名称两项内容，因此将SongName、SingerName两个字段选入Selected fields列表框。设置好显示的数据内容后，按下“Finish”按钮，创建报表完毕，这时我们可以看到，工程中新添了一个报表窗体Form1，如图17-3所示，该窗体上的各个控件的用途及使用方法在下一节中详细介绍。现在我们先来看一下报表窗体运行的效果，用鼠标右键单击窗体中的空白部分，在关联菜单中选择

review命令，可以对报表进行打印预览，如图17-4所示。打印预览是以所见即所得的方式显示报表输出到打印机的效果，在预览窗口的上方有一排快捷按钮，可以进行切换预览方式、浏览不同的页面等操作，其中还有两个打印机形状的按钮，一个用于设置打印机，另一个则是执行打印命令，完成向打印机的输出。预览完毕后可以点击工具条上的Close按钮关闭预览窗口。<

align=justify>从这个例子中我们可以看出，使用报表向导来创建报表时，只需要指定数据库、数据表、报表中输出的字段名，就可以生成一个简单的数据报表。下面我们就来仔细了解一下报表窗体上的各个组成部分，并在向导生成的报表基础上稍加修改，使之更加满足我们的要求。<UL><

align=justify><LI>常用的数据报表元件 </LI></UL><

align=justify>图17-3所示的数据报表窗体中，TTable控件Table1是我们所熟悉的，它指向MP3Collect数据库中的MP3Info数据表，其作用是提供打印报表所需要的数据。窗体上的其它控件都属于QuickReport控件。QuickReport是由QuSoft AS公司开发的第三方软件产品，它以一组元件的形式集成在CBuilder中，能够帮助CBuilder编程人员以可视化的方法快速开发数据报表应用程序，目前CBuilder 5.0中采用的是QuickReport 3.0版本。<

align=justify>在元件面板中找到QReport元件栏，我们可以看到其中包含了二十几个元件，利用这些元件，可以使报表输出各种类型的数据，如图像、图形、数值、文本、HTML格式的文本等，并控制报表各个部分的输出效果，如大小、字体、颜色、对齐方式等。在设计报表时我们会发现，设计报表和设计程序窗体十分相似，报表中常用的一些元件，如TQRLabel、TQRMemo等元件与普通的窗体元件如TLabel、TMemo等在名称和用途上也有一定的对应关系。报表元件与普通窗体元件之间的最重要的差别在于：普通窗体元件具有与用户交互的功能，它们能够接收用户的输入，而报表元件则只是负责输出，输出的结果可能是在打印机上（如果选择了打印报表操作）也可能是在屏幕上（如果选择了打印预览操作）。<

align=justify>在QuickReport元件组中，最重要的元件是TQuickRep控件，它是实现报表的基础，可以控制报表的生成和打印，它还是其它QuickReport控件的容器，因此TQuickRep是在CBuilder中实现数据报表功能必不可少的控件。在向导生成的Form1窗体中，我们可以看到，TQuickRep控件对象QuickRep1为一个白色背景、带有网格和标尺的矩形。该矩形充满整个窗体的客户区，它代表的是打印输出的纸张大小，QuickRep1内部有一个蓝色虚线的方框，表示可打印区域。在可打印区域内部，我们可以看到用黑色虚线框起的三个长条形区域，每一个长条形区域称为一个Band。不同的Band将TQuickRep控件内部分为不同的区域，例如标题栏区（Title）用于显示报表的标题，如果报表由多页组成，则只显示在第一页上；列标题栏区（ColumnHeader）显示列标题，如果报表由多页组成，它会显示在每一页的表格上方；明细栏区（Detail）则显示具体的数据，虽然在设计阶段只显示了一行内容，但在输出时会根据实际记录的数量显示出多行来，形成一个表格。TQuickRep控件中定义了六种Band区域，除了刚才提到的三种，还有页眉栏（

ageHeader）、页脚栏（

ageFooter）、合计栏（Summary），TQuickRep控件的Bands属性决定了显示哪些Band区域。TQuickRep控件的属性DataSet属性决定了它与自己内部的其它报表控件的数据来源。与前两讲介绍的数据访问控件不同的是，数据报表控件可以直接从TDataSet类的控件中获取数据，而不需要TDataSource控件作为中转。<

align=justify>在本例中，QuickRep1的DataSet属性设为Table1，表示数据来源为MP3Collect数据库中的MP3Info数据表。除了上述属性之外，TQuickRep控件的其它重要属性还包括有Frame、Options、

age、

rintSettings等等，其中Frame属性定义了报表的四周是否有边框，以及边框的样式（大部分QuickReport报表控件都有Frame属性，用于定义边框），Options属性定义了一些用于显示的选项，

age属性定义了打印纸张的大小、纸型、页边距等，该属性和输出打印机的设置有关，

rintSettings属性则定义了打印的范围、打印的份数等参数。<

align=justify>在TQuickRep控件中，需要显示的Band区域自动显示为TQuickRep控件内部的一个黑色虚线矩形，该矩形实际上是一个TQRBand控件。TQRBand控件封装了报表中不同Band区域的属性和方法，其属性BandType决定了该Band区域的类型。QuickRep1中的三个Band对象的类型分别为rbColumnHeader、rbDetail和rbPageFooter。TQRBand控件可以用来控制各个栏目区域的大小和位置，例如，如果我们加大DetailBand1的高度，就可以加大报表表格中行的间距，利用TQRBand控件对象还可以实现其它一些显示上的特殊效果，朋友们可以多试一试各种不同设置的效果。不过心铃认为TQRBand对象的主要作用应该是作为其它报表控件的容器。<

align=justify>前面已经说过，报表QuickRep1被划分为三个Band区域，分别是列标题区ColumnHeaderBand1、明细区DetailBand1和页脚区

ageFooterBand1。<

align=justify>列标题区ColumnHeaderBand1内包括两个TQRLabel控件，分别显示“SongName”和“SingerName”两个字符串。TQRLabel控件用于显示固定的文本字符串，它在报表中作用与Label控件在普通窗体中的作用是相似的（注意不要在报表中使用普通窗体控件，它们不会在预览或打印结果中显示出来）。TQRLabel控件的属性也很好理解，与普通Label控件相比，它多了一个Frame复合属性，该属性定义了字符串的四周是否显示边框，以及边框的样式等。“SongName”和“SingerName”两个TQRLabel对象的Frame属性中就定义为显示下边框，因此我们在预览效果（图17-4）中可以看到列标题下方有一根直线把列标题与报表明细内容区分开来。<

align=justify>明细区DetailBand1包含两个TQRExpr对象QRExpr2和QRExpr3。TQRExpr控件是QuickReport数据报表特有的控件，它没有普通的窗体控件与之对应，该控件的引入大大方便了数据报表的设计。TQRExpr控件的名称从字面上翻译就是数据报表表达式控件，顾名思义，该控件中可以定义一个表达式，输出的是以文本方式显示的表达式结果。该表达式可以由常量（如数字或字符串常量）、数据字段以及QuickReport支持的一些标准变量（如日期、时间、页码等等）组成，表达式支持的运算包括加、减、乘、除、比较运算、逻辑运算等等，表达式中还支持一些简单的函数调用（如SUM()、AVERAGE()等等），可见TQRExpr控件具有较强的数据处理能力。<

align=justify>QRExpr2和QRExpr3中的表达式比较简单，只定义了要显示的字段名称。如果要构造较为复杂的表达式，可以在对象监视器中双击TQRExpr对象的Expression属性，调出其表达式向导对话框，利用向导构造出符合语法要求的表达式。<

align=justify>页脚区

ageFooterBand1只包含一个TQRExpr对象QRExpr1，其Expression属性字义了它显示的内容为页码数，另外它的AlignToBand属性设为了true，Alignment属性设为taRightJustify，表示它将以右对齐的方式显示。<UL><

align=justify><LI>完成数据报表功能 </LI></UL>我们已经对数据报表窗体及其上的数据报表控件有了一定的了解，下面我们就来对其报表窗体做一些小小的修改，让它变得美观一些，然后我们在程序的主窗体中加上一些代码，让MP3Collect能够调用数据报表。首先，我们把Form1的Name属性改为ReportForm，窗体类名称改为TReportForm，并将此单元保存为Report.cpp（窗体文件与头文件分别保存为Report.dfm和Report.h）。接下来，我们把ReportForm窗体上的Table1控件删除，并重新添加一个TQuery控件Query1，Query1的Database属性设为别名MP3Collect，SQL属性为“SELECT * FROM MP3Info Order by FileName ASC”。然后指定其Active属性为true，其它属性值都接受缺省值。我们把QuickRep1的DataSet属性指向新的数据来源Query1，并修改其Bands属性，将其中的子属性HasTitle设为true，表示增加报表标题的显示。此时，ColumnHeaderBand1前面会自动插入一个新的TQRBand控件对象TitleBand1，我们将其高度调整到合适的位置，然后在其中添加一个TQRLabel控件对象QRLabel3，并把QRLabel3的Alignment属性设为taCenter，AlignToBand属性设为了true，表示居中对齐于标题栏的中间，另外还要把QRLabel3的Caption属性设为“MP3音乐宝库——查询结果”，字体设置为“宋体”，大小为20。接下来我们把ColumnHeaderBand1中的QRLabel1和QRLabel2控件的Caption属性分别修改为“歌曲名称”和“歌手名称”，并把PageFooterBand1中的QRExpr1控件的Expression属性修改为“'第 ' + PageNumber+'页'”，把缺省的英文单词改为中文。最后将QRLabel1、QRLabel2、QRExpr1、QRExpr2、QRExpr3的字体都改为“宋体”，大小改为10。在上述过程中，还需要调整各个Band区域的高度以适应新的字体高度。做好这一系列调整之后，我们接着要在MainForm中添加调用报表窗体的代码。由于MainForm窗体上的控件布局已经比较紧凑了，如果再添加新的命令按钮，需要进行的调整就比较大，因此我们不再向MainForm窗体中添加新按钮，而是通过添加关联菜单命令的方式来增加打印报表的命令。为此，我们在MainForm窗体上的PopupMenu1中添加一个菜单项mnuReport，其Caption属性为“打印报表”，OnClick事件处理函数为mnuReportClick()，该函数的代码实现如下所示：void __fastcall TMainForm::mnuReportClick(TObject *Sender){ReportForm->Query1->Close();ReportForm->Query1->SQL->Clear();ReportForm->Query1->SQL->AddStrings(Query1->SQL);ReportForm->Query1->Open();ReportForm->QuickRep1->Preview();}该函数主要完成以下几个步骤，首先关闭报表窗体的查询控件Query1，清除其中原有的SQL属性，然后将其SQL属性设置成与主窗体上Query1控件的SQL属性一致，再打开报表窗体的查询控件Query1。这样做的目的是保证报表中显示的数据与主窗体中显示的内容一致。函数最后调用报表窗体上QuickRep1控件的Preview()方法启动打印预览窗口（如图17-5所示），用户在该窗口中就可以完成打印报表的操作。　本讲介绍了如何利用QuickReport控件来实现数据报表的功能，这里介绍的仅仅是最基本的方法，用到的QuickReport控件也只有少数几个，如果要设计更复杂的数据报表，朋友们还需要进一步学习各种QuickReport控件的用法。

我也说一句

发表

使用道具举报

韩冰

823 主题	3 听众	4048 积分

我的地盘我做主

该用户从未签到

18^#

发表于 2005-1-26 01:38 |只看该作者 |招呼Ta 关注Ta

<

align=center>注册表和动态连接库<

align=justify>前面我们通过例子已经学习了CBuilder数据库编程的基础知识，本讲我们将学习关于注册表和动态连接库编程方面的知识。<UL><

align=justify><LI>对注册表编程
</LI></UL><

align=justify>应用程序保存信息的常用方法有三种，第一种是保存在文件中，第二种是保存在数据库中，第三种则是保存在系统注册表中。到目前为止，我们已经实践了前面两种方法，下面我们就来看看如何使用注册表。<

align=justify>注册表是Windows系统中保存系统配置信息以及应用程序运行参数的地方，注册表也是系统最重要的组成部分之一，如果注册表遭到了破坏，系统功能就会出现混乱，轻则使应用软件不能正确工作，重则会导致系统崩溃。正因为注册表的重要性，使它有一种神秘的色彩，不少参考书上都建议用户不要操作注册表，似乎稍有不慎就会造成巨大损失。其实，对于编程人员来说，注册表可不是什么禁区，相反，它很适合于应用程序保存一些少量的、关键的配置信息。<

align=justify>在Windows系统中，我们可以通过Regedit.exe（Windows 9x）或Regedit32.exe（Windows NT）来查看和修改注册表中的内容。运行Regedit打开注册表，我们可以很清楚地看到，注册表的信息是以树形结构组织在一起的，如图18-1，在“我的电脑”下有六个根注册项：HKEY_CLASSES_ROOT、HKEY_CURRENT_USER、HKEY_LOCAL_MACHINE、HKEY_USERS、HKEY_CURRENT_CONFIG、HKEY_DYN_DATA。每个根注册项下面都有数量不等的子注册项，每一个子注册项又称为一个主键，主键的下面还可以有下一层主键，六个根注册项以及不同层次的主键一起形成类似文件目录的树形结构。注册表的每个主键可以定义若干个值，缺省的是默认值，除此之外还可以定义其它关键字的值，值的类型有三种：字符串值、二进制值和DWORD型值。<

align=justify>下面我们为MP3Collect程序添加注册表读写的功能，把用户输入的查询条件保存在注册表中，即每次启动时自动读取以前在注册表中保存的查询条件，并将满足初始查询条件的记录显示出来，当用户进行一次查找操作时，程序又将新的查询条件写入到注册表中。<

align=justify>为了实现这个功能，我们先手工在注册表的HKEY_CURRENT_USER根注册项下的Software主键下新建一个主键MP3Collect，并为该主键创建三个字符串值：FileName、SongName和SingerName。<

align=justify>CBuilder对注册表的操作主要是通过VCL类TRegistry实现的。使用TRegistry类需要包含头文件Registry.hpp。TRegistry的属性只有五个，分别是Access、CurrentKey、 CurrentPath、LazyWrite和RootKey，其中CurrentKey和CurrentPath是只读属性，分别表示当前主键和当前键所有的路径，另外，Access是访问权限属性，LazyWrite指定进行写操作时真正写入注册表的时间，RootKey属性指定一个根，为后续的操作指定一个注册表子集。<

align=justify>使用TRegistry类进行注册表操作的一般步骤如下：首先创建一个TRegistry对象，然后指定其RootKey属性，定义一个有效的子集。接下来利用TRegistry::OpenKey方法打开一个注册表主键，该方法以主键的路径作为参数，如果打开成功，就可以进行读写操作。对不同类型的注册表键值，TRegistry提供了不同的读写函数，例如读、写字符串值分别使用方法：ReadString和WriteString。<

align=justify>在MP3Collect中，为了实现注册表读写功能，我们要为TMainForm类添加两个成员函数ReadRegistrys和WriteRegistrys。在窗体初始化函数FormCreate中调用ReadRegistrys，并调用btnFindClick函数，使Query1控件按照所获取的条件进行查询。另外，要在btnFindClick函数和btnShowAllClick函数中调用WriteRegistrys函数将最新的查询条件存入注册表中。ReadRegistrys和WriteRegistrys函数的实现代码分别如下：<

align=justify>void __fastcall TMainForm::ReadRegistrys() {<

align=justify>TRegistry *Registry = new TRegistry; //创建一个TRegistry对象<

align=justify>Registry->RootKey=HKEY_CURRENT_USER; //指定TRegistry对象的根<

align=justify>Registry->OpenKey("Software\\MP3Collect",TRUE); //打开主键Software\\MP3Collect<

align=justify>edtFileName->Text=Registry->ReadString("FileName"); //读值<

align=justify>edtSongName->Text=Registry->ReadString("SongName");<

align=justify>edtSingerName->Text=Registry->ReadString("SingerName");<

align=justify>Registry->CloseKey(); //关闭主键<

align=justify>delete Registry; //释放对象<

align=justify>}<

align=justify>void __fastcall TMainForm::WriteRegistrys(AnsiString sFileName,AnsiString sSongName,AnsiString sSingerName) {<

align=justify>TRegistry *Registry = new TRegistry;<

align=justify>Registry->RootKey=HKEY_CURRENT_USER;<

align=justify>Registry->OpenKey("Software\\MP3Collect",TRUE);<

align=justify>Registry->WriteString("FileName",sFileName);<

align=justify>Registry->WriteString("SongName",sSongName);<

align=justify>Registry->WriteString("SingerName",sSingerName);<

align=justify>Registry->CloseKey();<

align=justify>delete Registry;}<UL><LI>动态连接库的特点 </LI></UL>动态连接库（DLL）是一个包含有函数和数据（资源）的可执行模块，它不能象EXE文件那样直接运行，需要由其它可执行模块（一个EXE或DLL）在运行时调用它，Windows才会装载它，其中的代码才能被执行，数据才能被引用。在CBuilder中进行编译连接时，程序调用的DLL不会被嵌入到最终的EXE文件中，只有在EXE文件启动时或运行过程中，DLL的内容才会被动态地加载到内存中，这就是它称为动态连接库的原因。除了动态连接库外，还有静态连接库，这一类的文件在进行连接时，其中的函数和数据会直接嵌入到EXE文件中，连接结束后，静态库就成为了EXE的一部分，不会再改变，因而称为静态连接库。DLL提供了一种应用程序模块化的方法，它可以使得功能模块容易更改和重用。当几个应用程序同时使用一个DLL时，还可以减少系统开销。另外，DLL文件的格式是独立于编程语言的，CBuilder、VC、VB开发的DLL库在原则上说是可以互相通用。DLL中可以定义两种函数，即导出函数（export）和内部函数（internal）。导出函数可以被其它可执行模块调用，而内部函数只能在DLL内部使用。同样的，DLL中也可以导出全局变量和C++对象。<UL><LI>创建动态连接库 </LI></UL>为了学习用CBuilder编写动态连接库的方法，我们来创建一个可以检查软件使用天数的DLL，如果用户使用软件超过了允许的试用天数，就弹出一个对话框来提醒用户注册软件，然后自动退出。为了完成这一功能，我们可以使用注册表来保存软件的试用信息和软件的运行天数。按照本讲前面介绍的方法，在MP3Collect主键下创建一个DWORD类型的键值TestUse，它用来表示当前软件是否为试用版，如果是，则该值为1，否则为0，后面的代码还会在程序第一次运行时自动创建一个二进制值BeginTime，用来记录了第一次运行时的日期，我们假定允许用户试用软件100天。首先，选择CBuilder中的菜单命令“File->New...”，在弹出的新建对象对话框中选定其中的“DLL Wizard”，确定之后会弹出一个DLL向导对话框（图18-2），在其中选择源代码类型为C++，并且需要使用可视化元件库VCL，然后按下“OK”按钮即可。新生成的DLL工程Project1中只有一个Unit1.cpp文件，其中有一个函数DllEntryPoint()，该函数在DLL加载时被调用，相当于应用程序的WinMain()函数。我们不对DllEntryPoint作任何修改。接下来，再次利用CBuilder的新建对象对话框创建一个AboutBox类型的窗体，并在其上添加有关注册的信息，如图18-3所示。该对话框的单元文件被命名为Unit2.cpp。下面为这个DLL工程添加导出函数CheckFunc()。该函数的声明和定义都位于Unit1.cpp中。在导出一个函数时，我们一般采用下面的语法：extern “C” __declspec(dllexport) __stdcall 函数名称（函数参数）;这样的声明方式不仅指明了函数为一个DLL导出函数，而且指明了它的调用规则为__stdcall，命名规则为C语言。按照C语言而不是C++来导出函数，可以避免因C++名字修饰而造成的不兼容问题。下面是修改后的Unit1.cpp的完整代码：#include <vcl.h>#include <windows.h>#pragma hdrstop#include <Registry.hpp>USEFORM("Unit2.cpp",AboutBox);#include "unit2.h"extern TAboutBox *AboutBox;#pragma argsusedextern "C" __declspec(dllexport) long __stdcall CheckFunc();//声明导出函数CheckFunc（）int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void* lpReserved) //DLL的入口{ return 1;}　long __stdcall CheckFunc() { //导出函数CheckFuncTRegistry *Registry =new TRegistry;Registry->RootKey=HKEY_CURRENT_USER;Registry->OpenKey("Software\\MP3Collect",TRUE);short bIsTest=Registry->ReadDword("TestUse");//读入TestUse值，查看本程序是否为试用版本TDateTime tNow,tBegin;tNow=TDateTime::CurrentDate();//获取当前日期long returnVal=1; //缺省的返回值为1，即没有超过试用期//如果为试用版本，则要查看注册表中BeginTime值是否已经存在，如果不存在表示这是程序//第一次运行，于是将当前的日期写入注册表中；如果存在则并检查试用期是否已到if(bIsTest) {<DIR>if(!Registry->ValueExists("BeginTime"))<DIR>Registry->WriteDate("BeginTime",tNow);</DIR>else {<DIR>tBegin=Registry->ReadDate("BeginTime");//读出BeginTime值if(tNow>tBegin+100) { //检查是否超过100天试用期<DIR><DIR>returnVal=0;//超过试用期时的返回值AboutBox=new TAboutBox(NULL);//创建并显示注册信息对话框AboutBox->ShowModal();delete AboutBox;</DIR></DIR>}</DIR>}</DIR>}Registry->CloseKey();//关闭注册表键delete Registry;//释放Registry对象return returnVal;//返回检查结果}将修改后的DLL工程Project1保存在与MP3Collect工程相同的目录中，然后对Project1进行编译、连接，生成的结果是一个动态连接库Project1.DLL和它的导入库Project1.LIB。<UL><LI>使用动态连接库 </LI></UL>DLL的导入库中并没有实际代码，只包含有DLL导出函数和数据的相关信息，进行连接时，CBuilder的连接器需要导入库来定位相关的函数，以便生成EXE文件。通过导入库来使用DLL是一种十分简单方便的办法，其好处在于：编程时可以象调用普通外部函数一样调用从DLL中导入的函数，连接器将完成对DLL导出函数的定位工作，生成的EXE文件在启动时，Windows会自动加载所需要的DLL文件，这种加载方式也称为隐式加载。如果不采用导入库，则需要在程序代码中通过调用LoadLibray函数来显式地加载所需要的DLL模块。下面仍以MP3Collect为例，我们来看看通过导入库使用DLL的方法。前面说过，CBuilder在编辑连接DLL工程时，会自动生成该DLL的导入库.LIB文件。如果某个DLL没有相应的LIB文件，CBuilder在其Bin目录下提供了一个IMPLIB.EXE工具，可以为DLL文件生成相应的导入库。打开MP3Collect工程，通过View->Project Manager菜单命令打开其工程管理器，在工程管理器中将导入库Project1.LIB文件添加到工程MP3Collect中去。在使用DLL库中的任何函数之前，还需要对引用的函数进行声明，声明语法如下：extern “C” __declspec(dllimport) __stdcall 函数名称（函数参数）;然后就可以象使用普通的外部函数那样使用DLL导出的函数了。CheckFunc()函数的声明和调用的代码如下所示：extern "C" __declspec(dllimport) long __stdcall CheckFunc();void __fastcall TMainForm::FormCreate(TObject *Sender) {if(CheckFunc()==0){//调用DLL库函数CheckFunc进行试用期检查，如果超过，则退出程序<DIR>PostMessage(Handle,WM_CLOSE,0,0);return;</DIR>}//如果检查正确，则继续其它的初始化工作｝

我也说一句

发表

使用道具举报

韩冰

823 主题	3 听众	4048 积分

我的地盘我做主

该用户从未签到

19^#

发表于 2005-1-26 01:40 |只看该作者 |招呼Ta 关注Ta

<

align=center>使用ActiveX控件<

align=justify>上一讲中我们学习编写和使用DLL的基本方法，DLL实际上是程序模块化和实现代码重用的方式之一，但是由于种种原因，DLL的可重用性并不是最佳的，经常会出现版本冲突问题。为此，微软提出了一种新的Windows编程技术——ActiveX技术，它可以比DLL更好地解决二进制级的代码重用问题。<UL><

align=justify><LI>什么是ActiveX控件
</LI></UL><

align=justify>ActiveX技术是从OLE技术发展而来的。OLE原意是对象链接和嵌入，后来被扩展成为了组件与分布式编程体系结构，并改称为ActiveX。ActiveX技术包括有组件对象模型（COM）、进程间编组（Marshaling）、结构化存储（Structured Storage）、对象一致性（Object Persistence）、统一数据传输（Uniform Data Transfer）、自动化（Automation）等等大量内容，其中的核心是组件对象模型COM。COM定义了一种统一的接口调用方式，从而使得COM组件能够独立于编程语言和操作系统平台，并解决了长期困扰软件开发的版本冲突问题。COM非常基础，ActiveX技术的其它内容都是在它的上面开发出来的。<

align=justify>ActiveX控件是ActiveX技术的一种，以前也叫做OLE控件，或者称为OCX控件，这是因为它一般都存放在扩展名为.OCX的文件中。尽管整套ActiveX技术的理论相当庞大并且非常复杂，但ActiveX控件使用起来要简单得多，特别是有了在CBuilder中使用VCL控件的经验和基础，我们会发现ActiveX控件使用起来与VCL控件十分类似。ActiveX控件也提供了属性、方法和事件，用于对控件的操作和完成特定的功能，并且一旦将某个ActiveX控件安装到CBuilder中后，我们就可以在CBuilder集成开发环境中方便地使用ActiveX控件了，元件面板、对象监视器等工具对ActiveX控件都有效。<

align=justify>由于ActiveX控件为代码提供了良好的封装特性，并且具有良好的对象一致性，使得程序易于升级和保持兼容性，因此不论是商业软件还是共享软件中，ActiveX控件应用得都十分广泛。ActiveX控件还具有独立于语言、平台和机器的特点，因此它在Internet上也得到了广泛的应用。<

align=justify>下面我们将对MP3Collect程序进行一番改造，用ActiveX控件Windows Media Player代替原来的VCL播放控件TMediaPlayer，来学习使用ActiveX控件的方法。<UL><

align=justify><LI>怎样安装ActiveX控件 </LI></UL><

align=justify>我们准备在例子中使用的是微软提供的ActiveX控件Windows Media Player（后面简称为WMediaPlayer），该控件集成在Win98第二版以上的系统中。需要注意的是，不同版本的WMediaPlayer控件的功能稍有不同，特别是最新的WMediaPlayer 7.0与其它版本在用户界面上有很大区别，为了便于对照讲座学习，心铃建议大家使用6.xx版本。从媒体播放器程序的帮助菜单中选择“关于”命令，就可以查看WMediaPlayer控件的版本。<

align=justify>除了少数几个之外，大部分ActiveX控件对CBuilder来说是属于第三方控件，不能在元件面板上直接找到，因此在使用这些控件之前，必须先把它们安装到CBuilder中。安装步骤如下：<

align=justify>首先，选择菜单命令Component->Import ActiveX Control，启动导入ActiveX控件对话框（图19-1）。该对话框上方的列表框中列出了系统内已注册的所有ActiveX控件，在其中找到“Windows Media Player”控件并选中它，这时，控件的OCX文件名会自动显示在列表框下的文本框中，为MSDXM.OCX，而“Class name”中显示了要生成的控件类名称，因为缺省给出的类名称与VCL的TMediaPlayer控件相冲突，因此我们将其改为TWMediaPlayer。“

alette Page”用于指定安装后的控件显示在元件面板的哪一个元件栏中，我们选择其中的ActiveX元件栏。“Unit dir name”和“Search path”是安装控件时所需的路径设置，一般不需要改变，接受缺省值就可以了。确认了上述设置后，按“Install...”按钮开始安装。<

align=justify>接着CBuilder会弹出一个对话框，要求我们选择安装新控件的包，我们可以从已有的包工程（.bpk文件）中选择一个，也可以新建一个包工程。这里我们接受缺省设置，将TWMediaPlayer安装到dclusr50.bpk（该文件是包文件dclusr50.bpl的工程文件，dclusr50.bpl是用于包含用户元件的包文件）中，然后按下确定按钮，这时CBuilder提示需要重建dclusr50.bpk工程，确定后，CBuilder就开始编译连接dclusr50.bpk工程，完成这一过程需要一点时间。如果重建成功，CBuilder会提示“dclusr50.bpl被重新生成，元件面板中的元件已经更新，TWMediaPlayer控件被成功注册”，确定之后，我们会发现CBuilder当前打开的工程为dclusr50.bpk，应先保存dclusr50.bpk，然后再重新打开原来的MP3Collect工程，我们可以发现元件面板的ActiveX元件页中新增了WMediaPlayer控件的图标。在某些情况下，新增ActiveX控件的图标可能没有显示出来，此时我们可以在Component菜单中选择Install Package命令，并在弹出的对话框中把Borland User Components（即dclusr50.bpl）选中到设计时包文件和运行时包文件中即可。<

align=justify>安装好了一个ActiveX控件之后，如果用了一段时间又想将它删除应该怎么办呢？一种方法是通过Component->Configure Palette菜单命令，调出元件面板属性对话框并找到相应元件栏的相应控件，通过“Hide”按钮将其隐藏起来，以后需要的时候还可以用同样的方法让它重新显示在元件面板上。第二种方法较为彻底，需要修改当初安装控件的包工程。以刚才添加的WMediaPlayer控件为例，打开dclusr50.bpk包工程，这时会显示包的工程属性（图19-2），我们可以看出文件名中包含了控件名称，如MediaPlayer_OCX.cpp和MediaPlayer_OCX.dcr封装了WMediaPlayer控件，我们只需把这两个文件从包工程中删除，然后重新编译生成dclusr50.bpk，就可以从包中彻底删除WMediaPlayer控件了。<UL><

align=justify><LI>用Windows Media Player控件改造MP3Collect </LI></UL><

align=justify>安装好WMediaPlayer控件之后，我们要用它代替原来程序中的VCL元件Media Player，来实现播放MP3音乐的功能，修改后的MP3Collect程序如图19-3所示。在进行改造之前，心铃建议大家先把原来的工程做一个备份，这样如果在修改过程中出现了错误，容易进行比对查找。<

align=justify>我们先把MainForm上原有的MediaPlayer1控件删除，并在空出来的位置上新增加一个WMediaPlayer控件WMediaPlayer1。由于WMediaPlayer控件能够播放视频，因此控件上带有视频输出区域，我们需要适当调整控件的大小，使得视频区域隐藏起来。<

align=justify>前面说过，当ActiveX控件安装成功后，可以象使用普通VCL控件一样使用它。但是使用ActiveX控件时常会遇到帮助文档不全的问题，特别是从网上下载的一些共享ActiveX控件，由于帮助文档很少，常常让人“望X兴叹”。心铃在使用WMediaPlayer控件时也遇到这个问题，该控件是由微软编写的，CBuilder中并没有相关的帮助，幸好经过多次搜索后，心铃终于从微软的

latform SDK中找到了一些帮助，根据这些帮助，心铃在下面的表格中对WMediaPlayer控件需要设置的主要属性的大致含义进行了介绍，其中可能会有理解不是十分准确的地方，请朋友们注意这一点。<

align=center>表19-1：WMediaPlayer1控件主要属性的设置<TABLE cellSpacing=1 cellPadding=7 width=607 border=1><TR><TD vAlign=top width="30%"><

align=justify>属性名称</TD><TD vAlign=top width="12%"><

align=justify>设置值</TD><TD vAlign=top width="58%"><

align=justify>解释</TD></TR><TR><TD vAlign=top width="30%"><

align=justify>AutoRewind</TD><TD vAlign=top width="12%"><

align=justify>False</TD><TD vAlign=top width="58%"><

align=justify>禁止播放完毕后自动回到起始点的功能</TD></TR><TR><TD vAlign=top width="30%"><

align=justify>AutoStart</TD><TD vAlign=top width="12%"><

align=justify>false</TD><TD vAlign=top width="58%"><

align=justify>禁止打开文件后自动播放的功能</TD></TR><TR><TD vAlign=top width="30%"><

align=justify>Mute</TD><TD vAlign=top width="12%">false</TD><TD vAlign=top width="58%">取消静音状态</TD></TR><TR><TD vAlign=top width="30%">PreviewMode</TD><TD vAlign=top width="12%">false</TD><TD vAlign=top width="58%">关闭预览模式</TD></TR><TR><TD vAlign=top width="30%">SendErrorEvents</TD><TD vAlign=top width="12%">true</TD><TD vAlign=top width="58%">产生错误时发送错误事件</TD></TR><TR><TD vAlign=top width="30%">SendKeyboardEvents</TD><TD vAlign=top width="12%">true</TD><TD vAlign=top width="58%">用户在控件上按键时发送键盘事件</TD></TR><TR><TD vAlign=top width="30%">SendMouseClickEvents</TD><TD vAlign=top width="12%">true</TD><TD vAlign=top width="58%">用户在控件上点击鼠标时发送鼠标点击事件</TD></TR><TR><TD vAlign=top width="30%">SendMouseMoveEvents</TD><TD vAlign=top width="12%">true</TD><TD vAlign=top width="58%">用户在控件上移动鼠标时发送鼠标移动事件</TD></TR><TR><TD vAlign=top width="30%">SendOpenStateChangeEvents</TD><TD vAlign=top width="12%">true</TD><TD vAlign=top width="58%">打开状态发生变化时发送OpenStateChange事件</TD></TR><TR><TD vAlign=top width="30%">SendPlayStateChangeEvents</TD><TD vAlign=top width="12%">true</TD><TD vAlign=top width="58%">播放状态发生变化时发送PlayStateChange事件</TD></TR><TR><TD vAlign=top width="30%">ShowAudioControls</TD><TD vAlign=top width="12%">true</TD><TD vAlign=top width="58%">显示音量控件</TD></TR><TR><TD vAlign=top width="30%">ShowControls</TD><TD vAlign=top width="12%">true</TD><TD vAlign=top width="58%">显示播放控件等</TD></TR><TR><TD vAlign=top width="30%">ShowDisplay</TD><TD vAlign=top width="12%">false</TD><TD vAlign=top width="58%">不显示信息窗口</TD></TR><TR><TD vAlign=top width="30%">ShowGotoBar</TD><TD vAlign=top width="12%">false</TD><TD vAlign=top width="58%">不显示跳转栏</TD></TR><TR><TD vAlign=top width="30%">ShowHint</TD><TD vAlign=top width="12%">true</TD><TD vAlign=top width="58%">显示提示信息</TD></TR><TR><TD vAlign=top width="30%">ShowPositionControls</TD><TD vAlign=top width="12%">true</TD><TD vAlign=top width="58%">显示向前、向后浏览按钮</TD></TR><TR><TD vAlign=top width="30%">ShowStatusBar</TD><TD vAlign=top width="12%">false</TD><TD vAlign=top width="58%">不显示状态栏</TD></TR><TR><TD vAlign=top width="30%">ShowTracker</TD><TD vAlign=top width="12%">true</TD><TD vAlign=top width="58%">显示播放位置滑动条</TD></TR></TABLE>设置好控件的属性后，还要对代码进行修改，将原来由MediaPlayer1控件实现的功能改为由WMediaPlayer1实现。用WMediaPlayer控件播放一个媒体文件的基本方法是：首先将文件名赋给WMediaPlayer1的FileName属性，再调用其Open方法打开该文件。由于Open方法不等待打开成功就会返回，所以不能够马上进行下一步Play操作，而需要等待事件OnOpenStateChange，在该事件的处理函数中判断文件是否打开正确，如果打开正确，则可以进一步调用其Play函数进行播放。下面给出函数PlayTheSong和OnOpenStateChange事件处理函数的实现代码：void __fastcall TMainForm:

layTheSong() {WMediaPlayer1->FileName=DBGrid1->DataSource->DataSet->FieldByName("FileName")->AsString;WMediaPlayer1->Open(WMediaPlayer1->FileName);m_bIsPlaying=true;//设置m_bIsPlaying标志，表示打开成功后进行播放操作}void __fastcall TMainForm::WMediaPlayer1OpenStateChange(TObject *Sender,long bytesSent, long bytesRemaining) {//OpenState为6表示打开正确，m_bIsPlaying为真表示下一步应该进行播放操作if(WMediaPlayer1->OpenState==6 && m_bIsPlaying) {//两个条件同时满足时开始播放。<DIR>m_bIsPlaying=false;WMediaPlayer1->Play();</DIR>}}在播放过程中，我们还需要根据播放状态的变化将一些命令按钮设置成有效或无效。这一功能在OnPlayStateChange事件中完成。播放到文件结尾处时，WMediaPlayer控件会产生OnEndOfStream事件，我们可以在这一事件中判断是否需要循环播放，如果是则播放下一首。void __fastcall TMainForm::WMediaPlayer1PlayStateChange(TObject *Sender, long bytesSent, long bytesRemaining) {if(bytesRemaining==2)// bytesRemaining为2表示播放开始<DIR>EnableButtons(false); //使记录操作按钮失效</DIR>else if(bytesRemaining==0)// bytesRemaining为0表示播放结束<DIR>EnableButtons(true); //使记录操作按钮失效</DIR>}void __fastcall TMainForm::WMediaPlayer1EndOfStream(TObject *Sender, long bytesTotal) {TDataSet * pDS=DBGrid1->DataSource->DataSet;if(chkLoop->Checked){<DIR>pDS->Next();<DIR>if(pDS->Eof) pDS->First();</DIR>PlayTheSong();</DIR>}else EnableButtons(true);}当Query1控件当前记录发生改变时，在WMediaPlayer1中打开相应文件的实现代码如下：void __fastcall TMainForm:

uery1AfterScroll(TDataSet *DataSet) {if(Query1->State==dsBrowse ) {<DIR>TDataSet * pDS=DBGrid1->DataSource->DataSet ;if(!pDS->IsEmpty()) {<DIR>//定位Table1控件，并在编辑框中显示相应的记录信息…//（此处同以前的代码，故省略）m_bIsPlaying=false;//打开成功后不播放。WMediaPlayer1->FileName =Query1->FieldByName("FileName")->AsString;WMediaPlayer1->Open(WMediaPlayer1->FileName);//打开媒体文件}</DIR></DIR>}}　本讲我们学习ActiveX控件的基本使用方法，可以说，ActiveX控件使用起来并不复杂，但这项技术本身涉及到非常多的概念，朋友们在使用ActiveX控件的过程中如果遇到问题，最好多查阅相关资料，特别是开发者提供的开发文档。另外，由于中华网对个人主页服务器进行了调整，心铃原来告诉大家的讲座下载地址有一些变化，请需要电子文档的朋友使用新地址去下载：<a href="http://ctprwindwind.at.china.com/" target="_blank" >http://ctprwindwind.at.china.com/</A>。

我也说一句

发表

使用道具举报

韩冰

823 主题	3 听众	4048 积分

我的地盘我做主

该用户从未签到

20^#

发表于 2005-1-26 01:41 |只看该作者 |招呼Ta 关注Ta

<

align=center>安装程序的制作<

align=justify>经过前面十九讲的学习，我们已经初步掌握了CBuilder编程的基本知识，而且亲自动手设计和编写了一个小软件MP3Collect，通常一个软件开发完毕后，为了方便用户使用，一般都需要制作相应的安装程序，本讲中我们就来学习如何利用InstallShield来制作安装程序。<UL><

align=justify><LI>InstallShield Express简介
</LI></UL><

align=justify>要让应用程序在目标机器上顺利运行，除了需要基本的可执行文件之外，还需要一系列支持文件和一个合适的运行环境，其中支持文件包括有程序要调用的动态链接库、控件、相关数据文件等等，运行环境包括注册表配置、数据库配置等等，这些是发布程序时需要配置的几项主要内容。原则上来说，拷贝文件和配置工作都可以通过手工来完成，但这一过程相当复杂，没有用户会喜欢采用这种方式来安装程序，为此，我们需要使用专门的制作安装程序的软件（可简称为“发布软件”）来制作一个使用简便的安装程序，例如InstallShield Express。<

align=justify>InstallShield是一个专业开发发布软件的公司，它为许多著名的编程工具提供了专门的发布软件，如InstallShield For VC、InstallShield Express For VB、InstallShield Express For CBuilder、InstallShield Express For Delphi等，另外还有通用的InstallShield Express，目前最新版本为3.01，感兴趣的朋友可以到其主页（<a href="http://www.installshield.com/" target="_blank" >http://www.installshield.com</A>）去了解最新产品的情况。<

align=justify>InstallShield Express For CBuilder是InstallShield公司为CBuilder量身定做的发布软件，随CBuilder软件包一起发行。不同版本的CBuilder所带的InstallShield Express使用方法很类似而且相互兼容，考虑到不少读者朋友手上的CBuilder 5.0光盘中并没有最新的InstallShield Express For CBuilder 5.0，因此心铃就以InstallShield Express For CBuilder 4.0为例来介绍制作安装程序的过程，不过心铃使用的InstallShield Express For CBuilder 4.0并非企业版，因此功能上有一些限制，但基本上还是能够满足我们的要求。<UL><

align=justify><LI>创建安装工程 </LI></UL><

align=justify>由于第19讲中的MP3Collect使用了ActiveX控件，而ActiveX控件的安装比较复杂，InstallShield Express for CBuilder 4.0中没有提供简单的方法用于安装ActiveX控件，实现起来比较困难。另外，在程序中发布ActiveX控件，特别是第三方的ActiveX控件时涉及到许可证问题，也比较复杂。因此，下面我们就以第19讲以前的MP3Collect为例来制作安装程序。<

align=justify>首先运行InstallShield Express For CBuilder 4.0，程序启动后会弹出一个对话框，用户可以在其中选择创建一个新的安装程序工程或是打开一个已有的工程，在这里我们选择创建一个新的工程，并在随后的“New Project”对话框中输入工程名称MP3Collect和工程路径“MP3Collect\MP3CollectSetup”，然后按下“Create”按钮，InstallShield Express For CBuilder就会在相应的目录下创建一个空白的安装工程。<UL><

align=justify><LI>设置安装工程参数 </LI></UL><

align=justify>新工程如图20-1所示，实际上是一个安装程序的模板。模板中共分为9大项内容，其中前6项为参数设置项，包括了发布应用程序涉及到的各个方面的内容。每一大项下面都有若干小选项，单击每个小项左边的箭头按钮可以对该项内容进行设置。新工程中所有设置项目都为初始的缺省值，而用户修改过的项目左边会出现一个红色的“

”作为标记。<

align=justify>InstallShield Express For CBuilder采用向导的形式来帮助用户设置安装工程中的各项参数，每一个大项的内容都是一个设置对话框，每一个小项则是对话框中的一个选项页。<

align=justify>首先设置“Setup the visual Design”，这里主要设置安装程序的外观。App Info中可设置要发布软件的名称、版本、公司以及缺省的安装目录，其中，我们将缺省安装目录设为：&lt

rogramFilesDir>\MP3Collect。这里的“&lt

rogramFilesDir>”是InstallShield Express定义的目录标识符之一，代表目标机器的“

rogram Files”目录。使用目录标识符可以很好地适应不同系统的差异，让安装程序具有较好的灵活性。常用的目录标识符还有<INSTALLDIR>、<WINDIR>等等，分别代表目标机器的最终程序安装目录和Windows系统所在目录。在Main Window选项页中，我们可以指定安装程序主窗口的背景图片、文字，以及LOGO图片、背景颜色等。Features选项中可以指定是否需要自动卸载功能，我们应将其选中。<

align=justify>第二步设置“Sepecify InstallShield Objects for Borland C++ Builder”。这一项内容是整个工程设置中的重点，也是专门针对CBuilder应用程序的特点进行设置的地方。单击其中的某个选项按钮打开设置向导对话框，如图20-2所示。在General选项页中列出了需要安装的各种对象，如是否安装BDE、是否需要运行时包文件以及安装哪些包文件等。由于MP3Collect程序使用了BDE进行数据库访问，所以应该选中BDE选项，同时还应该选中BDE Control Panel Files选项，该项内容会在目标系统的控制面板中安装BDE Administrator，便于管理数据库别名。另外，MP3Collect程序使用了数据库控件和QuickReport报表控件，所以还要选中相应的包文件，此外还需要选择“Use Packages”、“RTL”和“Standard VCL Packages”等选项。<

align=justify>当我们选中BDE选项时，InstallShield Express会自动弹出BDE安装向导，第一步选择BDE安装类型，我们在这里选择“完全安装”。第二步决定是否创建数据库别名，因为程序中使用了数据库别名“MP3Collect”，因此在这里也要新建一个别名“MP3Collect”，接着InstallShield Express会询问是否要兼容16位系统，这里设为不需要。第三步要对别名进行配置，如图20-3所示，配置方法是在“Alias Name”中选择“MP3Collect”，在“

ath”中输入别名对应的实际数据库路径名为“<INSTALLDIR>\MP3Collect.mdb”，在“Type”中选择别名的类型为“Microsoft Access Driver(*.mdb)”，图20-3最下面一栏用于输入别名的其它参数，参数的格式为“Keyname=Value”，各种参数的含义请朋友参考BDE Administrator中的别名定义，我们在这里指定一条参数为“ODBC DSN=MP3CollectDSN”。<

align=justify>到此就完成了对数据库别名的设置，如果以后还需要修改，仍可在图20-2所示的对话框中按“Settings...”按钮重新设置。InstallShield Objects对话框中的Advance选项页会根据用户在General选项页中所作的选择，自动列出安装相应对象所需要的文件。由于心铃使用的是较早版本的InstallShield Express，所以其中列出的许多DLL和BPL文件都是4.0版本的，还需要在下一个设置中进行修改。<

align=justify>第三项设置为“Specify Components and Files”。这里有三个选项页。其中主要用到的是Groups选项页。Groups选项页中将安装到目标机器的所有文件分成了几组（即几个文件夹），如图20-4所示。除了

rogram Files文件夹用来安装应用程序之外，其余几个文件夹是根据前面一步的设置而得到的，我们还可以根据需要增加、删除文件夹和修改文件夹中的文件。<

align=justify>首先选中

rogram Files文件夹，然后利用“Insert Files”按钮向其中添加MP3Collect.exe和MP3Collect.mdb。在System Files文件夹中，我们要将4.0版本的DLL和BPL文件改成其对应的5.0版本库文件，修改后的System Files文件夹包括下列文件：BORLNDMM.DLL、qrpt50.bpl、vcl50.bpl、vcldb50.bpl、vclx50.bpl、cc3250mt.dll和vclbde50.bpl。其余两个文件夹BDE/IDAPI Files和BDE/IDAPI CNF File则可以基本不动。选中某个文件夹后，按下“

roperties”按钮还可以查看和修改每个文件夹的属性，包括名称、文件更新方式和目标平台等，一般接受缺省值即可。<

align=justify>第四项设置内容为用户界面设置。InstallShield Express将整个安装过程分为几个步骤，每一个步骤有一个用户界面，设置对话框的右边显示了用户界面的预览效果，用户可以选择需要其中的哪几个步骤，并设置其中的一些参数。心铃在其中选择了Welcome信息、许可证、选择目录、选择开始菜单文件夹、开始拷贝文件、进度指示以及安装完毕几个步骤。<

align=justify>第五项设置注册表。首先在“Registry-Keys”选项页中，在HKEY_CURRENT_USER下添加一个主键：Software\MP3Collect，选中该键后，再在“Registry-Values”选项页中添加四个键值“FileName”、“SongName”、“SingerName”和“TestUse”，其中前三个为String类型，内容为空字符串，第四个为DWORD类型，内容为1。<

align=justify>最后一项设置为“Select Folder and Icon”，用于为应用程序在开始菜单中创建一个快捷方式。General选项页用指定程序快捷方式的命令参数，我们设置“Run Command”为“[Program Files]\MP3Collect.exe”。Advance选项页用于指定快捷菜单项的位置，我们设置“Start In”为“[Program Files]”，“Icon”为MP3Collect.exe的图标，“Folder”为“

rograme Menu Folder”。<UL><LI>生成安装程序和运行安装程序 </LI></UL>安装工程中的最后三项用于生成安装程序和进行安装试运行。前面的参数都设置好了之后，可以单击Disk Builder制作安装程序。制作前我们可以选择程序发布用的介质，如使用软盘发布可选择1.44M，这样制作过程中会自动按照1.44M为最大限度制作安装盘。这里我们选择介质类型为CD-ROM，让所有安装文件都生成到同一个目录下。选择好介质后按“Build”按钮就可以开始制作了，如果制作过程中没有错误，就可以进行下一步工作：测试安装。单击Test Run按钮就可以进行测试安装，以检查是否正确。不过根据心铃的经验，由于开发机器上本来就安装有CBuilder 5.0，所以一般运行都不会出错，最好在一台没有安装过CBuilder 5.0的机器上进行安装测试，这样才能及时发现和解决问题。按照上述步骤生成的安装程序安装到一台新的机器后，还不能马上运行MP3Collect.exe，原因是还缺少数据源的配置。由于心铃使用的不是完全版的InstallShield Express for CBuilder 4.0，其中缺少自动配置ODBC数据源的功能，所以安装完毕后，还要按照第十四讲的方法配置一遍ODBC数据源MP3CollectDSN，并利用控制面板中的BDE Administrator工具重新配置别名MP3Collect，使其指向ODBC数据源MP3CollectDSN。进行完这个步骤之后，MP3Collect才能在目标机器上正常运行。如果朋友们的程序需要配置ODBC数据源，建议大家选用InstallShield Express 3.01或其它具有配置功能的发布软件。　到现在为止，二十讲的CBuilder讲座已经结束了，心铃对CBuilder也是在不断的学习和探索之中，因此在讲座中难免有各种不足和错误的地方，希望朋友们能够谅解，欢迎大家批评指正，谢谢。

我也说一句

发表

使用道具举报

12 / 2 页

返回列表

帐号		密码		只需要一步，快速开始		注册地址	找回密码

BCB教程

浏览过的版块

发帖功臣

元老勋章

QQ

电话咨询

关于我们| 联系我们| 诚征英才| 对外合作| 产品服务|