Foxtable(狐表)用户栏目专家坐堂 → 外接高拍仪


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

主题:外接高拍仪

帅哥哟,离线,有人找我吗?
rgbjwjb
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:651 积分:6614 威望:0 精华:0 注册:2016/12/27 21:05:00
外接高拍仪  发帖心情 Post By:2023/6/8 10:23:00 [只看该作者]

我在设计的窗口中添加了一个“拍照”按钮,该窗体绑定的表格中有一个“照片”字段,扩展为多图片列;
刚买了台高拍仪用于此项功能,高拍仪相关的sSDK也发来了,驱动也安装了,可以拍照了;
桌面上应添加哪个控件(面板、图片、图片浏览器)?另外我还想请教一下设计思路,谢谢!

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

论坛搜索“高拍仪”

 回到顶部
帅哥哟,离线,有人找我吗?
rgbjwjb
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:651 积分:6614 威望:0 精华:0 注册:2016/12/27 21:05:00
  发帖心情 Post By:2023/6/8 10:59:00 [只看该作者]

c#文件夹下是包括三个CSS,两个markup,一个properities文件夹,一个OBJ 文件夹,一个bin文件夹,没有.DLL类的


 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111374 积分:566934 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/6/8 11:13:00 [只看该作者]

看开发文档说明吧。

 回到顶部
帅哥哟,离线,有人找我吗?
rgbjwjb
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:651 积分:6614 威望:0 精华:0 注册:2016/12/27 21:05:00
  发帖心情 Post By:2023/6/11 21:43:00 [只看该作者]


这是厂家发来的SDK安装后的文件夹,我没看懂,麻烦老师看看后给我提个设计思路,谢谢!链接:https://pan.baidu.com/s/1R0M8iWdq8_Ky07IQPgyzJQ 
提取码:aayw 


 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111374 积分:566934 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/6/11 22:27:00 [只看该作者]

提供的都是C++的东西,我也看不懂。找vb.net或者C#的使用说明

 回到顶部
帅哥哟,离线,有人找我吗?
一丁
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:310 积分:2947 威望:0 精华:0 注册:2017/9/14 8:21:00
  发帖心情 Post By:2023/6/12 9:03:00 [只看该作者]

SDK用不了,可以换一个思路:
1.在“拍摄”按钮中直接调用高拍仪自带的拍摄程序;
2.给高拍仪自带程序拍摄存储文件指定一个目录;
3.监视存储文件目录,如果有新文件存储,则提示是否上传;
4.根据用户选择,将拍摄文件上传。

图片点击可在新窗口打开查看此主题相关图片如下:fja.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2023/6/12 9:08:10编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
rgbjwjb
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:651 积分:6614 威望:0 精华:0 注册:2016/12/27 21:05:00
  发帖心情 Post By:2023/6/12 9:33:00 [只看该作者]

谢谢!能否介绍得更详细点?“拍照”的代码怎么写?“照片”列设置为多图片?请指教,谢谢!

 回到顶部
帅哥哟,离线,有人找我吗?
一丁
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:310 积分:2947 威望:0 精华:0 注册:2017/9/14 8:21:00
  发帖心情 Post By:2023/6/12 9:44:00 [只看该作者]

拍摄需要两个关键参数:
参数1:拍摄所调用的程序及路径;
参数2:监控文件存储路径
因为这两个参数可能会随时变化,故而我把它设置成本地系统选项方式。


图片点击可在新窗口打开查看此主题相关图片如下:ffff.png
图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
一丁
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:310 积分:2947 威望:0 精华:0 注册:2017/9/14 8:21:00
  发帖心情 Post By:2023/6/12 9:48:00 [只看该作者]

“拍摄上传”按钮代码传上来供你参考(我的附件是FTP远程存储,存储在远程服务器的)


If Tables("本地选项").Current("监控模式") = True Then '文件增量变动监控
    PS_Files.clear
    With FileWatcher
        .Path = Tables("本地选项").Current("监控路径")
        .Delay = Tables("本地选项").Current("监控间隔")
        .Enabled = True
    End With
End If
Dim Proc As New Process
Proc.File = Tables("本地选项").Current("拍摄程序")
Proc.Start()
Proc.WaitForExit() '等带拍照程序退出.
Dim dtName As String = Vars("cuTable") '当前表
Dim ftpDir As String = Vars("_FTP_DIR") 
ftpDir = ftpDir.Replace("/","\")
Dim flm As WinForm.FileManager = e.Form.Controls("FileManager1")
Dim ufl As String
If Tables("本地选项").Current("监控模式") = True Then '文件增量变动监控
    FileWatcher.Enabled = False
    Dim Result As DialogResult
    Result = MessageBox.Show("扫描已完成,是否确定上传?","附件拍摄",MessageBoxButtons.YesNo,MessageBoxIcon.Information)
    If Result = DialogResult.No Then
        For Each fl As String In PS_Files
            If  FileSys.FileExists(fl) Then
                FileSys.DeleteFile(fl,2,2)
            End If
        Next
        PS_Files.clear
        Return
    Else
        For Each fl As String In PS_Files
            If  FileSys.FileExists(fl) Then
                Dim ex As String = fl.SubString(fl.LastIndexOf(".") + 1) '获取文件后缀名
                ufl = ftpDir & Format(Date.Now,"yyyyMMdd") & "_" & Rand.NextString(4)  & "." & ex
                If flm.FTPclient.FileExists(ufl) Then '文件存在
                    flm.FTPclient.DeleteFile(ufl)  '删除文件
                End If
                If flm.FTPclient.Upload(fl,ufl) = True Then '上传成功
                    flm.AddFile(ufl)
                    FileSys.DeleteFile(fl,2,2)
                Else
                    MessageBox.Show(ufl & "文件上传失败!")
                End If
            End If
        Next
        PS_Files.clear
    End If
Else
    For Each fl As String In FileSys.GetFiles(Tables("本地选项").Current("监控路径"))
        If  FileSys.FileExists(fl) Then
            Dim ex As String = fl.SubString(fl.LastIndexOf(".") + 1) '获取文件后缀名
            ufl = ftpDir & Format(Date.Now,"yyyyMMdd") & "_" & Rand.NextString(4)  & "." & ex
            If flm.FTPclient.FileExists(ufl) Then '文件存在
                flm.FTPclient.DeleteFile(ufl)  '删除文件
            End If
            If flm.FTPclient.Upload(fl,ufl) = True Then '上传成功
                flm.AddFile(ufl)
                FileSys.DeleteFile(fl,2,2)
            Else
                MessageBox.Show(ufl & "文件上传失败!")
            End If
        End If
    Next
End If
Tables(dtName).save()


我把“附件管理”窗口做成了一个通用窗口,在任何表中,只要需要附件上传、浏览、删除等操作的,都可以直接调用该窗口,方便得很。
最大的好处是如果是网络版软件,不同用户使用不同的扫描硬件(打印机、高拍仪、扫描仪),可以做到互不干扰。
[此贴子已经被作者于2023/6/12 9:59:10编辑过]

 回到顶部
总数 14 1 2 下一页