''' <summary>
''' 打开远程WCF服务. ErpServer/basic
''' </summary>
''' <param name="WCS">WCF服务的客户端代理.</param>
''' <param name="ErrMsg">错误描述.</param>
''' <returns>成功:true 失败:false</returns>
''' <remarks></remarks>
Private Function OpenDBServer(ByRef WCS As ServerSynergyWCF.MethodClient,
Optional ByRef ErrMsg As String = "") As Boolean
Try
Dim readerQuotas As New XmlDictionaryReaderQuotas
readerQuotas.MaxArrayLength = Int32.MaxValue
readerQuotas.MaxStringContentLength = Int32.MaxValue
readerQuotas.MaxBytesPerRead = Int32.MaxValue
readerQuotas.MaxDepth = Int32.MaxValue
readerQuotas.MaxNameTableCharCount = Int32.MaxValue
Dim netbinding As BasicHttpBinding = New BasicHttpBinding()
netbinding.ReaderQuotas = readerQuotas '//消息约束.
netbinding.MaxBufferPoolSize = 64 * 1024 * 1024 '//分配的最大内存量.
netbinding.MaxBufferSize = Int32.MaxValue '//缓冲区的大小.
netbinding.MaxReceivedMessageSize = Int32.MaxValue '//消息大小.
netbinding.TransferMode = TransferMode.Buffered '//通过缓冲处理消息.
netbinding.MaxReceivedMessageSize = Int32.MaxValue '//可接收消息的大小.
netbinding.MessageEncoding = WSMessageEncoding.Text '//传输的编码格式.
'netbinding.ReceiveTimeout = TimeSpan.Parse("00:10:00") '//超时设置为10分钟.
'netbinding.SendTimeout = TimeSpan.Parse("00:10:00") '// 发送超时.
'netbinding.CloseTimeout = TimeSpan.Parse("00:00:30") '// 异常超时.
ErrMsg = ""
WCS = New ServerSynergyWCF.MethodClient(netbinding,
New System.ServiceModel.EndpointAddress(DBSynergyHelper.S_UserInfo.remoteAddress))
Catch ex As Exception
ErrMsg = ex.Message
Return False
End Try
Return True
End Function
----------------
Friend Structure UserInfo
Dim BigUserAUID As Int64 '//用户系统编号
Dim VarUserID As String '//用户编号
Dim BigPeopleAUID As Int64 '//使用者系统编号
Dim VarPeopleID As String '//使用者编号.
Dim VarPeopleName As String '//使用者姓名
Dim VarLoginName As String '//登录用户名
Dim VarLoginPWS As String '//登录密码.
Dim VarUserFaithVag As String
Dim remoteAddress As String '//服务地址.
Dim VarSystemName As String '//系统名称.
Dim VarSysLang As String '//系统语言.
Dim IntContactsTypeID As Int32 '//用户类型.[ 1 本公司 2 客户 3 供应商 ]
Dim UserIP As String '//用户IP.
End Structure