求助关于midas 李维有一本书不错,看看就OK了ePing 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 李维<<Delphi 5.x 分布式多层应用系统篇>>机械工业出版社 Delphi Demoor see http://forum.vclxx.org 源码没有,不过可以谈一下经验:Delphi5中Midas控件共有7个,我去年作税局浏览器查询时主要用了三个:1.应用程序服务器端:DataSetProvider主要用于和后台数据库连接,你可以建立一个远程数据模块(文件new里面有),在Remote Datamodue(远程数据模块)中放一个AdoConnection和返回结果的记录集(例如AdoQuery1),然后放一个DataSetProvider,并设置其DataSet属性为AdoQuery1,然后新建一些服务,并将处理结果的数据放到AdoQuery1中,作完后,编译后运行一次,系统会自动注册该应用程序服务器!2.客户端:使用SocketConnection(也可以用DcomConnection)和ClientDataSet,设置SocketConnection的Server属性,系统会自动监测到刚才注册的应用程序服务器,然后设置对应服务器的主机名,可以是ip地址,也可以是机器名,并设置其Connected属性,看是否连接上,然后设置ClientDataset的RemoteServer和ProviderName,系统会自动监测到应用程序服务器上的DatasetProvider控件名。下面举一个调用应用程序服务器的例子:procedure TForm1.Button1Click(Sender: TObject);begin self.SocketConnection1.Open; try self.SocketConnection1.AppServer.appService(Para);调用应用程序服务器上设计的服务名和参数 self.ClientDataSet1.Open;//将值取到ClientDataset中 except Application.MessageBox('服务名或参数集错误,请检查!','异常错误',16) end;end;压箱货都给你了,希望能给你帮助! 我看了一些demo,但数据的传递过程和修改删除我还不大懂 经过一段时间的研究,我现在基本了解了midas的基本原理,我想我会很快从两层结构过渡到多层体系结构,李维的书我非常想买,可我还没找到又卖的。谢谢大家对我的支持,以后又经验大家多交流! delphi WaveAudio控件的使用 关于存储在SQL SERVER中的图片问题。。。。 Delphi中如何写动态变量? 请问Delphi7更新现在到Update几了? 如何响应鼠标选中信息的事件,come in please!!! 找了好久都没找到的问题???????????? 2个TFileStream如何同时打开同一个文件 什么是数据库引擎? 我想弄个英文辞典之类的软件,哪里有字典库可以借用一下的? 如何当鼠标放置在BUTTON控件上时,改变Button控件的外观? 关于SQL的问题 50分求购清空收藏夹和临时文件夹的源程序!!!!!
机械工业出版社
or
see http://forum.vclxx.org
Delphi5中Midas控件共有7个,我去年作税局浏览器查询时主要用了三个:
1.应用程序服务器端:DataSetProvider主要用于和后台数据库连接,你可以建立一个远程数据模块(文件new里面有),在Remote Datamodue(远程数据模块)中放一个AdoConnection和返回结果的记录集(例如AdoQuery1),然后放一个DataSetProvider,并设置其DataSet属性为AdoQuery1,然后新建一些服务,并将处理结果的数据放到AdoQuery1中,作完后,编译后运行一次,系统会自动注册该应用程序服务器!
2.客户端:使用SocketConnection(也可以用DcomConnection)和ClientDataSet,设置SocketConnection的Server属性,系统会自动监测到刚才注册的应用程序服务器,然后设置对应服务器的主机名,可以是ip地址,也可以是机器名,并设置其Connected属性,看是否连接上,然后设置ClientDataset的RemoteServer和ProviderName,系统会自动监测到应用程序服务器上的DatasetProvider控件名。下面举一个调用应用程序服务器的例子:
procedure TForm1.Button1Click(Sender: TObject);
begin
self.SocketConnection1.Open;
try
self.SocketConnection1.AppServer.appService(Para);调用应用程序服务器上设计的服务名和参数
self.ClientDataSet1.Open;//将值取到ClientDataset中
except
Application.MessageBox('服务名或参数集错误,请检查!','异常错误',16)
end;
end;
压箱货都给你了,希望能给你帮助!
体系结构,李维的书我非常想买,可我还没找到又卖的。谢谢大家对我的支持,以后又经验大家多交流!