Imports System.Runtime.InteropServices
Imports System.Text
Imports System.IO
Imports Aras.IOM
Public Class CommonMethod
#Region " 内容方法"
''' <summary>
''' 获取ini值
''' </summary>
''' <param name="section"></param>
''' <param name="key"></param>
''' <param name="def"></param>
''' <param name="retVal"></param>
''' <param name="size"></param>
''' <param name="filePath"></param>
''' <returns></returns>
''' <remarks></remarks>
<DllImport("kernel32")> Private Shared Function GetPrivateProfileString(ByVal section As String, ByVal key As String, ByVal def As String, ByVal retVal As StringBuilder, ByVal size As Integer, ByVal filePath As String) As Integer
End Function
''' <summary>
''' 写ini值
''' </summary>
''' <param name="section"></param>
''' <param name="value"></param>
''' <param name="key"></param>
''' <param name="filePath"></param>
''' <returns></returns>
''' <remarks></remarks>
<DllImport("kernel32")> Private Shared Function WritePrivateProfileString(ByVal section As String, ByVal value As String, ByVal key As String, ByVal filePath As String) As Boolean
End Function
#End Region
#Region " 外部方法"
''' <summary>
''' 读取INI文件
''' </summary>
''' <param name="section">节点名称</param>
''' <param name="key">关键字</param>
''' <param name="path">文件路径</param>
''' <returns>返回值</returns>
''' <remarks></remarks>
Public Function IniReadValue(ByVal section As String, ByVal key As String, ByVal path As String) As String
Dim temp As StringBuilder = New StringBuilder(255)
GetPrivateProfileString(section, key, "", temp, 255, path)
Return temp.ToString()
End Function
''' <summary>
''' 写入INI文件
''' </summary>
''' <param name="section">节点名称</param>
''' <param name="key">关键字</param>
''' <param name="value">写入值</param>
''' <param name="path">文件路径</param>
''' <returns>返回值</returns>
''' <remarks></remarks>
Public Function IniSetValue(ByVal section As String, ByVal key As String, ByVal value As String, ByVal path As String) As Boolean
Dim IsSuccess As Boolean = WritePrivateProfileString(section, key, value, path)
Return IsSuccess
End Function
''' <summary>
''' 读取文件指定行数据
''' </summary>
''' <param name="Path">文件路径</param>
''' <param name="LineItm">指定行数</param>
''' <returns>返回值，超出索引返回最后一行值</returns>
''' <remarks></remarks>
Public Function ReadValueByLine(ByVal Path As String, ByVal LineItm As Integer) As String
Dim F3 As StreamReader = Nothing, StrReturn As String = Nothing
Dim i As Integer = 0
If LineItm < 1 Then Return StrReturn
F3 = New StreamReader(Path, Encoding.Default)
While Not F3.EndOfStream
StrReturn = F3.ReadLine()
i = i + 1
If i = LineItm Then
Exit While
End If
End While
F3.Close()
F3.Dispose()
Return StrReturn
End Function
''' <summary>
''' 登入Aras
''' </summary>
''' <param name="Url">链接地址</param>
''' <param name="DB">数据库</param>
''' <param name="Account">帐号</param>
''' <param name="Password">密码</param>
''' <returns>返回Innovator对象</returns>
''' <remarks></remarks>
Public Function LoginAras(ByVal Url As String, ByVal DB As String, ByVal Account As String, ByVal Password As String, ByRef strError As String) As Innovator
Dim Conn As HttpServerConnection = Nothing
Dim Result As Item, Inn As Innovator = Nothing, startIndex As Integer
Try
Conn = IomFactory.CreateHttpServerConnection(Url, DB, Account, Password)
If Conn Is Nothing Then Return Nothing
Result = Conn.Login()
If Result.isError() Then
If Not Conn Is Nothing Then Conn.Logout()
strError = Result.getErrorString()
startIndex = (strError.IndexOf(":") + 1)
If startIndex > 0 Then strError = strError.Substring(startIndex)
If strError.Contains("Authentication") Then strError = "Invalid user or password" : Return Nothing
If strError.Contains("Database") Then strError = "Database not available" : Return Nothing
Else
Inn = Result.getInnovator()
End If
Catch ex As Exception
strError = ex.Message
Return Nothing
End Try
Return Inn
End Function
''' <summary>
''' 验证是否成功登入 Aras
''' </summary>
''' <param name="Url">地址</param>
''' <param name="DB">数据库</param>
''' <param name="Account">帐号</param>
''' <param name="Password">密码</param>
''' <returns>返回布尔值</returns>
''' <remarks></remarks>
Public Function VerifyLoginAras(ByVal Url As String, ByVal DB As String, ByVal Account As String, ByVal Password As String) As Boolean
Dim Conn As HttpServerConnection = Nothing
Dim Result As Item, Inn As Innovator = Nothing, IsSunccess As Boolean = False
Try
Conn = IomFactory.CreateHttpServerConnection(Url, DB, Account, Password)
If Conn Is Nothing Then Return IsSunccess
Result = Conn.Login()
If Result.isError() Then
If Not Conn Is Nothing Then Conn.Logout()
Return IsSunccess
Else
Inn = Result.getInnovator()
If Not Inn Is Nothing Then IsSunccess = True
End If
Catch ex As Exception
IsSunccess = False
End Try
Return IsSunccess
End Function
''' <summary>
''' 写Log文件LOG格式 [年-月-日 时:分:秒] | 错误原因 | 错误状态
''' </summary>
''' <param name="Path">日志文件路径</param>
''' <param name="Strings">错误原因</param>
''' <param name="dt">时间</param>
''' <param name="State">状态</param>
''' <remarks></remarks>
Public Sub WriteLogFile(ByVal Path As String, ByVal Strings As String, ByVal dt As DateTime, ByVal State As String)
Dim FilePath As String, f As FileStream, f2 As StreamWriter
FilePath = New System.IO.FileInfo(System.Reflection.Assembly.GetExecutingAssembly().Location).Directory.FullName
'如果不存在就创建file文件夹
If Not Directory.Exists(FilePath & "log") Then Directory.CreateDirectory(FilePath & "log")
If Not File.Exists(Path) Then
f = File.Create(Path)
f.Close()
f.Dispose()
End If
f2 = New StreamWriter(Path, True, Encoding.UTF8)
f2.WriteLine("[" + dt.ToString("yyyy-MM-dd HH:mm:ss") + "]" + " | " + Strings + " | " + State)
f2.Close()
f2.Dispose()
End Sub
''' <summary>
''' 转换特殊字符
''' </summary>
''' <param name="value"></param>
''' <returns></returns>
''' <remarks></remarks>
Public Function TransString(ByVal value As String) As String
If String.IsNullOrEmpty(value) Then Return value
Return value.Trim().Replace("&", "&").Replace("'", "'").Replace("", """)
End Function
#End Region
End Class