Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教vb.net代码如何转换在狐表中使用？


  共有3809人关注过本帖树形打印复制链接

主题：请教vb.net代码如何转换在狐表中使用？
帅哥哟，离线，有人找我吗？
z769036165
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：760 积分：5430 威望：0 精华：0 注册：2012/10/5 21:53:00 		请教vb.net代码如何转换在狐表中使用？  发帖心情 Post By：2019/10/11 8:50:00 [只看该作者]

Private Const DeviceCodePage As Int32 = 936
Public Sub New()
InitializeComponent()
End Sub
Private Sub buttonClear_Click(ByVal sender As Object, ByVal e As EventArgs)
textBoxRecords.Clear()
End Sub
Private Sub buttonExport_Click(ByVal sender As Object, ByVal e As EventArgs)
Try
    Using Client As FaceId = New FaceId(textBoxDeviceIP.Text, Convert.ToInt32(textBoxDevicePort.Text))
    Dim Answer As String
    Dim ErrorCode As FaceId_ErrorCode = Client.Execute("GetRecord(end_time=""" & DateTime.Now.ToString("yyyy-MM-dd HH:mm:ss") & """)", Answer, DeviceCodePage)
    If ErrorCode = FaceId_ErrorCode.Success Then
        Dim Pattern As String = "\b(time=.+" & vbCrLf & "(?:photo=""[^""]+"")*)"
        Dim matches As MatchCollection = Regex.Matches(Answer, Pattern)
        If matches IsNot Nothing Then
            For Each match As Match In matches
                textBoxRecords.AppendText(match.Groups(1).Value & vbCrLf)
            Next
        End If
    Else
        MessageBox.Show("错误代码:" & ErrorCode.ToString(), "错误", MessageBoxButtons.OK, MessageBoxIcon.[Error])
    End If
End Using
Catch ex As Exception
    MessageBox.Show(ex.Message, "错误", MessageBoxButtons.OK, MessageBoxIcon.[Error])
End Try

[此贴子已经被作者于2019/10/11 9:03:36编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110744 积分：563646 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/10/11 9:35:00 [只看该作者]

放到全局代码

Public Const DeviceCodePage As Int32 = 936

Public Function buttonExport() As String
Dim res As new stringbuilder
Try
    Using Client As 从源代码找到完整命名空间放到这里.FaceId = New 完整命名空间.FaceId(textBoxDeviceIP.Text, Convert.ToInt32(textBoxDevicePort.Text))
    Dim Answer As String
    Dim ErrorCode As 完整命名空间.FaceId_ErrorCode = Client.Execute("GetRecord(end_time=""" & DateTime.Now.ToString("yyyy-MM-dd HH:mm:ss") & """)", Answer, DeviceCodePage)
    If ErrorCode = 完整命名空间.FaceId_ErrorCode.Success Then
        Dim Pattern As String = "\b(time=.+" & vbCrLf & "(?:photo=""[^""]+"")*)"
        Dim matches As object = System.Text.RegularExpressions.Regex.Matches(Answer, Pattern)
        If matches IsNot Nothing Then
            For Each match As object In matches
                res.Appendline(match.Groups(1).Value)
            Next
        End If
    Else
        MessageBox.Show("错误代码:" & ErrorCode.ToString(), "错误", MessageBoxButtons.OK, MessageBoxIcon.[Error])
    End If
End Using
Catch ex As Exception
    MessageBox.Show(ex.Message, "错误", MessageBoxButtons.OK, MessageBoxIcon.[Error])
End Try
Return res.tostring
End Function

调用
msgbox(buttonExport())
 回到顶部
帅哥哟，离线，有人找我吗？
z769036165
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：760 积分：5430 威望：0 精华：0 注册：2012/10/5 21:53:00 		  发帖心情 Post By：2019/10/11 15:15:00 [只看该作者]

谢谢，可以获取考勤数据了，但是能否可以监视考勤设备，如果新考勤数据发生了，可以自动发送到ft中来呢？

 回到顶部
帅哥哟，离线，有人找我吗？
z769036165
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：760 积分：5430 威望：0 精华：0 注册：2012/10/5 21:53:00 		  发帖心情 Post By：2019/10/11 15:17:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:faceid1.txt


考勤的dll，后缀不能上传，改成txt上传的
 回到顶部
帅哥，在线噢！
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110744 积分：563646 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/10/11 15:41:00 [只看该作者]

这个看设备的开发文档，有没有和监控数据有关的接口

 回到顶部
帅哥哟，离线，有人找我吗？
z769036165
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：760 积分：5430 威望：0 精华：0 注册：2012/10/5 21:53:00 		  发帖心情 Post By：2019/10/11 15:43:00 [只看该作者]

http://www.firstsolver.com/wordpress/?p=1118
这个应该可以，就是太多内容看不明白
[此贴子已经被作者于2019/10/11 15:43:47编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110744 积分：563646 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/10/11 15:57:00 [只看该作者]

找厂家要开发文档和.net的开发实例

 回到顶部
帅哥哟，离线，有人找我吗？
z769036165
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：760 积分：5430 威望：0 精华：0 注册：2012/10/5 21:53:00 		  发帖心情 Post By：2019/10/11 23:40:00 [只看该作者]

http://www.firstsolver.com/download/FaceIdSDK/Help-CS-SC/index.html

开发文档连接
  
这个vb方式获取
Private Const DeviceCodePage As Int32 = 936
        Private TcpServer As TcpListenerPlus = Nothing
        Private IsServerRunning As Boolean = False

        Public Sub New()
            InitializeComponent()
        End Sub

        Private Sub buttonSetServerHost_Click(ByVal sender As Object, ByVal e As EventArgs)
            Try

                Using Client As FaceId = New FaceId(textBoxDeviceIP.Text, Convert.ToInt32(textBoxDevicePort.Text))
                    Dim Command As String = "SetServerHost(ip=""" & comboBoxServerIP.Text & """ port=""" + textBoxServerPort.Text & """)"
                    Dim Answer As String

                    If Client.Execute(Command, Answer, DeviceCodePage) = FaceId_ErrorCode.Success Then
                        MessageBox.Show("设置服务器参数成功！", "信息", MessageBoxButtons.OK, MessageBoxIcon.Information)
                    Else
                        MessageBox.Show("设置服务器参数失败！", "错误", MessageBoxButtons.OK, MessageBoxIcon.[Error])
                    End If
                End Using

            Catch ex As Exception
                MessageBox.Show(ex.Message, "错误", MessageBoxButtons.OK, MessageBoxIcon.[Error])
            End Try
        End Sub

        Private Sub buttonClear_Click(ByVal sender As Object, ByVal e As EventArgs)
            textBoxRecords.Clear()
        End Sub

        Private Sub buttonStartListener_Click(ByVal sender As Object, ByVal e As EventArgs)
            If IsServerRunning Then
                TcpServer.[Stop]()
                TcpServer = Nothing
                IsServerRunning = False
                buttonStartListener.Text = "开启侦听"
            Else

                Try
                    TcpServer = New TcpListenerPlus(IPAddress.Parse(comboBoxServerIP.Text), Convert.ToInt32(textBoxServerPort.Text))
                    TcpServer.SecretKey = String.Empty
                    TcpServer.OnServerTaskRequest += AddressOf OnServerTaskProcess
                    TcpServer.StartListenThread(New String() {textBoxDeviceIP.Text}, 0, 10 * 60 * 1000)
                Catch ex As Exception
                    MessageBox.Show(ex.Message, "错误", MessageBoxButtons.OK, MessageBoxIcon.[Error])
                    Return
                End Try

                IsServerRunning = True
                buttonStartListener.Text = "停止侦听"
            End If
        End Sub

        Private Sub OnServerTaskProcess(ByVal sender As Object, ByVal e As EventArgs)
            Dim Stream As NetworkStreamPlus = CType(sender, NetworkStreamPlus)

            While True

                Try
                    Dim Answer As String
                    Stream.Read(Answer, DeviceCodePage)
                    textBoxRecords.Invoke(New Action(Sub()
                                                         textBoxRecords.AppendText(Answer & vbCrLf)
                                                     End Sub))

                    If Answer.StartsWith("PostRecord") Then
                        Stream.Write("Return(result=""success"" postphoto=""false"")", DeviceCodePage)
                    ElseIf Answer.StartsWith("Record") Then
                        Stream.Write("Return(result=""success"")", DeviceCodePage)
                    ElseIf Answer.StartsWith("PostEmployee") Then
                        Stream.Write("Return(result=""success"")", DeviceCodePage)
                    ElseIf Answer.StartsWith("Employee") Then
                        Stream.Write("Return(result=""success"")", DeviceCodePage)
                    ElseIf Answer.StartsWith("Quit") Then
                        Exit While
                    End If

                Catch __unusedSocketException1__ As System.Net.Sockets.SocketException
                    Exit While
                Catch __unusedIOException2__ As System.IO.IOException
                    Exit While
                Catch __unusedObjectDisposedException3__ As System.ObjectDisposedException
                    Exit While
                Catch ex As Exception
                    Dim ErrorMessage As String = "错误信息：" & ex.[GetType]().Name
                    MessageBox.Show(ErrorMessage, "错误", MessageBoxButtons.OK, MessageBoxIcon.[Error])
                End Try
            End While
        End Sub
 回到顶部
帅哥，在线噢！
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110744 积分：563646 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/10/12 8:38:00 [只看该作者]

8楼的代码按照2楼那样改即可。

buttonSetServerHost_Click函数用于设置服务参数
buttonStartListener_Click函数用于启动监听
OnServerTaskProcess函数用于接收监听结果，由于是在子线程里异步接收的，所以不能操作界面和表格，需要把结果直接写入数据库，把下面这段代码

textBoxRecords.Invoke(New Action(Sub()
                 textBoxRecords.AppendText(Answer & vbCrLf)
                 End Sub))

改为保存到数据库即可，监听结果就是变量Answer的内容
 回到顶部
帅哥哟，离线，有人找我吗？
z769036165
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：760 积分：5430 威望：0 精华：0 注册：2012/10/5 21:53:00 		  发帖心情 Post By：2019/10/12 9:50:00 [只看该作者]

Using Client As FaceId = New FaceId(textBoxDeviceIP.Text, Convert.ToInt32(textBoxDevicePort.Text))
                    Dim Command As String = "SetServerHost(ip=""" & comboBoxServerIP.Text & """ port=""" + textBoxServerPort.Text & """)"
                    Dim Answer As String

                    If Client.Execute(Command, Answer, DeviceCodePage) = FaceId_ErrorCode.Success Then
                        MessageBox.Show("设置服务器参数成功！", "信息", MessageBoxButtons.OK, MessageBoxIcon.Information)
                    Else
                        MessageBox.Show("设置服务器参数失败！", "错误", MessageBoxButtons.OK, MessageBoxIcon.[Error])
                    End If
                End Using
就是这一截不知道是怎么回事，设置都是失败
 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06250 秒, 5 次数据查询