[VB.NET]remoting客户和服务器共享成员或接口的示例

VB 前端之家
前端之家收集整理的这篇文章主要介绍了[VB.NET]remoting客户和服务器共享成员或接口的示例，前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。
  1. 在.NET下的remoting使用里面，很多的书上都是使用了客户和服务器端都是使用一样共享成员或接口的示例来做说明。而且在实际的使用中有不小的问题。
  4. [共享代码]
  5. share.vb
  6. ImportsSystem.windows.forms
  8. PublicInterfaceIconnect'客户端和服务器端同时共享使用一个接口
  9. FunctiongetName()AsString
  10. EndInterface
  12. PublicClassapp
  13. PublicSharedReadOnlyPropertyappPath()AsString'提供一些应用程序常用路径将会在服务安装的Get'过程中被使用
  14. ReturnApplication.StartupPath
  15. EndGet
  16. EndProperty
  18. PublicSharedReadOnlyPropertywinPath()AsString
  19. Get
  20. ReturnSystem.Environment.GetEnvironmentVariable("windir")
  21. EndGet
  22. EndProperty
  23. EndClass
  25. [服务器端]'共俩个文件，第一个是服务文件，第二个是服务调用的功能实现文件
  26. service1.vb'引用了System.Runtime.Remoting.dll文件，这是服务
  27. ImportsSystem.ServiceProcess
  28. ImportsSystem.Runtime
  29. ImportsSystem.Runtime.Remoting
  30. ImportsSystem.Runtime.Remoting.Channels
  32. PublicClassService1
  33. InheritsSystem.ServiceProcess.ServiceBase
  35. #Region"组件设计器生成的代码"
  37. PublicSubNew()
  38. MyBase.New()
  40. '该调用是组件设计器所必需的。
  41. InitializeComponent()
  43. '在InitializeComponent()调用之后添加任何初始化
  45. EndSub
  47. 'UserService重写dispose以清理组件列表。
  48. ProtectedOverloadsOverridesSubDispose(ByValdisposingAsBoolean)
  49. IfdisposingThen
  50. IfNot(componentsIsNothing)Then
  51. components.Dispose()
  52. EndIf
  53. EndIf
  54. MyBase.Dispose(disposing)
  55. EndSub
  57. '进程的主入口点
  58. <MTAThread()>_
  59. SharedSubMain()
  60. DimServicesToRun()AsSystem.ServiceProcess.ServiceBase
  62. '在同一进程中可以运行不止一个NT服务。若要将
  63. '另一个服务添加到此进程，请更改下行以
  64. '创建另一个服务对象。例如，
  65. '
  66. 'ServicesToRun=NewSystem.ServiceProcess.ServiceBase(){NewService1,NewMySecondUserService}
  67. '
  68. ServicesToRun=NewSystem.ServiceProcess.ServiceBase(){NewService1}
  70. System.ServiceProcess.ServiceBase.Run(ServicesToRun)
  71. EndSub
  73. '组件设计器所必需的
  74. PrivatecomponentsAsSystem.ComponentModel.IContainer
  76. '注意:以下过程是组件设计器所必需的
  77. '可以使用组件设计器修改此过程。
  78. '不要使用代码编辑器修改它。
  79. <System.Diagnostics.DebuggerStepThrough()>PrivateSubInitializeComponent()
  80. '
  81. 'Service1
  82. '
  83. Me.ServiceName="Server"
  85. EndSub
  87. #EndRegion
  89. ProtectedOverridesSubOnStart(ByValargs()AsString)
  90. '在此处添加启动服务的代码。此方法应设置具体的操作
  91. '以便服务可以执行它的工作。
  92. Try
  93. DimchAsNewTcp.TcpChannel(8212)'监听端口是在8212，你可以修改该端口
  94. ChannelServices.RegisterChannel(ch)'注册端口
  95. Remoting.RemotingConfiguration.RegisterWellKnownServiceType(Type.GetType("serviceShare.serviceShare,serviceShare",True,True),"server",WellKnownObjectMode.Singleton)
  97. 'Type.GetType中的String是需要引用的服务所在的位置，"serviceShare.serviceShare,serviceShare"中前面俩个serviceShare是指服务所在的程序集中的要做服务的类。逗号后面的serviceShare是指该程序集位于的文件。后面的第三个参数：True就是表示要搜索该文件时不区分大小写。"server"表示服务的名称。
  99. CatchexAsException
  100. EventLog.WriteEntry("日志"&ex.Message)
  101. EndTry
  103. EndSub
  105. ProtectedOverridesSubOnStop()
  106. '在此处添加代码以执行停止服务所需的关闭操作。
  107. Try
  108. DimchAsNewTcp.TcpChannel(8212)
  109. ChannelServices.UnregisterChannel(ch)
  110. CatchexAsException
  111. EventLog.WriteEntry("日志"&ex.Message)
  112. EndTry
  114. EndSub
  116. EndClass
  118. serviceShare.vb'该文件为接口的实现文件，可以修改这个文件获得自己需要的服务，可以在这里引用　'其他DLL中的方法
  119. PublicClassserviceShare
  120. InheritsMarshalByRefObject
  121. Implementsshare.Iconnect
  122. PrivatesharediAsInt32=0
  124. PublicFunctiongetName()AsStringImplementsshare.Iconnect.getName
  125. i=i+1
  126. Return"fromServer"&i
  127. EndFunction
  128. EndClass
  130. [客户端]
  131. form1.vb
  132. ImportsSystem
  133. ImportsSystem.Runtime
  134. ImportsSystem.Runtime.Remoting
  135. ImportsSystem.Runtime.Remoting.Channels
  137. PublicClassForm1
  138. InheritsSystem.Windows.Forms.Form
  139. PrivatechAsTcp.TcpChannel
  141. #Region"Windows窗体设计器生成的代码"
  143. PublicSubNew()
  144. MyBase.New()
  146. '该调用是Windows窗体设计器所必需的。
  147. InitializeComponent()
  149. '在InitializeComponent()调用之后添加任何初始化
  151. EndSub
  153. '窗体重写dispose以清理组件列表。
  154. ProtectedOverloadsOverridesSubDispose(ByValdisposingAsBoolean)
  155. IfdisposingThen
  156. IfNot(componentsIsNothing)Then
  157. components.Dispose()
  158. EndIf
  159. EndIf
  160. MyBase.Dispose(disposing)
  161. EndSub
  163. 'Windows窗体设计器所必需的
  164. PrivatecomponentsAsSystem.ComponentModel.IContainer
  166. '注意:以下过程是Windows窗体设计器所必需的
  167. '可以使用Windows窗体设计器修改此过程。
  168. '不要使用代码编辑器修改它。
  169. FriendWithEventsLabel1AsSystem.Windows.Forms.Label
  170. FriendWithEventsButton1AsSystem.Windows.Forms.Button
  171. <System.Diagnostics.DebuggerStepThrough()>PrivateSubInitializeComponent()
  172. Me.Label1=NewSystem.Windows.Forms.Label
  173. Me.Button1=NewSystem.Windows.Forms.Button
  174. Me.SuspendLayout()
  175. '
  176. 'Label1
  177. '
  178. Me.Label1.Location=NewSystem.Drawing.Point(80,50)
  179. Me.Label1.Name="Label1"
  180. Me.Label1.Size=NewSystem.Drawing.Size(125,25)
  181. Me.Label1.TabIndex=0
  182. Me.Label1.Text="Label1"
  183. '
  184. 'Button1
  185. '
  186. Me.Button1.Location=NewSystem.Drawing.Point(105,195)
  187. Me.Button1.Name="Button1"
  188. Me.Button1.Size=NewSystem.Drawing.Size(75,25)
  189. Me.Button1.TabIndex=1
  190. Me.Button1.Text="Button1"
  191. '
  192. 'Form1
  193. '
  194. Me.AutoScaleBaseSize=NewSystem.Drawing.Size(6,14)
  195. Me.ClientSize=NewSystem.Drawing.Size(292,273)
  196. Me.Controls.Add(Me.Button1)
  197. Me.Controls.Add(Me.Label1)
  198. Me.Name="Form1"
  199. Me.Text="Form1"
  200. Me.ResumeLayout(False)
  202. EndSub
  204. #EndRegion
  206. PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
  207. DimserverNameAsString
  208. DimaaAsshare.Iconnect
  209. serverName="tcp://127.0.0.1:8212/server"
  210. aa=CType(Activator.GetObject(Type.GetType("share.Iconnect,share",serverName),share.Iconnect)
  211. '注意这个地方
  212. Label1.Text=aa.getName()
  213. EndSub
  215. PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load
  216. ch=NewTcp.TcpChannel'客户端可以不注册端口
  217. ChannelServices.RegisterChannel(ch)
  218. EndSub
  219. EndClass
  221. [服务安装]
  222. Strart.vb'服务安装
  223. ModuleStrart
  224. SubMain(ByValarg()AsString)
  225. OnErrorResumeNext
  226. #IfDEBUGThen
  227. IfIO.File.Exists("setup.bat")Then'批处理附后面
  228. Shell("setup.bat",True)
  229. EndIf
  230. #EndIf
  231. If(IO.File.Exists("testService.exe"))Then
  232. Shell(share.app.winPath&"/Microsoft.NET/Framework/v1.1.4322/InstallUtil.exe"_
  233. &share.app.appPath&"/testService.exe/LogFile",AppWinStyle.Hide,True)
  234. DimSc2AsNewSystem.ServiceProcess.ServiceController("server")
  235. IfSc2.Status=ServiceProcess.ServiceControllerStatus.StoppedThen
  236. Sc2.Start()
  237. EndIf
  238. EndIf
  239. EndSub
  240. EndModule
  242. [服务卸载]
  243. UnSetup.vb
  244. Modulestrart
  245. SubMain()
  246. OnErrorResumeNext
  247. If(IO.File.Exists("testservice.exe"))Then
  248. DimSc1AsNewSystem.ServiceProcess.ServiceController("server")
  249. IfSc1.Status=ServiceProcess.ServiceControllerStatus.RunningThen
  250. Sc1.Stop()
  252. EndIf
  253. Shell(share.app.winPath&"/Microsoft.NET/Framework/v1.1.4322/InstallUtil.exe/u"_
  254. &share.app.appPath&"/testservice.exe/LogFile",True)
  255. EndIf
  256. EndSub
  257. EndModule
  259. [批处理]
  260. copy../../serviceShare/bin/serviceShare.dll./serviceShare.dll
  261. copy../../test/bin/test.exe./test.exe
  262. copy../../shared/bin/share.dll./share.dll
  263. copy../../UnSetup/bin/UnSetup.exe./UnSetup.exe
  264. copy../../testService/bin/testService.exe./testService.exe
  266. 这样能方便的扩展自己的功能，因为很多书上的代码，使用都是抄微软的，如果程序是分开独立制作，只公布接口的话，安微软的做法就很难成功。
原文链接：https://www.f2er.com/vb/264401.html

猜你在找的VB相关文章

VB Format函数
Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强制返回为文本 --------------...
vb6/ASP FORMAT MM/DD/YYYY
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式，竟然没有好的办法， Format 或者FormatDateTi...
VB.net 捕获项目全局异常
在项目中添加如下代码：新建窗口来显示异常信息。 Namespace My ‘全局错误处理，新的...
实现用VB.Net/(C#)开发K/3 BOS 插件的真正可行方法
转了这一篇文章，原来一直想用C#做k3的插件开发，vb没有C#用的爽呀，这篇文章写与2011年，...
vb，wps，excel 分裂
Sub 分列() ‘以空格为分隔符，连续空格只算1个。对所选中的单元格进行处理 Dim m...
VB.NET MYSQL DataGridView 增删改查（INSERT,SELECT,UPDATE,DELETE）
  Imports MySql.Data.MySqlClient Public Class Form1 ‘ GLOBAL DECLARATIONS ...
VB.NET 使用ADODB連接資料庫滙出到EXCEL
‘導入命名空間 Imports ADODB Imports Microsoft.Office.Interop   Private Sub A1() Di...
vb.net 多线程運用 ping
Imports System.IO Imports System.Threading Imports System.Diagnostics Public Class F...
VB等待进程结束
VB运行EXE程序，并等待其运行结束 参考：https://blog.csdn.net/useway/article/details/5...
vb中去掉string数组的一部分
今天碰到一个问题，登陆的时候，如果不需要验证手机号为空，则不去验证手机号 因为登陆的时...
PHPJavaJava SEPythonC#C&C++RubyVBasp.NetGoPerlnettyDjangoDelphiJsp.NET CoreSpringFlaskSpringbootSpringMVCLuaLaravelMybatisAspGroovyThinkPHPYiiswoole
文件时间pythonm相等性PHP Warning时间问题问题解决pcntl_signal采样点wav模块动态文本调用频率限制对外暴露多个访问请求更新数据表模型结构type()方法比较速度手写体sobel算子保存模型Image类nn.Conv2dpytorch1.0kaggleDCGAN交并比range()用法打印模型反卷积卷积