中文字幕人成人乱码亚洲电影,国产成人亚洲综合网站不卡,亚洲国产成人久久精品影视

konhon 优华 — Wed, 04 Apr 2007 11:52:00 GMT

　　很多股民常常感到孤独无助�Q�买入的股票��L��被套�Q�这里面折射��Z��个问题，那就是你没有真正的掌握好买入点，今天我就在这里给大家讲一讲如何把握买入点�?br>
　　�׃��股票变化无常�Q�主力更是绞��脑汁和散户斗智斗勇�Q�所以买入法也没有固定格式，我在�q�里只简单的介绍几种很有效的�Ҏ(gu��)��Q�仅供你借鉴�?br>
　　 1、量�~�法�?/strong>��֐�思义�Q�就是当股票在一�?#8220;��势和条�?#8221;下，成交量开始萎�~�到不能再萎�~�时�Q�说明下跌能量消耗已��，此时��是最好的买入炏V��所谓的“��势和条�?#8221;是讲——这只股��运行趋势必��L��在上升通道或低位震荡中�Q�当它连�l�下跌两��C��天时�Q�成交量已经萎羃很多�Q�股��h�L动范围已�l�很��，盘中也不再见有大的买单，特别是遇到大盘下跌时�Q�它也不再下跌，�q�说明这只股��到�?#8220;�?#8221;底，随时有反弹和新的行情发动�Q�此时就是最价买入点。例�?00297�?�?0号到2�?��P��q�箋下跌了四天，切成交量逐步萎羃�Q?�?号就是个最价买炏V�?br>
　　 2、前高突破法�?/strong>当一只股��经�q�一�D�|��间的上涨�Q�之后开始进入回调，当经�q�一�D�|��间的调整�Q�再�ơ开始放量攻��d��期高�Ҏ(gu��)��Q�此时也是买入点。但是这里最难把握的��是��d��的假�H�破�Q�很�Ҏ(gu��)��上当�Q�这需要你自己正确判断。比方说600983�?�?3辑ֈ�一个高点后�Q?�?号开始放量攻��d��期高点，那么2�?号就是最价买炏V��?00717�?�?号就是一个假�H�破。我特别��一点，最好是出现三次冲击前期高点的股��，把握性最大�?br>
　　 3、长阳之后等待法�?/strong>��是当某只股��出现长阳甚��x��涨停�Ӟ��W�二天它很可能不再连�l�拉升，而是出现��幅的调��_��此时也是买入点，例如600723�?�?8日就是一个买入点�?br>
　　 4、诱�I��破法�?/strong>很多��d��在进入下一波的大行情中�Q�往往做最后的��q��z�盘。此时也是最价买入法�Q�这需要你高超的识盘技巧。例如，600176�?�?1��P��出现了一条放量的镉K��Q�其实那是诱�I�，做出�q�样的判断是要对�q�只股票的基本面和技术面都非常熟�(zh��n)�才行�?br>
　　 5、大换手率的�{�待法�?/strong>当某只股��在低位�Q�特别强调是低位�Q�出现大换手率时�Q�说明主力杀入，你随时可以跟�q�。例�?00178�?�?9�?2�q�箋两天出现��过12%的还手率�Q�之后再出现低点�Ӟ��你就可以杀入了�?/span>

konhon 优华 2007-04-04 19:52 发表评论

TClientDataSet

konhon 优华 — Thu, 29 Mar 2007 10:57:00 GMT
http://www.openitpower.com/wenzhang/97/10846_1.html

　　与TTable、TQuery一��P��TClientDataSet也是从TDataSet�l�承下来的，它通常用于多层体系�l�构的客��L��。TClientDataSet最大的特点是它不依赖于BDE(Borland Database Engine)�Q�但它需要一个动态链接库的支持，�q�个动态链接库叫DBCLIENT.DLL。在客户端，也不需要用TDatabase构�g�Q�因为客��L��q�不直接�q�接数据库�?br />　　�׃��TClientDataSet是从TDataSet�l�承下来的，所以，它支持诸如编辑、搜索、浏览、纠错、过滤等功能。由于TClientDataSet在内存中建立了数据的本地副本�Q�上�q�操作的执行速度很快。也正是�׃��TClientDataSet�q�不直接�q�接数据库，因此�Q�客��L��序必��L��供获取数据的机制。在Delphi 4中，TClientDataSet有三�U�途径获取数据�Q?br />.从文件中存取数据�?br />.从本地的另一个数据集中获取数据�?br />.通过IProvider接口从远�E�数据库服务器获取数据�?br />　　在一个客��L��序中�Q�可以同时运用上�q�C��U�机制获取数据�?
11.1 ��览和编辑数�?/b>
　　和其他数据集构�g一��P��可以用标准的数据控�g昄��由TClientDataSet引入的数据集�Q�当�Ӟ��q�需要借助于TDataSource构�g�?br />　　�׃��TClientDataSet是从TDataSet�l�承下来的，所以，凡是其他数据集构件支持的功能�Q�TClientDataSet构�g也大致具备。不同的是，TClientDataSet能够在内存中建立数据的副本，因此�Q�TClientDataSet比其他数据集构�g增加了一些特�D�的功能�?br />11.1.1 ��览数据
　　可以用标准的数据控�g昄��由TClientDataSet引入的数据集。在�q�行期，可以调用诸如First、GotoKey、Last、Next和Prior�{�函数来��览数据�?br />　　TClientDataSet也支持书�{�֊�能，可以用书�{�来标记某条记录�Q�以后就可以方便地找到这条记录�?br />　　对于TTable、TQuery�{�数据集构�g来说�Q�只能读RecNo属性来判断当前记录的序受��对于TClientDataSet构�g来说�Q�还可以写RecNo属性，使某一序号的记录成为当前记录�?br />11.1.2 CanModify属�?/b>
　　TDataSet的CanModify属性用于判断数据集中的数据是否可以修改。CanModify属性本�w�是只读的，也就是说�Q�数据是否能够修改不取决于应用程序�?br />　　不过�Q�TClientDataSet构�g有其�Ҏ(gu��)��性，因�ؓTClientDataSet已经把数据在内存中徏立了副本�Q�因此，应用�E�序可以军_��是否允许修改数据。如果不允许用户修改数据�Q�只要把ReadOnly属性设为True�Q�此�Ӟ��CanModify属性肯定返回False�?br />　　与其他数据集构�g不同�Q�修改TClientDataSet构�g的ReadOnly属性时�Q�不需要事先把Active属性设为True�?br />11.1.3 取消修改
　　TClientDataSet传输数据的基本单位称为数据包�Q�当前的数据包可以由Data属性来讉K��。不�q�，用户�Ҏ(gu��)��据的修改�q�不直接反映到Data属性中�Q�而是临时写到一个日志即Delta属性中�Q�这样做的好处是以后随时可以取消修改�?br />　　不过�Q�这里要说明一点，��管用户的修改�ƈ没有反映到Data�Q�当用户在数据控件中看到的却是最��C��改的数据。如果一条记录被反复修改了多�ơ，用户看到的只是最新的数据�Q�但日志中却记蝲了多�ơ�?br />　　要取消上一�ơ的修改�Q�调用UndoLastChange函数。UndoLastChange需要传递一个布?y��u)��类型的参数叫FollowChange�Q�如果FollowChange参数设�ؓTrue�Q�光标就�U�d��被恢复的记录上，如果FollowChange参数设�ؓFalse�Q�光标仍然在当前记录上�?br />　　ChangeCount属性返回日志中记蝲的修�Ҏ(gu��)��数。如果一条记录被反复修改了多�ơ，每调用一�ơUndoLastChange能够逐��取消上一�ơ的修改�?br />　　UndoLastChange只能取消上一�ơ的修改�Q�如果想一下子取消所有的修改�Q�首先要选择一个记录，然后调用RevertRecord。RevertRecord��从日志中取消所有对当前记录的修攏V�?br />　　TClientDataSet�q�有一个SavePoint属性，它能把当前的�~�辑状态保存�v来，以后随时可以�q�回当时的状态。例如，可以�q�样保存当前的状态：
　　BeforeChanges := ClientDataSet1.SavePoint;
　　以后�Q�可以这��h��恢复当时的状态：
　　ClientDataSet1.SavePoint := BeforeChanges;
　　应用�E�序可以保存多处状态，可以恢复其中一个状态，不过�Q�一旦某个状态被恢复�Q�在其之后的状态就无效�?br />　　如果要一下子取消日志中记载的所有修改，可以调用CancelUpdates函数。CancelUpdates��把日志清空�Q�取消所有的修改�?br />　　如果LogChanges属性设为False�Q�用户对数据的修改就会直接反映到Data属性中�?
11.1.4 合�ƈ修改
　　要把日志中记载的修改合�ƈ到Data属性中�Q�有两种方式�Q�具体��用哪一�U�方式，取决于应用程序获取数据的机制。不�q�，不管是哪�U�机�Ӟ��合�ƈ后，日志自动被清�I��?br />　　对于一个从文�g中获取数据的�E�序来说�Q�只要调用MergeChangeLog函数�Q�就把日志中记蝲的修改合�q�到Data属性中。不用担心其他用户同时修改了数据�?br />　　对于一个从应用服务器获取数据的�E�序来说�Q�就不能调用MergeChangeLog来合�q�数据，而要调用ApplyUpdates函数�Q�ApplyUpdates会把日志中记载的修改传递给应用服务器，待应用服务器成功地把数据更新了数据库服务器后�Q�才会合�q�到Data属性中�?br />11.1.5 �U�错
　　TClientDataSet支持�U�错功能。一般情况下�Q�需要自己徏立纠错规则，以便对用戯��入的数据�q�行�U�错�?br />　　此外�Q�如果获得了IProvider接口的话�Q�还可以从远�E�服务器引入�U�错规则�?br />　　有时候，客户端可能需要暂时禁止纠错，因�ؓ客户端从应用服务器检索数据是分阶�D�进行的�Q�在所有的数据��索完毕之前，有些�U�错规则很可能会报错�?
要暂时禁止纠错，可以调用DisableConstraints�Q�要重新允许�U�错�Q�可以调用EnableConstraints函数。DisableConstraints和EnableConstraints实际上都是作用于一个内部的计数�?br />11.2 �?�?/b>
　　使用索引有这么几个好处：
.在数据集中定位记录比较快�?br />.能够在两个数据集之间建立Lookup或Master/Detail关系�?br />.可以对记录排序�?br />　　在多层体�pȝ��构中�Q�当客户�E�序从应用服务器��索数据时�Q�它同时获得了默认的索引。默认的索引叫DEFAULT_ORDER�Q�可以��用这个烦引排序，但不能修�Ҏ(gu��)��删除�q�个索引�?br />　　除了默认的烦引外�Q�TClientDataSet�q�对日志中记载的记录自动建立了一个副索引叫CHANGEINDEX。与DEFAULT_ORDER一��P��不能修改或删除这个副索引�?br />　　另外�Q�还可以使用数据集中已徏立的其他索引�Q�或者自己徏立烦引�?br />11.2.1 创徏一个新的烦�?/b>
　　要创��Z��个新的烦引，可以调用AddIndex。AddIndex需要传递若�q�个参数�Q?br />　　一是Name参数�Q�用于指定烦引名。在�q�行期切换烦引时需要用到烦引的名称�?br />　　二是Fields参数�Q�它是一个字�W�串�Q�用于指定烦引中的字�D�名�Q�彼此之间用分号隔开�?br />　　三是Options参数�Q�用于设�|�烦引的选项�Q�包含ixDescending元素表示按降序排列，包含ixCaseInsensitive元素表示大小写不敏感�?br />　　四是DescFields参数�Q�它也是一个字�W�串�Q�用于指定若�q�个字段名，�q�些字段��按照降序排列�?br />　　五是CaseInsFields参数�Q�它的作用与DescFields参数�c�M��Q�包含在CaseInsFields参数中的字段��对大小写不敏感�?br />　　六是GroupingLevel参数�Q�用于指定分�l��别，其��g��能超�q�烦引中的字�D�|��?br />　下面的代码创��Z��一个烦引：
If Edit1.Text <> '' and ClientDataSet1.Fields.FindField(Edit1.Text) then
Begin
ClientDataSet1.AddIndex(Edit1.Text+'Index',Edit1.Text, 　
　 [ixCaseInsensitive],'','',0);
ClientDataSet1.IndexName := Edit1.Text + 'Index';
End;
��Z��避免创徏一个烦引，可以临时用IndexFieldNames属性来指定若干个字�D�，让数据集按这些字�D�|��序�?br />11.2.2 删除和切换烦�?/b>
　　要删除一个先前创建的索引�Q�可以调用DeleteIndex�q�指定要删除的烦引名�U�。注意：DEFAULT_ORDER和CHANGEINDEX不能删除�?br />　　如果建立了多个烦引，可以��L��选择其中的一个烦引，�q�就要用到IndexName属性�?br />11.2.3 用烦引把数据分组
　　选择了一个烦引后�Q�数据集��自动按其中的字�D�进行排序。这��P��临近的记录往往在关键字�D�上含有相同的倹{��例如，假设有一个表是这��L��Q?br />SalesRep　Customer　OrderNo　Amount
1　　　　　　1 　　　　5 　　　100
1　　　　　　1　　　　 2　　　 50
1　　　　　　2　　　　 3 　　　200
1 　　　　　2　　　　6　　　75
2　　　　　　1　　　　1　　　10
2　　　　　　3　　　　4　　　200
　　可以看出�Q�SalesRep字段的值有重复的。对于SalesRep字段的��gؓ1的来��_��Customer字段的��g��有重复的。这��是��_��可以按SalesRep字段分组�Q�进而再按Customer字段分组。显�Ӟ��q�里的分�l��别是不同的，按SalesRep字段建立的分�l�属于第一�U�，按Customer字段建立的分�l�属于第二��。实际上�Q�分�l��别取决于字段在烦引中的顺序�?br />　　TClientDataSet可以军_��是否按照分组�U�别来显�C��录的倹{��例如，也许想以下面�q�种形式昄��数据�Q?br />SalesRep　Customer　OrderNo　Amount
1　　　　　　1　　　　5　　　　100
　　　　　　　　　　　2　　　　50
　　　　　　 2　　　　3　　　　200
　　　　　　　　　　　6　　　　75
2　　　　　　1　　　　1　　　　10
2　　　　　　3　　　　4　　　　200
　　要判断当前记录某一�U�的什么位�|�，可以调用GetGroupState函数。GetGroupState函数需要传递一个参敎ͼ�用于指定分组�U�别�?br />11.3 �?��?�?�D?/b>
　　与其他数据集一��P��也可以在TClientDataSet建立的数据集中增加计��字�D�c��计��字�D늚�值是��Z��同一个记录中的其他字�D�计��出来的�?br />　　在其他数据集中，只要用户修改了数据或当前记录发生改变�Q�就会触发OnCalcFields事�g�Q�换句话��_��计算字段的值就被计��一�ơ�?br />　　TClientDataSet引入了“内部计��字�D�”的概念。与一般的计算字段不同的是�Q�内部计��字�D늚�值将随其他字�D늚��g��起存取，�q�样�Q�只有当用户修改了数据才会触发OnCalcFields事�g�Q�如果仅仅改变了当前记录�Q�不会触发OnCalcFields事�g。也��是��_��内部计算字段的值需要重新计��的��Z��大大减少�?br />　　在处理OnCalcFields事�g的句柄中�Q�首先要判断State属性。如果State属性返回dsInternalCalc�Q�此旉��要计��内部计��字�D늚�倹{��如果State属性返回dsCalcFields�Q�此旉��要计��一般的计算字段的倹{�?br />11.4 �l?�?�?/b>
　　TClientDataSet增加了统计的功能�Q�它可以��Z��分组自动计算��d��、��^均、计数、最大、最��倹{��当用户�~�辑数据�Ӟ��q�些�l�计��g��自动跟着变化�?br />11.4.1 指定�l�计方式
　　要指定怎样�q�行�l�计�Q�就要用到Aggregates属性。这个属性是一个TAggregates对象�Q�它用于��理一�l�TAggregate对象�?br />　　在设计期�Q�可以单击Aggregates属性边上的省略��h��钮打开如图11.1所�C?br />的编辑器�?br />　　�?1.1 ��理一�l�TAggregate对象
　　单击按钮可以增加一个TAggregate对象�Q�单��L��钮可以删减一个TAggregate对象�Q�单��L��钮可以把TAggregate对象前移�Q�单��L��钮可以把TAggregate对象后移�?br />　　可以用字�D늼�辑器专门创徏一个用于表辄��计值的字段�Q�该字段的类型必��L��“Aggregate”。Delphi 4会自动创��Z��个TAggregate对象�Q��ƈ加到Aggregates属性中。选择一个TAggregate对象�Q�Object Inpector��显�C��对象的属性�?br />　　其中�Q�Expression属性用于指定统计表辑ּ��Q�例如：
Sum(Field1)
　　也可以是比较复杂的表辑ּ��Q?br />Sum(Qty * Price) - Sum(AmountPaid)
　　在表辑ּ�中，可以使用下列�l�计�q�算�W�：
.Sum计算一�l�数据的��d��?br />.Avg计算一�l�数据的�q�_��倹{�?br />.Count计算一�l�数据中的非�I�值的个数�?br />.Min计算一�l�数据的最��倹{�?br />.Max计算一�l�数据的最大倹{�?br />　　除了上述几个�l�计�q�算�W�外�Q�还可以使用�q��o条�g中所能��用的�q�算�W�，但不能嵌套。在一个表辑ּ�中，可以混合出现几个�l�计值或帔R��Q�但不能混合出现�l�计值和字段�?br />　　Sum(Qty * Price){合法}
　　Max(Field1) - Max(Field2){合法}
　　Avg(DiscountRate) * 100{合法}
　　Min(Sum(Field1)){非法�Q�不能嵌套}
　　Count(Field1) - Field2{非法�Q�统计值和字段不能混合出现在一个表辑ּ�中}
11.4.2 指定分组
　　默认情况下，�l�计值是��Z��数据集中所有的记录计算出来的。不�q�，也可以针对一部分记录计算�l�计��|��q�就需要事先徏立分�l��?br />　　前面在介�l�烦引时已经提到分组的概��c��可以通过IndexName属性和GroupingLevel属性来选择使用哪个索引以及最大的分组�U�别�?br />　　例如�Q�假设有一个表是这��L��Q?br />SalesRep　Customer　OrderNo　Amount
1　　　　　　1 　　　　5 　　　100
1　　　　　　1　　　　 2　　　 50
1　　　　　　2　　　　 3 　　　200
1 　　　　　2　　　　6　　　75
2　　　　　　1　　　　1　　　10
2　　　　　　3　　　　4　　　200
　　如果要按SalesRep字段分组�Q��ƈ且指定其中的�W�一�U�，�E�序代码应当�q�样写：
Agg.Expression := 'Sum(Amount)';
Agg.IndexName := 'SalesCust';
Agg.GroupingLevel := 1;
Agg.AggregateName := 'Total for Rep';
11.4.3 怎样获取�l�计�?/b>
　　要获取统计��|��可以调用TAggregate对象的Value函数。如果统计值是��Z��数据集中所有的记录计算出来的，随时可以调用Value函数。如果统计值是��Z��分组计算出来的，必须保证当前记录正好位于该分�l�内。因此，在调用Value之前�Q�最好先调用GetGroupState函数看看当前记录是否位于该分�l�内�?br />　　要在数据控�g中显�C�统计��|��必须事先在字�D늼�辑器中创��Z��个永久字�D�对象，该字�D늚��c�d��必须是Aggregate�?br />11.5 �?�?�?/b>
　　通过Data属性可以访问客��L��序从应用服务器检索到的数据。程序示例如下：
Procedure TForm1.Button1Click(Sender: TObject);
Begin
ClientDataSet1.Data := ClientDataSet1.Provider.DataRequest(FilterEdit.Text);
End;
11.5.1 直接对Data属性赋�?/b>
　　前面讲过�Q�客��L��序既可以通过IProvider接口获取数据�Q�也可以从另一个数据集获取数据�Q�后者就是通过Data属性赋值的。程序示例如下：
　　ClientDataSet1.Data := ClientDataSet2.Data;
　　一旦Data被赋��|��可以用标准的数据控件显�C��些数据�?br />　　注意�Q�当从另一个数据集获取数据�Ӟ��另一个数据集的日志也��被复制�q�来�Q�但不包括原来的范围和过滤条件�?br />　　如果要从另一个基于BDE的数据集中获取数据，可以通过数据集构件的Provider属性，�E�序�C�Z��如下�Q?br />　　ClientDataSet1.Data := Table1.Provider.Data;
　　如果要从一个自定义的数据集获取数据�Q�首先要创徏一个��时的TProvider构�g�Q�然后设�|�其DataSet属性指定这个自定义的数据集。程序示例如下：
TempProvider := TDataSetProvider.Create(Form1);
TempProvider.DataSet := SourceDataSet;
ClientDataSet1.Data := TempProvider.Data;
TempProvider.Free;
11.5.2 在数据包中加入自定义的信�?/b>
　　可以把自定义的信息加到数据包中。当把数据保存到文�g或流中时�Q�这些自定义的信息也��保存到文�g或流中。如果把数据包直接赋值给另一个数据集的话�Q�这些自定义的信息也��被复制�?br />　　要把自定义的信息加到数据包中�Q�可以调用SetOptionalParam函数。要从数据包中检索自定义的信息，可以调用GetOptionalParam。程序示例如下：
Procedure TAppServer.Provider1UpdateData(Sender: TObject; DataSet: TClientDataSet);
var
WhenProvided: TDateTime;
Begin
WhenProvided := DataSet.GetOptionalParam('TimeProvided');
...
End;
11.5.3 克隆另一个数据集
　　调用TClientDataSet的CloneCursor函数可以获得一个数据集的完全相同的副本。它与直接通过Data属性赋值是有区别的�?br />　　区别之一�Q�数据在两个数据集之间是�׃�n的，修改其中一个将同时修改另一个�?br />　　区别之二�Q�除了数据外�Q�CloneCursor函数�q�复制了一些属性和事�g�Q�这取决于Reset和KeepSettings参数怎样讄��?br />　　　CloneCursor函数需要传递三个参敎ͼ�其中�Q�Source参数指定源数据集�Q�Reset参数和KeepSettings参数用于讄��除了数据外是否还要复制下列属性和事�g�Q�Filter、Filtered、FilterOptions、OnFilterRecord、IndexName、MasterSource、MasterFields、ReadOnly、RemoteServer、ProviderName、Provider�?br />　　如果Reset和KeepSettings参数都设为False�Q�源数据集的上述属性和事�g都将被复制给目标数据集。如果Reset参数设�ؓTrue�Q�目标数据集的上�q�属性和事�g都将被清�I�。如果Reset参数设�ؓFalse�Q�而KeepSettings参数设�ؓTrue�Q�目标数据集的上�q�属性和事�g不变�Q�不�q�，必须保证�q�些属性和事�g与克隆后的数据相宏V�?br />11.6 与应用服务器通讯
　　在多层体�pȝ��构中�Q�客��L��序通过IProvider接口与应用服务器交换数据。这一章介�l�怎样在客��L��获得IProvider接口、怎样向应用服务器传递参数、怎样向应用服务器��h��数据、怎样把用户对数据的修改写到数据库中�?br />11.6.1 怎样在客��L��获得IProvider接口
　　在单层应用程序以及工作在“公文包”模式下的多层应用程序中�Q�不需要用到IProvider接口。而在多层体系�l�构中，客户�E�序要与应用服务器交换数据，首先必须获得IProvider接口�Q�这��p��用到RemoteServer属性和ProviderName属性�?br />　　RemoteServer属性用于指定客��L��的MIDAS�q�接构�g。MIDAS�q�接构�g又称Data Broker�Q�用于徏立和�l�护与应用服务器的连接�?br />　　在设计期�Q�正��设�|�了RemoteServer属性后�Q�就可以在对象观察器中�ؓProviderName属性选择一个��|��实际上就是选择应用服务器上的一个TProvider构�g�?br />11.6.2 向应用服务器传递参�?/b>
　　客户�E�序可以向应用服务器传递参敎ͼ��q�些参数实际上是传递给应用服务器上的TQuery构�g或TStoredProc构�g。既可以在设计期也可以在�q�行期设�|�参数�?br />　　在设计期�Q�可以单击Params属性边上的省略��h��钮，打开一个如�?1.2所�C�的�~�辑器�?br />　　�?1.2 讄��参数
　　单击按钮可以增加一个参敎ͼ�单击按钮可以删减一个参敎ͼ�单击按钮可以把一个参数前�U�，单击按钮可以把一个参数后�U�R�?br />　　选择一个参敎ͼ�对象观察器将昄��该参�?TParam对象)的属性�?br />　　在运行期可以调用TParams的CreateParam函数来创��Z��个参数。例如，下面的代码创��Z��一个参数叫CustNo�Q�它的��用类型是ptInput�Q�数据类型是ftInteger�Q�它的��D��?05�?br />With ClientDataSet1.Params.CreateParam(ftInteger, 'CustNo', ptInput) Do
AsInteger := 605;
　　讄��好参��C��后，如果TClientDataset的Active属性是False�Q�只要把Active属性设为True�Q�这些参数将被自动传递给应用服务器。如果Active属性已�l��ؓTrue�Q�就要调用SendParams函数把参��C��递给应用服务器�?br />　　注意�Q�传递给应用服务器的参数必须与TQuery构�g或TStoredProc构�g的参数匹配，包括名称、数据类型和参数�c�d��?br />11.6.3 怎样向应用服务器��h��数据
　　TClientDataSet提供了两个属性和三个�Ҏ(gu��)��Q�用于怎样向应用服务器��h��数据�Q?br />　　一是FetchOnDemand属性。如果这个属性设为True�Q�TClientDataSet会根据需要自动检索附加的数据包，例如BLOB字段的值或者嵌套表的内宏V��如果这个属性设为False�Q�程序需要显式地调用GetNextPacket才能获得�q�些附加的数据包�?br />　　二是PacketRecords属性，用于讄��一个数据包中最多可容纳的记录数�Q�设�?1表示一个数据包可以容纳数据集的所有记录�?br />　　三是GetNextPacket函数�Q�用于向应用服务器检索下一个数据包�Q��ƈ把检索到的数据包��d��到前一�ơ检索到的数据包的后面。这个函数返回实际检索到的记录数�?br />　　四是FetchBlobs�q�程�Q�用于从应用服务器检索BLOB字段的倹{��如果FetchOnDemand属性设为True�Q�就没必要调用FetchBlobs函数�?br />　　五是FetchDetails�q�程�Q�用于检索嵌套表中的数据。如果FetchOnDemand属性设为True�Q�就没必要调用FetchDetails函数�?br />11.6.4 更新数据�?/b>
　　在多层体�pȝ��构中�Q�用户在客户端修改了数据后，需要把最新的数据写到数据库中�Q�这��p��调用TClientDataSet的ApplyUpdates函数�?br />　　ApplyUpdates只需要传递一个参数叫MaxErrors�Q�用于指定一个整敎ͼ�当遇到无法更新的记录��过�q�个数时�Q�此�ơ更新就中止。如果MaxErrors参数设�ؓ0�Q�表�C�只要遇��C��个错误更新就中止�Q�客��L��的日志保持不变。如果MaxErrors参数设�ؓ-1�Q�当应用服务器发现有错误的记录，��尝试更��C��一个记录，�{�所有的记录都尝试过以后才返回�?br />　　ApplyUpdates会自动调用Reconcile函数�Q�进而调用应用服务器上的TProvider构�g的ApplyUpdates函数��L��新远�E�的数据库服务器。没有被DBMS服务器认可的记录通过Reconcile�q�回�l�客��L��Q�此时将在客��L��触发OnReconcileError事�g让�?zh��n)�更正错误。最后，ApplyUpdates函数�q�回仍然没有被认可的记录数�?br />11.7 在文件中存取数据
　　要从文�g中读取数据，可以调用LoadFromFile函数。LoadFromFile函数需要传递一个参敎ͼ�用于指定文�g名。文件名应包含完整的路径。如果客��L��序��L��从一个固定的文�g中读取数据，可以讄��FileName属性指定一个文件名�Q�以后，当TClientDataSet引入的数据集打开�Ӟ��p��动从�q�个文�g中读取数据，不需要调用LoadFromFile�?br />　　要从��中��d��数据�Q�可以调用LoadFromStream。LoadFromStream需要传递一个参敎ͼ�用于指定一个流对象�?br />　　注意�Q�LoadFromFile(LoadFromStream)只能从先前用SaveToFile(SaveToStream)保存的文件中��d��数据�?br />　　要把数据保存到文件中�Q�可以调用SaveToFile函数。SaveToFile需要传递一个参敎ͼ�用于指定文�g名。如果指定的文�g已存在，文�g中的数据��被覆盖。如果客��L��序��L��把数据保存到一个固定的文�g中，可以讄��FileName属性指定一个文件名�Q�当TClientDataSet引入的数据集关闭�Ӟ��p��动把数据保存到这个文件中�Q�不需要调用SaveToFile�?br />　　要把数据保存到流中，可以调用SaveToStream。SaveToStream需要传递一个参敎ͼ�指定一个流对象�?br />　　注意�Q�当把数据保存到文�g或流中时�Q�日志中记蝲的修改仍然保留。这��P��当下�ơ调用LoadFromFile或LoadFromStream��d��数据�Ӟ��仍然可以恢复原来的数据�?

konhon 优华 2007-03-29 18:57 发表评论

[轉]物流信息�pȝ��开发手�?Delphi的三层开�?

konhon 优华 — Wed, 28 Mar 2007 10:07:00 GMT

�q�日�Q�呵呵，�q�篇文章是去�q�写的）用了两个月开发了一个物��信息系�l�，�q�个�pȝ��是两层、三层相�l�合�Q?/span>C/S�?/span>B/S相结合的�pȝ��。虽焉��于时间的紧张和�h手的原因�Q�系�l�规模不是很大，但是其中涉及的技术却很全面。在�q�个�?b>开发技术篇》中我们��讲解我在开发系�l�中遇到的技术问题及解决�Ҏ(gu��)��Q�希望对大家有帮助。对于物��信息系�l�的分析设计问题�Q�我��在另一��文章《物��信息系�l�开发手记――系�l�构架篇》中讲解�?/span>

一�?/span>Midas的安全问题�?/span>
    Midas技术是Delphi中进行三层开发的首选技术，它不仅有�U?/span>DCOM/COM+(COM+技术是.NET技术的基础)的优点，而且也结合了Delphi的快速开发特性，可以快速开发出惌��的系�l�，其开发速度是用VC,PB�{�开�?/span>DCOM的数十倍，把程序员从烦杂的代码中解脱出来，从而将更多的精力投入到业务逻辑的设计中厅R�?/span>
    但是Midas技术的一个最令�h担忧的就是它的安全问题：
�q�端只要知道应用服务器的端口号即可访问到应用服务器，而一旦访问到应用服务器，TClientDataSet卛_��获得ProviderNames列表。一旦知道了ProviderNames列表�Q�这��q��当于��数据库暴露在外了�?/span>
关于可轻易获�?/span>ProviderNames列表的问题，我��用下面的�Ҏ(gu��)��解决�Q?/span>
在服务器端定义一�?/span>
LoginMTS(const AUserId, APassword: WideString): WordBool;
�Ҏ(gu��)��。初始状态下�Q�所有的DataSetProvider和数据集的连接断开。用户必��调�?/span>LoginMTS�q�传递用户名和密码，登陆成功才将DataSetProvider和数据集的连接打开。这样如果用户验证没有通过�Q�即使它获得�?/span>ProviderNames列表也没法调用接口中的方法对数据库进行操作�?/span>
二�?/span>Midas中主从表的实�?/span>
��M��表的应用在信息系�l�中应用很广。在两层开发中我们可以通过直接建立两个数据集之间�ؓ��M��关系来实��C��从表�Q�在三层中虽然我们仍然可以通过直接建立两个数据集之间�ؓ��M��关系来实��C��从表�Q�但是这样就要求把数据库中所有相关的数据行都下蝲到本圎ͼ�丧失了三层开发的优势。我在实际中使用下面的方法实现。这里我以实现入库单查询、添加、修攏V��删�?/span>(CRUD)��Z��来讲解：
�Q?/span>1�Q�新��Z��?/span>MTS Data Module�Q�命名�ؓTmtsStockInListBiz,增加如下�Ҏ(gu��)��Q?/span>
    function QueryStockInListMasterById(const AId: WideString;
      var ADatas: OleVariant): WordBool; safecall;
    function QueryStockInListSlaveByMasterId(const AId: WideString;
      var ADatas: OleVariant): WordBool; safecall;
    procedure UpdataStockInListMaster(var ADatas: OleVariant); safecall;
    procedure UpdataStockInListSlave(var ADatas: OleVariant); safecall;
    function GenerateStockInListId: WideString; safecall;

QueryStockInListMasterById作用是根据入库单单号查询入库单的基本信息�Q�入库日期、负责�h�{�）�Q?/span>Aid为入库单单号�Q?/span>Adatas��回��|��其格式就�?/span>Midas的数据包�Q�可以将光��l?/span>ClientDatSet�?/span>Data属性�?/span>
QueryStockInListSlaveByMasterId作用是根据入库单单号查询入库单的详细信息�Q�商品条码，数量�Q?/span>
UpdataStockInListMaster是对入库单主表进行删除、添加、修�Ҏ(gu��)��作。只要将ClientDataSet�?/span>Delta属性做��Z��递即可�?/span>
UpdataStockInListSlave是对入库单从表进行删除、添加、修�Ҏ(gu��)��作�?/span>
GenerateStockInListId是��生一个唯一的入库单受��?/span>
下面是几个方法的代码�Q�都很简单，��׃��多解释了�Q�可以查�?/span>Delphi的帮助�?/span>
function TmtsStockInListBiz.QueryStockInListMasterById(
const AId: WideString; var ADatas: OleVariant): WordBool;
begin
result := false;
ADatas := null;
try
    cdsQuery.Close;
    cdsQuery.CommandText := 'select * from t_StockInListMaster where Id=:Id';
    cdsQuery.Params.ParamByName('Id').AsString := AId;
    cdsQuery.Open;
    if cdsQuery.RecordCount > 0 then
    begin
      result := true;
      ADatas := cdsQuery.Data;
    end;
finally
    cdsQuery.Close;
end;
end;

procedure TmtsStockInListBiz.UpdataStockInListMaster(
var ADatas: OleVariant);
var
eCount: Integer;
OwnerData: OleVariant;
begin
DCOMConStockInList.GetServer.AS_ApplyUpdates('dspStockInListMaster',
    ADatas, -1, eCount, OwnerData);
end;

function TmtsStockInListBiz.GenerateStockInListId: WideString;
var
LPrior: string;
i: Integer;
begin
cdsQuery.Close;
cdsQuery.CommandText := 'select top 1 id from t_StockInListMaster order by id desc';
cdsQuery.Open;
LPrior := cdsQuery.FieldByName('Id').AsString;
i := StrToIntDef(RightStr(LPrior,8),0);
Inc(i);
result := 'RK' + FormatFloat('00000000',i);
cdsQuery.Close;
end;

�Q?/span>2�Q�、新��Z��个应用程序，通过DCOMConnection�?/span>SocketConnection�{�连接到MTS�l��g�Q�然后就可以调用MTS的相应的�Ҏ(gu��)��实现客户端功能了�?/span>
攑օ�cdsStockInListMaster�?/span>cdsStockInListSlave两个ClientDataSet控�g�Q�在控�g上点��d��键，选择�?/span>FieldsEditor”新��Z��服务器中的字�D�同��L��字段�Q�然后再�ơ在控�g上单��d��键，选择�?/span>CreateDataSet”，建立一个本地数据库�?/span>
�Q?/span>3�Q?/span>
�Ҏ(gu��)��入库单号查询入库单的�Ҏ(gu��)��实现�Q?/span>
procedure TFormStockInList.BtnFindClick(Sender: TObject);
var
v,vs: OleVariant;
begin
if SocketConStockInList.AppServer.QueryStockInListMasterById(Trim(LEdtId.Text), v) then
begin
    cdsStockInListMaster.Data := v;//昄��入库单主表（主要信息�Q?/span>

    if SocketConStockInList.AppServer.QueryStockInListSlaveByMasterId(Trim(LEdtId.Text), vs) then
      cdsStockInListSlave.Data := vs; ;//昄��入库单从表（明细信息�Q?/span>
end
else
    ShowMessage('此单不存在！');
end;
�Q?/span>4�Q�新建入库单的实�?/span>
procedure TFormStockInList.BtnNewClick(Sender: TObject);
var
LId: string;
begin
ClearCDSRecord;
cdsStockInListMaster.Open;
cdsStockInListMaster.Insert;
LId := SocketConStockInList.AppServer.GenerateStockInListId;
LEdtId.Text := LId;
cdsStockInListMaster.FieldByName('Id').AsString := LId;
cdsStockInListMaster.FieldByName('GenerateDate').AsDateTime := Now();
end;
�Q?/span>5�Q�提交功能的实现
procedure TFormStockInList.BtnPostClick(Sender: TObject);
var
LQuerymts: ImtsQueryObjDisp;
LBar: string;
begin
SetSocketConnectionConnect(SocketConQuery);
LQuerymts := ImtsQueryObjDisp(SocketConQuery.GetServer);

SocketConQuery.Close;

if cdsStockInListMaster.RecordCount > 0 then
    SocketConStockInList.AppServer.UpdataStockInListMaster(cdsStockInListMaster.Delta);
if cdsStockInListSlave.RecordCount > 0 then
SocketConStockInList.AppServer.UpdataStockInListSlave(cdsStockInListSlave.Delta);
end;
注：本文�?/span>ClientDataSet控�g的名�U�开头一般�ؓcds�?/span>TsocketConnection控�g的名�U�开头一般�ؓSocketCon�?/span>
三、动态设�|?/span>TsimpleObjectBroker的服务器列表
procedure SetSocketConnectionConnect(AValue: TSocketConnection);
procedure FillAppServerList(ABroker: TSimpleObjectBroker);
var
    sl: TStringList;
    i, n: Integer;
begin
    sl := TStringList.Create;
    从配�|�文件中��d��服务器列表，�q�保存到sl�?/span>;
    n := sl.Count - 1;
    ABroker.ServerData := null;
    for i := 0 to n do
    begin
      ABroker.Servers.Add;
      ABroker.Servers[i].ComputerName := sl.Strings[i]
   end;
    sl.Free;
end;
var
LBroker: TSimpleObjectBroker;
begin
LBroker := TSimpleObjectBroker.Create(nil);
    FillAppServerList(LBroker);
    AValue.ObjectBroker := LBroker;
    try
      AValue.Connected := true;
    except
      raise Exception.Create('应用服务器连接错误！');
    end;
    LBroker.Free;
end;

konhon 优华 2007-03-28 18:07 发表评论

VCD�?sh��)子相册的制�?

konhon 优华 — Wed, 28 Mar 2007 00:11:00 GMT

　　因�ؓ需要处理大量的韟뀁视频数据，所以一套强有力的计��机�pȝ��及外围硬仉��|�是必要的。另外，�׃��我们要直接输出的是高质量的MPG文�g�Q�而非体积庞大的AVI文�g�Q�，因此�Q�强烈徏议��用视频压�~�卡�q�行��g高速压�~�，本文以较常见的MPEGator 3.1压羃卡�ؓ例，介绍通过Premiere利用压羃卡直接输出MPG的办�?

　　1、制作VCD�?sh��)子相册应��用怎样的系�l�配�|�？

　　�{�：推荐的系�l�配�|�如�?--

　　CPU�Q?PIII 500E以上

　　内存�Q?256M SDRAM或更�?

　　��盘�Q?20G高�?

　　压羃卡：MPEGator 3.1 ��d��机：所有能被Video Pack 4.0所支持的型�?

　　操作�pȝ��Q�Windows 95 OSR2或Windows 98 制作软�g�Q�Adobe Premiere 5.0/4.2、Video Pack 4.0

　　辅助软�g�Q�Paint shop Pro 6.0、ACDsee3.0、Audio Grabber 1.61 以上推荐的系�l�配�|�中�Q�我们主要是采用了著名的视频�~�辑软�gAdobe Premiere 5.0与性能��h��比较高的MPEGator 3.0压羃卡配合制作VCD相册。�ؓ什么要采用�q�样的配合呢�Q�还是先让我们来了解一下它们各自的�Ҏ(gu��)��吧�Q?

　　2、�ؓ什么推荐��用Premiere 5.0数字��p��~�辑软�g�Q?/strong>

　　�{�：Adobe Premiere 5.0是图形图像��Y件巨�?--Adobe公司�l�广受称赞的Premiere 4.2�?推出的新一代桌面数字媄视编辑系�l�。它��h��比Premiere 4.2更�ؓ强大的图像编辑能力，通过把动甅R��位图、数字音频文件按照需要进行剪辑、组合，让你可以设计��乎随心所�Ʋ的��p��Ҏ(gu��)��Q�在专�ؓ�~�辑影像片段而设计的Timeline里，利用鼠标��可完成所有的�~�辑操作�Q�它的即时播攑֊�能还使我们在发生�~�辑错误�Ӟ��能够��L��地进行修改，以节省时间与�_�֊�。更重要的是�Q�Premiere 5.0可以提供高品质媄像输��量！�q�一点着实��o人心动。此外，它还支持制作输出有声有色的VCD�?sh��)子相册呢�?

　　3、�ؓ什么推荐��用MPEGator压羃卡？

　　�{�：压羃卡方面，韩国DARIM公司生��的MPEGator压羃�?�?2�Q�可谓是��h��较高性能��h��比的视频压羃卡：不仅带有S-video、复合、及立体声音频输入接口，可以通过摄像机、录像机、电(sh��)视及�Ȁ光唱机等信号源将视频信号实时压羃成全I.P.B帧的标准MPEG-1格式�Q�还支持实时预览。最为重要的是MPEGator卡可以�ɋ��行的视频编辑��Y仉��过��g加速�{换成为MPEG-1格式。　　MPEGator可与Windows的其它应用程序配合�� PEG文�g�Q?D Studio, Adobe Premiere�{�各�U�兼容Video for Window的流行的�~�辑软�g都可以在生成动画或AVI之前�Q�直接选用其压�~�驱动程序，通过��g加速压�~�生成�ؓMPEG文�g�Q�有效地避免了因AVI—→MPG而导致的画质下降�q�一��N��。另外，MPEGator�q�具有PAL�Q�NTSC制式兼容�Q�PCI32位�ȝ��{�特炏V��通过以上介绍�Q�可以看出：利用�q�样的��Y��g�l�合�Q�我们将能够制作出效果比较��o人满意的多媒体VCD相册。下面，��p��我们开始实战VCD相册的制作吧�?

　　4.制作VCD相册之前�Q��ؓ什么要拟定提纲�Q?/strong>

　　�{�：制作VCD相册之前�Q�首先应�Ҏ(gu��)��制作的作品的各个斚w��做到心中有数。最好列个制作提�UԌ��列出主题及各相对独立片段的次序，以及每个片段内的照片、音乐、旁白；��每张照片分别编上序��P��q�将其序号与�Ʋ添加的说明文字对应��h��。这��P��在实际制作的时候就条理清晰、步骤分明，不易出现错漏�{�现象�?

　　5.怎样�q�行照片的扫描？

　　�{�：选取一张浅色纹理纸�Q�将其裁剪成�?55mm、高127mm(�?52�Q?88)大小的矩形模�ѝ��用双面胶将照片�_�于其上(注意居中,�q��底边高度略大于顶�?,攑օ�扫描仪进行扫�?�q�以位图(.bmp)形式存盘。此丑֥�处之一是��扫出的照片具有一个漂亮的彩色相框�Q�另一个好处是可以��添加的说明文字攑֜�相框上，而不是照片内�Q�不会破坏照片的��感(�?7)。�?br />

　　6. 如何为照片添加说明文字？

　　�q�入Paint Shop Pro 5.0�Q�选择File——open打开一�q�已扫好的照片，点击左侧工具栏中的“A”键�Q�接着��鼠标移至照片内�q�单��d��键，在弹出的“Add Text”文字输入框中输入想要的文字�Q�再选定字体、字号及颜色�Q�确定文字位�|�后点击“OK”，�q�将�~�辑后的照片以原文�g名存盘�?/p>
　7.如何截取韌��Q?/strong>

　　�{�：启动韌��截取软�gAudioGrabber,��音乐CD攑օ�光驱�Q�勾选想要截取的CD韌��?

　　点击控制栏中的“Settings”按键后��N��其中的“ASPI”项�Q�其它选项用默认值即可。然后，�q�入“Norm”选项�Q�选择“Use normalizing”后点击“OK”退出。现在，先用鼠标点击一下工��h��里那标有伸开手掌的“截取”（Grab�Q�钮,��可以开始抓取指定的韌��了。如果截��L��.WAV文�g不能被正常读取或�?WAV文�g中有令�h讨厌的“爆音”（pops�Q�这是��o许多朋友头痛的问题）。请在“开始—设�|�—控刉��李쀔系�l�—设备管理—CDROM—属性—设�|�—选项”中��“同步数据传送”选中�Q�然后按“确定”退出。再重新去试截取刚才有问题的韌��Q��?zh��n)�可能会发玎ͼ�问题已经�q�刃而解了。其�ơ，若觉得光��p��取音乐数据的速度很缓慢，请先��查光�׃��数据�U�是否直接接��C��L��的IDE接口上�?

　　��Z��方便��理和��用，可新建Photo、Audio、Wav三个子目录，分别用于存放照片、音乐及旁白�?

　　准备工作完成后，��可以开始着手制作了。�ؓ了工作得更有条理�Q�我们一般先�Ҏ(gu��)��一个相对独立的片段�q�行�~�辑制作�Q�最后再把它们连成整体�?

　　8.如何讄��才能让Premier5.0利用MPEGator来进行高效硬件压�~�？

　　�{�：首先启动Premiere5.0。在弹出的New Project setting�H�口�Q�选择General settings,在“编辑模式”里选“Video for window”，其下的两个选项均选�?5”（因�ؓ我们要制作的是PAL制式的VCD)�Q�然后进Video settings,在“压�~�器�Q�Compressor�Q�”这一��中选“DVMPEG Video (hardware)�?�?8)�Q�即选用��g压羃�Q�分辨率设�ؓ352*288�Q��率设�?5�Q�在Audio settings里，关键是在“Type(�c�d��Q�”中选择“DVMPEG Audio�?--指定用硬件进行音频压�~�；采样频率设�ؓ44.1KHZ�Q�格式设�?6bit--Stereo�?

　　9.Premiere 5.0的主界面的结构如何？

　　�{�：�q�入Premiere 5.0的主界面�Q�我们会发现设计新颖的时间��u�H�口(Timeline)已取代了�?.2版本中的Constraction�H�口。作为Premiere 5.0的核心，Timeline的用��L��口分��Z��个部份：视频部分和音频部分；其中视频部䆾又分��Z��个主视频剪辑轨道——Video 2和Video 1。其中，标成黑体字的Video 1部䆾又内含两个视频剪辑轨道：Video 1A和Video 1B�Q�它们之间的Transition轨道是视频切换效果轨道。Premiere 5.0提供了非�怸�富的视频切换效果�Q�包括滑动、擦除、融合、剥落、分剌Ӏ�爆破、渐变、突变、三�l�旋转、翻��c��推动等多种划变效果�Q��o人目不暇接。音频轨道Audio 1�?�?则用于放�|�背景音乐、配韟뀁旁白等声音信号。　　

　　10.如何导入囄��及配��x��Ӟ��

　　�{�：点击“File--Import--Folder”，把刚才准备好的图片文件及背景音乐文�g输入�q�来�Q�在Project�H�口下双��d��才输入的文�g夹，可以看到文�g夹中的各文�g的具体信息，双击该文件则可对其进行预览。　　

　　11.如何讄��照片的参敎ͼ�

　　�{�：��第一�q�照片拖到视频剪辑轨道Video 1A中，对其点击鼠标右键�Q�在弹出的菜单中的Duration��w��讑֮�照片的播放时��_��q�在菜单中的Video��w��Maintain Aspect Retio选中(�?9)——请注意�Q�这是非帔R��要的一步，此项讄��最后输出的照片保持原本的长宽比例，而不致于使照片上的�h像、景物发生变形。按上述�Ҏ(gu��)��照片依�ơ拖入Video1的A、B栏，(注意每幅照片的尾与下一�q�照片首应留有重叠部份，重叠部䆾的时间长短依实际需要而定。把背景音乐、旁白拖入Audio栏）。如果是旁白�Q�应特别注意旁白的时间长度应与相应照片的播放旉��相当。然后，用鼠标把Timeline�H�户上方的浅蓝色横杠拉至最后一张照片的末端�Q�以讑֮�Premiere��进行处理的视频片段的长度�?

　　12. 如何讑֮�视频切换�Ҏ(gu��)��Q?/strong>

　　�{�：Premiere 5.0用户界面�?有一个Transition�Q�Command命��o�H�口�Q�其中共�?5�U�切换特效可供选择。而且�Q�其中大多数切换�Ҏ(gu��)��都可按自��q��需要进行设�|�。将选中的特效用鼠标拖到Video 1�H�口的Transition中两�q�照片相重叠的部分，光��度应��Z��q�照片相重叠的长度。如果能�Ҏ(gu��)��每幅照片的特�Ҏ(gu��)��当地选择Transitions�Q�将使�?zh��n)�的VCD相册在播放时赢得更多的赞叹之声。　　

　　13. 如何处理背景音乐�Q?/strong>

　　�{�：为VCD相册��d��优美的背景音乐，也将使你的VCD相册�q�x��许多�q��h的魅力。然而，因�ؓ背景音乐是我们采用抓韌��的方式获得的�Q�这样就不可避免地在VCD相册一开始播放时��出现突兀而至的音乐声。此外，�׃��韌��的长度与照片播放旉��的长度往往难以很好的吻合。这��P��可能出��C��D�VCD相册的播��N��上就要结束，而音乐声却正处于高潮……。理想的状况应该是：照片播放�Ӟ��背景音乐逐渐��L��地响��P��照片播放卛_��l�束�Ӟ��音乐声又渐渐随之淡去。换句话��_��也就是要实现背景音乐的��E入��E出。在Premiere 5.0中，按前�q�方法装入照片及背景音乐后，单击�W�一音频轨道�Q�Audio 1�Q�上的那个指向右的小三角�Q�这时会弹出该音轨的波�Ş昄��框。可以看到该框中部有一条左叛_��有一方�Ş端点的红�U�쀔—这��是控制音乐淡入淡出的关键。将鼠标�U�至�U�线上，鼠标指针��变为手�?�?0)。此�Ӟ��按住鼠标左键卛_��通过增加和拖动点子来随意��定该红�U�条形状。从起始位置开始，��线条置于从左至��x��高状态时�Q�即可实现背景音乐的淡入效果。用�c�M��的方法还可制造音乐的淡出效果�Q�在此不再赘�q�。有兴趣的朋友尽可自行尝试。�?/p>
　　14. 如何讄��输出参数�Q?/strong>

　　�{�：输出参数包含General、Audio、Video三项�Q�只有正��的讑֤�了输出参敎ͼ�VCD相册才能在VCD��Z��利播放。首先选Project--Setting�q�入General讄��Q�在“Editing Mode”里选“Video for window”，“Time display”及“Timebase”均选�?5”；再进入Video讄��Q�“Compressor”选“DVMPEG Video(Hardware)”，��寸设�ؓ352*288�Q��率设�?5�Q�最后设�|�Audio参数�Q�采样频率设�?4.1KHZ�Q�格式设�?6bit--Stereo(�?1)�Q�Type设成“DVMPEG Audio”。在�q�里�Q�音频及视频均设�|��ؓ��g�Q�MPEGator卡）加速压�~�。�?br />

　　15. 如何直接输出MPG文�g�Q?/strong>

　　�{�：上述参数讄��完毕后，接着选File-Export-movie�Q�将刚才�l�合好的照片�Q�音乐，旁白�{�素材，通过MPEGator卡的��g加速直接生成高质量的MPG文�g。我们知道，如果利用Xing MPEG Encoder�{�进行纯软�g压羃�Q�即使你的系�l�配�|�较高，其压�~�时间也��O长得惊�h�Q�约为真实播放时间的10-20倍；而利用MPEGator卡进行硬件压�~�的话，可就太节省时间了�Q�压�~�时间仅为真实播放时间的3倍左叻I��大大提高了制作效率。需要注意的是，��Z��便于分类�Q�应把同一主题的内容输出生成一个独立的MPG文�g�?

　　16. 如何把电(sh��)子相册刻成VCD��？

　　前面所有辛苦的力_��Q�都��通过��d��成VCD��片而变成劳动的果实。说�?.0 VCD��d��Q�CeQuadrat出品的Video Pack 4.0因其较细致而周到的功能设计�Q�是一个在业余条�g下不错的选择�Q�其�~�点是操作相�Ҏ(gu��)��较繁琐。启动Video Pack 4.0�Q�将刚才压羃好的各个MPG文�g依次用鼠标拖至位于主界面下方的工作框内，右键单击MPG文�g�Q�在弹出的菜单选中Properties�Q�在Playlist node中的�W�二个选项�Q�即每一片段的等待时��_��里把�{�待旉��设�ؓ0�U�，按“确定”退出。每个MPG文�g都必��重复上�q�步骤，�q�样可以使各独立主题内容切换时不至于出现停顿�{�待状态。这时你也许发现了，刚才拖入工作框的各MPG文�g方�Ş图标上下均有一个三角�Ş�~�口。原来，在Video Pack 4.0中是用连�U�的方式来表�C�各�U�播放次序的�Q�而这�U�三角�Ş�~�口�Q�就是这些连�U�的出入口。将鼠标指针�U�至MPG文�g图标下方的缺口，图标里会出现黄颜色的“Next”字��P��此时卛_��开始进行连�U�，�Ҏ(gu��)��是��各MPG文�g按顺序首��q?�?2)。上�q�步骤完成后�Q�点��d��h��中的�U�色的“Make CD”钮卛_��开始刻录VCD光碟了�?

　　17. 把电(sh��)子相册刻成VCD��的�q�程中要注意哪些事项�Q?/strong>

　　要是现在问你�Q�自己刻制一张VCD相册光盘困难吗？你肯定会��_��一炚w��不难�Q?

　　那么�Q�是不是��像在硬盘上拯��文�g那么轻而易丑֑��Q�决非如此简单。VCD相册��d��前进行些必要的准备工作，��能大大提高我们的刻录成功率�Q�　　

　　a.��d��前�ؓ什么要整理��盘�Q?

　　�{�：我们通常都是以硬盘作��Z��息源盘来�q�行��d��的。由于未�l�整理的��盘文�g大多呈零散状态分布。这��P��盘在读取数据时�Q�读写头��只能在零散的文件之间来回奔忙，极有可能造成不必要的延误而导致刻出废盘。所以，每次��d��前对��盘的每一个逻辑分区�q�行��盘扫描和碎片整理。进行硬盘整理是成功��d��的第一步。　　

　　b.��Z��么刻录过�E�中要避免执行�Q何无关程序？

　　�{�：�q�些�E�序不仅包括屏幕保护�E�序和内存驻留程序（比如某些杀毒程序）�Q�这些程序都有可能在数据��从��盘转移到刻录机中光盘上的紧要关��_��来与��d��软�g争夺有限的系�l�资源，从而媄响数据流的正�怼�输而引发缓存器�Ơ蝲�{�问题，��D��ȝ��p�|�?

　　c.��Z��么��用质量可靠的CD-R盘片�Q?

　　�{�：CD-R�I�白盘片按反��层材料的不同可分绿盘、金盘、蓝盘三大类。这三种盘片�q�没有明昄��优劣差别。从�Ҏ(gu��)��上来说�Q�绿盘具有较好的兼容性，另外��h��很便宜；蓝盘在写入和��d��数据时有较高的准��性；金盘有较好的抗光性。关键的是，分别试刻不同�c�d��和品牌的盘片�Q�从中找出最适合你的��d��机的那几�U�。　　

　　��x��Q�两�U�不同类型的�?sh��)子相册的制作方法就介绍完毕�Q�预��你早日制作��q��_��?sh��)子相册�Q?/p>

konhon 优华 2007-03-28 08:11 发表评论

使用htmlparser获取sohu的天气预�?

konhon 优华 — Thu, 08 Mar 2007 11:56:00 GMT

首先�Q�我们新��Z��个类�Q�存攑֤�气信�?br />
/*
* Created on 2005-3-8
*
* To change the template for this generated file go to
* Window>Preferences>Java>Code Generation>Code and Comments
*/
package org.exoplatform.portlets.chinaweather.component;

/**
* @author Administrator
*
* To change the template for this generated type comment go to
* Window>Preferences>Java>Code Generation>Code and Comments
*/
public class Weather {
private String city;
private String state;
private String temperature;
private String time;
private String wind;
private String windpower;
private long UpdateTime;

/**
  * @return
   */
public String getTemperature() {
   return temperature;
}

/**
  * @return
   */
public String getTime() {
   return time;
}

/**
  * @return
   */
public String getWind() {
   return wind;
}

/**
  * @return
   */
public String getWindpower() {
   return windpower;
}

/**
  * @param string
   */
public void setTemperature(String string) {
  temperature = string;
}

/**
  * @param string
   */
public void setTime(String string) {
  time = string;
}

/**
  * @param string
   */
public void setWind(String string) {
  wind = string;
}

/**
  * @param string
   */
public void setWindpower(String string) {
  windpower = string;
}

/**
  * @return
   */
public long getUpdateTime() {
   return UpdateTime;
}

/**
  * @param l
   */
public void setUpdateTime( long l) {
  UpdateTime = l;
}

/**
  * @return
   */
public String getState() {
   return state;
}

/**
  * @param string
   */
public void setState(String string) {
  state = string;
}

/**
  * @return
   */
public String getCity() {
   return city;
}

/**
  * @param string
   */
public void setCity(String string) {
  city = string;
}

}

具体的解析代码�ؓ:

private Weather parserWeather() throws Exception {
  Weather w = new Weather();
   try {

    // Parser parser =
    // new Parser("file: // localhost/I:/projects/query.html");
   Parser parser =
     new Parser( " http://weather.news.sohu.com/query.php?city=镇江 " );

   parser.setEncoding( " GBK " );
   Node nodes[] = parser.extractAllNodesThatAre(TableTag. class );

   TableTag table = (TableTag) nodes[ 3 ];
    // temperature
   StringNode[] stringNodes = table.digupStringNode( " 镇江 " );
   StringNode name = stringNodes[ 0 ];
   w.setCity(name.toPlainTextString());
   CompositeTag td = (CompositeTag) name.getParent();
   CompositeTag tr = (CompositeTag) td.getParent();
    int columnNo = tr.findPositionOf(td);
   TableColumn nextColumn = (TableColumn) tr.childAt( 5 );
   Node expectedName = nextColumn.childAt( 0 );
   Node expectedName2 = nextColumn.childAt( 2 );
    // System.out.println(expectedName.getText());
    // System.out.println(expectedName2.getText());
   w.setState(expectedName.getText());
   w.setTemperature(expectedName2.getText());
    // time
   stringNodes = table.digupStringNode( " 旉�� " );
   name = stringNodes[ 0 ];
    // System.out.println(name.toPlainTextString());

   String time =
    name
     .toPlainTextString()
     .substring( 4 , name.toPlainTextString().length())
     .trim();
    // System.out.println(time);
   w.setTime(time);
    // wind
   stringNodes = table.digupStringNode( " 风向 " );
   name = stringNodes[ 0 ];
    // System.out.println(name.toPlainTextString());

   String wind =
    name
     .toPlainTextString()
     .substring( 4 , name.toPlainTextString().length())
     .trim();
    // System.out.println(wind);
   w.setWind(wind);
    // wind power
   stringNodes = table.digupStringNode( " 风力 " );
   name = stringNodes[ 0 ];
    // System.out.println(name.toPlainTextString());

   String windpower =
    name
     .toPlainTextString()
     .substring( 4 , name.toPlainTextString().length())
     .trim();
    // System.out.println(windpower);
   w.setWindpower(windpower);

   w.setUpdateTime(System.currentTimeMillis());

  } catch (ParserException e) {

   e.printStackTrace();
  }
   return w;
}

解析出来的代码必��d��~�存处理�Q?br />
private static long TIME_TO_LIVE = 1000 * 60 * 60 * 12 ;

private Weather loadWeather() throws Exception {
  Weather weather = weather = (Weather) cache_.get( " chinaweather " );
   long currentTime = System.currentTimeMillis();
   if (weather != null
    && currentTime < (weather.getUpdateTime() + TIME_TO_LIVE)) {
   cache_.remove( " chinaweather " );
   weather = null ;
  }

   if (weather == null ) {
    synchronized (cache_) {
    weather = parserWeather();
    cache_.put( " chinaweather " , weather);
   }
  }

   return weather;
}

konhon 优华 2007-03-08 19:56 发表评论

利用htmlparser抓取�|�页内容(一)

konhon 优华 — Thu, 08 Mar 2007 11:50:00 GMT

import org.htmlparser.Node;
import org.htmlparser.NodeFilter;
import org.htmlparser.Parser;
import org.htmlparser.filters.TagNameFilter;
import org.htmlparser.tags.TableTag;
import org.htmlparser.util.NodeList;

/**
*

* 标题:

* 功能概要:

* 版权: cityyouth.cn (c) 2005

* 公司:上�v城市青年�|��?lt;br>
* 创徏旉��:2005-12-21

* 修改旉��:

* 修改原因�Q?br /> *
* @author 张伟
* @version 1.0
*/
public class TestYahoo {
     public static void testHtml() {
         try {
            String sCurrentLine;
            String sTotalString;
            sCurrentLine = "" ;
            sTotalString = "" ;
            java.io.InputStream l_urlStream;
            java.net.URL l_url = new java.net.URL(
                     " http://sports.sina.com.cn/iframe/nba/live/ " );
            java.net.HttpURLConnection l_connection = (java.net.HttpURLConnection) l_url
                    .openConnection();
            l_connection.connect();
            l_urlStream = l_connection.getInputStream();
            java.io.BufferedReader l_reader = new java.io.BufferedReader(
                     new java.io.InputStreamReader(l_urlStream));
             while ((sCurrentLine = l_reader.readLine()) != null ) {
                sTotalString += sCurrentLine;
            }
            System.out.println(sTotalString);

            System.out.println( " ==================== " );
            String testText = extractText(sTotalString);
            System.out.println(testText);
        } catch (Exception e) {
            e.printStackTrace();
        }

    }

     /**
     * 抽取�U�文本信�?br />     *
     * @param inputHtml
     * @return
      */
     public static String extractText(String inputHtml) throws Exception {
        StringBuffer text = new StringBuffer();

        Parser parser = Parser.createParser( new String(inputHtml.getBytes(),
                 " 8859_1 " ), " 8859-1 " );
         // 遍历所有的节点
        NodeList nodes = parser.extractAllNodesThatMatch( new NodeFilter() {
             public boolean accept(Node node) {
                 return true ;
            }
        });
        Node node = nodes.elementAt( 0 );
        text.append( new String(node.toPlainTextString().getBytes( " 8859_1 " )));
         return text.toString();
    }

     /**
     * ��d��文�g的方式来分析内容. filePath也可以是一个Url.
     *
     * @param resource
     *            文�g/Url
      */
     public static void test5(String resource) throws Exception {
        Parser myParser = new Parser(resource);

         // 讄��~�码
        myParser.setEncoding( " GBK " );
        String filterStr = " table " ;
        NodeFilter filter = new TagNameFilter(filterStr);
        NodeList nodeList = myParser.extractAllNodesThatMatch(filter);
        TableTag tabletag = (TableTag) nodeList.elementAt( 11 );

            System.out.println(tabletag.toHtml());

            System.out.println( " ============== " );

    }

     /*
     * public static void main(String[] args) { TestYahoo testYahoo = new
     * TestYahoo(); testYahoo.testHtml(); }
      */
     public static void main(String[] args) throws Exception {
        test5( " http://sports.yahoo.com/nba/scoreboard " );
    }
}

konhon 优华 2007-03-08 19:50 发表评论

采用Jakarta的HttpClient API模拟客户端GET和POST提交

konhon 优华 — Thu, 08 Mar 2007 02:51:00 GMT
     摘要: 最�q�搞一个扣�|�页内容的SessionBean�Q�需要模拟客��L��post提交�Q�然后得到servlet�q�回的结果。采用Jakarta的HttpClient API解决�?HttpClient扩展和增��Z��标准java.net包，是一个内容广泛的代码库，功能极其丰富�Q�能够构造出各种使用HTTP协议的分布式应用�Q�或者也可以嵌入到现有应用，为应用增加访问HTTP协议的能�? 要求�Q?�Q�CLASSPATH中有...  阅读全文

konhon 优华 2007-03-08 10:51 发表评论

用JAVA模拟POST发送数�?

konhon 优华 — Thu, 08 Mar 2007 01:14:00 GMT

服务�?
1.jsp

客户�?
首先创徏一个到服务器http的请�?br />HttpRequest request = new HttpRequest("http://服务�?1.jsp");
�W�一�ơ��用的是GET方式
request.setMethod("GET");
紧接着�q�行一些请求的属性设�|?br />request.setRequestHeader("Cache-Control", "no-cache");
�q�里保持�q�接�Q�因为后面还要发送数据到服务器呢
request.setRequestHeader("Connection", "Keep-Alive");
下面是一些无关紧要的属性设�|�了�?br />request.setRequestHeader("Accept", "image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*");
request.setRequestHeader("Accept-Encoding", "gzip, deflate");
request.setRequestHeader("Accept-Language", "en-au");
request.setRequestHeader("Referer", "http://服务�?1.jsp");
request.setRequestHeader("User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; .NET CLR 1.0.3215; .NET CLR 1.0.3705)");
构造好了连接请求，然后�q�接
request.connect();
紧接着提取Cookie��|��在后文的post中可以用到�?br />String strCookie = request.getResponseHeader("Set-Cookie");
strCookie = strCookie.substring(0,strCookie.indexOf(";"));
下面通过循环查找�Q�提取__VIEWSTATE的�?br />for ( int i = 0; i < nlist.getLength(); i++) {
node = nlist.item(i);
strName = getNodeAttributeValue(node,"name");
if ( strName.equals("__VIEWSTATE") ) {
strValue = getNodeAttributeValue(node,"value");
break;
}
}
往服务器组�l�发送数�?br />DataOutputStream dos = new DataOutputStream(request.getOutputStream());
dos.writeBytes("-----------------------------"+strBoundary);//�q�是每个要被发送数据间的间�?br />dos.writeBytes(" Content-Disposition: form-data; name="__VIEWSTATE"");
dos.writeBytes(" "+strValue);
dos.writeBytes(" -----------------------------"+strBoundary);
�q�里面是发送文件的部分
dos.writeBytes(" Content-Disposition: form-data; name="uploadfile1"; filename="" + strFileName + """);
dos.writeBytes(" Content-Type: text/xml");
dos.writeBytes(" ");
dos.writeBytes(new String(data));
dos.writeBytes(" -----------------------------"+strBoundary);
dos.writeBytes(" Content-Disposition: form-data; name="Button1"");
dos.writeBytes(" 上传");
dos.writeBytes(" -----------------------------"+strBoundary+"--");
dos.writeBytes(" ");
dos.close();

konhon 优华 2007-03-08 09:14 发表评论

文�g的所有操�?

konhon 优华 — Tue, 30 Jan 2007 11:25:00 GMT
     摘要: 2 /**   3  * //FileOperate.java  4  * 文�g的各�U�操作 �?  * 杨彩 http://blog.sina.com.cn/m/yangcai  6  * 文�g操作 1.0  7  */   8    9 //package common;  10   11 import java.io.*;  12   13 public class FileOperate 1...  阅读全文

konhon 优华 2007-01-30 19:25 发表评论

Hibernate 深入研究�?Criteria

konhon 优华 — Sun, 17 Dec 2006 08:18:00 GMT
最�q�在��目中��?/font> Spring �?/span> Hibernate �q�行开发，有感�?/span> Criteria 比较好用�Q�在查询�Ҏ(gu��)��设计上可以灵�zȝ��Ҏ(gu��)�� Criteria 的特�Ҏ(gu��)��方便地进行查询条件的�l�装。所以现在对 Hibernate �?/span> Criteria 深入研究一下。�?/span> Hibernate Reference 》及�|�上其它一些资料对 Criteria 已经做了很多介绍。本文主要是�?/span> Criteria 的结构入手来�q�行分析�?/span>
       如图 1 �?/span> Hibernate 设计�?/span> CriteriaSpecification 作�ؓ Criteria 的顶�U�接口，其下面提供了 Criteria �?/span> DetachedCriteria �?/span>

Criteria �?/span> DetachedCriteria 的主要区别在于创建的形式不一��P�� Criteria 是在�U�的�Q�所以它是由 Hibernate Session �q�行创徏的；�?/span> DetachedCriteria 是离�U�的�Q�创建时无需 Session �Q?/span> DetachedCriteria 提供�?/span> 4 个静态方�?/span> forClass(Class) �?/span> forEntityName(Name) �q�行 DetachedCriteria 实例的创建�?/span> Spring 的框架提供了

getHibernateTemplate().findByCriteria(detachedCriteria) �Ҏ(gu��)��可以很方便地�Ҏ(gu��)��

DetachedCriteria 来返回查询结果�?/span>

如图 1 �Q?/span> Criteria �?/span> DetachedCriteria 均可使用 Criterion �?/span> Projection 讄��查询条�g。可以设�|?/span> FetchMode( 联合查询抓取的模�?/span> ) �Q�设�|�排序方式。对�?/span> Criteria �q�可以设�|?/span> FlushModel �Q�冲�?/span> Session 的方式）�?/span> LockMode �Q�数据库锁模式）�?/span>

下面��对 Criterion �?/span> Projection �q�行详细说明�?/span>



�?/span> 1

       Criterion �?/span> Criteria 的查询条件�?/span>

Criteria 提供�?/span> add(Criterion criterion) �Ҏ(gu��)��来添加查询条件。图 2 �?/span> Criterion 的结构图�?/span> Criterion 接口的主要实现包括： Example �?/span> Junction �?/span> SimpleExpression 。�?/span> Junction 的实际��用是它的两个子类 conjunction �?/span> disjunction �Q�分别是使用 AND �?/span> OR 操作�W�进行来联结查询条�g集合�?/span>

Criterion 的实例可以通过 Restrictions 工具�c�L��创徏�Q?/span> Restrictions 提供了大量的静态方法，�?/span> eq �Q�等于）�?/span> ge �Q�大于等于）�?/span> between �{�来�Ҏ(gu��)��的创�?/span> Criterion 查询条�g

�Q?/span> SimpleExpression 实例�Q�。除此之外， Restrictions �q�提供了�Ҏ(gu��)��来创�?/span> conjunction �?/span> disjunction 实例�Q�通过往该实例的 add(Criteria) �Ҏ(gu��)��来增加查询条件�Ş成一个查询条仉��合�?/span>

至于 Example 的创建有所不同�Q?/span> Example 本��n提供了一个静态方�?/span> create(Object entity) �Q�即�Ҏ(gu��)��一个对象（实际使用中一般是映射到数据库的对象）来创建。然后可以设�|�一些过滤条�Ӟ��

Example exampleUser =Example.create(u)

.ignoreCase() // 忽略大小�?/span>

.enableLike(MatchMode.ANYWHERE);

// �?/span> String �c�d��的属性，无论在那里值在那里都匹配。相当于 %value%

�?/span> 2



Project 主要是让 Criteria 能够�q�行报表查询�Q��ƈ可以实现分组�?/span> Project 主要�?/span> SimpleProjection �?/span> ProjectionList �?/span> Property 三个实现。其�?/span> SimpleProjection �?/span> ProjectionList 的实例化是由内徏�?/span> Projections 来完成，如提供的 avg �?/span> count �?/span> max �?/span> min �?/span> sum 可以让开发者很�Ҏ(gu��)��Ҏ(gu��)��个字�D�进行统计查询�?/span>

       Property 是对某个字段�q�行查询条�g的设�|�，如通过

      Porperty.forName(“color�?.in(new String[]{“black�?”red�?”write”}); 则可以创��Z��?/span> Project 实例。通过 criteria �?/span> add(Project) �Ҏ(gu��)��加入到查询条件中厅R�?/span>

�?/span> 3



       使用 Criteria �q�行查询�Q�主要要清晰的是 Hibernate 提供了那些类和方法来满��开发中查询条�g的创建和�l�装�Q�其�l�构层次如何。这样��用�v来便可得心应手�?/span>

konhon 优华 2006-12-17 16:18 发表评论