Foxtable(狐表)用户栏目专家坐堂 → [求助]如何实现服务器端存放数据库和扫描文件


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

主题:[求助]如何实现服务器端存放数据库和扫描文件

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


加好友 发短信
等级:五尾狐 帖子:1142 积分:8900 威望:0 精华:0 注册:2012/7/10 9:09:00
[求助]如何实现服务器端存放数据库和扫描文件  发帖心情 Post By:2015/2/2 7:54:00 [显示全部帖子]

“收文登记页面-处理签扫描”的主要目的是:无论是哪个电脑,将处理的文档扫描后,存放在各自的电脑:c:\影印文件夹中,经过处理后,处理签扫描列,以“收文编号_0001....”的形式保存在主机(服务器)的共享文件夹中的data\处理签扫描中,同时,处理签扫描列为:收文编号_0001,收文编号_0002...,下面代码不知道怎么改,请老师给予指导。(后附软件),请将数据包中的data文件夹放在共享文件夹里。

文件监视器FileCreated代码:
Dim Index As Integer = CurrentTable.Current("处理签扫描").split(vbcrlf).length
CurrentTable.Current("处理签扫描") = CurrentTable.Current("处理签扫描") & CurrentTable.Current("收文编号") & "_" & Index & ".jpg" & vbcrlf
FileSys.CopyFile(e.FullPath, "C:\Documents and Settings\All Users\Documents\处理签扫描\" & CurrentTable.Current("收文编号") & "_" & Index & ".jpg",True)

AfterOpenProject代码:

If FileSys.DirectoryExists("C:\影印文件夹")=False Then '如果目录C:\MyFolder不存在
    FileSys.CreateDirectory("C:\影印文件夹") '则建立
End If
With FileWatcher
    .Path = "C:\影印文件夹"
    .Delay = 1000
    .Enabled = True
End With

软件下载:1、软件:
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:办公收文系统.foxdb

2、数据包:
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:办公收文.zip




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


加好友 发短信
等级:五尾狐 帖子:1142 积分:8900 威望:0 精华:0 注册:2012/7/10 9:09:00
  发帖心情 Post By:2015/2/2 8:46:00 [显示全部帖子]

如何改,请给予更正,就是不知道怎么改,谢谢


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


加好友 发短信
等级:五尾狐 帖子:1142 积分:8900 威望:0 精华:0 注册:2012/7/10 9:09:00
  发帖心情 Post By:2015/2/2 8:48:00 [显示全部帖子]

出现的问题是:不能将扫描后的,经过处理的“收文编号_0001,.......”的扫描件放入共享文件夹中,处理签扫描列的文件名不能生成。

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


加好友 发短信
等级:五尾狐 帖子:1142 积分:8900 威望:0 精华:0 注册:2012/7/10 9:09:00
  发帖心情 Post By:2015/2/2 8:59:00 [显示全部帖子]

请老师,下载软件,给调试一下,

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


加好友 发短信
等级:五尾狐 帖子:1142 积分:8900 威望:0 精华:0 注册:2012/7/10 9:09:00
  发帖心情 Post By:2015/2/2 9:10:00 [显示全部帖子]

谢谢bin和有点甜,我再试一下


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


加好友 发短信
等级:五尾狐 帖子:1142 积分:8900 威望:0 精华:0 注册:2012/7/10 9:09:00
  发帖心情 Post By:2015/2/2 14:52:00 [显示全部帖子]

有点甜老师:扫描时,出现下对话框,是怎么了?怎么试都不行,请指教

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


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


加好友 发短信
等级:五尾狐 帖子:1142 积分:8900 威望:0 精华:0 注册:2012/7/10 9:09:00
  发帖心情 Post By:2015/2/2 15:08:00 [显示全部帖子]

.NET Framework 版本:2.0.50727.3655
Foxtable 版本:2014.10.23.1
错误所在事件:文件监视器,FileCreated
详细错误信息:
The process cannot access the file 'C:\影印文件夹\处理签扫描 008.jpg' because it is being used by another process.


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


加好友 发短信
等级:五尾狐 帖子:1142 积分:8900 威望:0 精华:0 注册:2012/7/10 9:09:00
  发帖心情 Post By:2015/2/2 15:12:00 [显示全部帖子]

第一段代码出错:
第一段代码为:Dim Index As Integer = CurrentTable.Current("处理签扫描").split(vbcrlf).length

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


加好友 发短信
等级:五尾狐 帖子:1142 积分:8900 威望:0 精华:0 注册:2012/7/10 9:09:00
  发帖心情 Post By:2015/2/2 15:24:00 [显示全部帖子]

是这样加入吗:
MessageBox.Show(1)
Dim Index As Integer = CurrentTable.Current("处理签扫描").split(vbcrlf).length
MessageBox.Show(2)
CurrentTable.Current("处理签扫描") = CurrentTable.Current("处理签扫描") & CurrentTable.Current("收文编号") & "_" & Index & ".jpg" & vbcrlf
MessageBox.Show(3)
FileSys.CopyFile(e.FullPath, "C:\Documents and Settings\All Users\Documents\data\处理签扫描\" & CurrentTable.Current("收文编号") & "_" & Index & ".jpg",True)

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


加好友 发短信
等级:五尾狐 帖子:1142 积分:8900 威望:0 精华:0 注册:2012/7/10 9:09:00
  发帖心情 Post By:2015/2/2 15:30:00 [显示全部帖子]

分别弹出1,2,3

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