Foxtable(狐表)用户栏目专家坐堂 → [求助]尝试读取或写入受保护的内存。这通常指示其他内存已损坏


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

主题:[求助]尝试读取或写入受保护的内存。这通常指示其他内存已损坏

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


加好友 发短信
等级:九尾狐 帖子:2179 积分:17863 威望:0 精华:0 注册:2011/11/26 20:21:00
[求助]尝试读取或写入受保护的内存。这通常指示其他内存已损坏  发帖心情 Post By:2019/1/22 0:01:00 [只看该作者]

有一个计划任务,定期执行,设定的间隔时间为1秒。
执行过程中,有时候会报出错误

---------------------------
版本:2018.10.9.1
---------------------------
代码执行出错,错误信息:



System.AccessViolationException: 尝试读取或写入受保护的内存。这通常指示其他内存已损坏。

   在 UserCode.自定义函数XX

   在 UserCode.Test()


这个跟什么有关?
是执行频率太高了还是怎么的?

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/1/22 9:42:00 [只看该作者]

1、可以把间隔弄大一点测试;

 

2、进入执行的时候,有可能计划需要执行的时间超过1秒,超过1秒后,又会重新开启一个或者多个计划,导致冲突的。

 

进入计划后,把计划关闭,如 mytimers("计划1").Enabled = False

 

执行到最后,写代码开启 mytimers("计划1").Enabled = True


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


加好友 发短信
等级:九尾狐 帖子:2179 积分:17863 威望:0 精华:0 注册:2011/11/26 20:21:00
  发帖心情 Post By:2019/1/22 14:10:00 [只看该作者]

本来是去检查锁在不在,用时会很短的,但是调了间隔10分钟,还是会报错。 另外,本来就是在项目管理-计划管理中增加的计划,如何让它停止又重启啊

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/1/22 14:24:00 [只看该作者]

在计划那里写代码,如

 

mytimers("计划1").Enabled = False

'本来代码

mytimers("计划1").Enabled = true


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


加好友 发短信
等级:九尾狐 帖子:2179 积分:17863 威望:0 精华:0 注册:2011/11/26 20:21:00
  发帖心情 Post By:2019/1/23 19:44:00 [只看该作者]

实际检查了一下,运行结果与设置间隔时间有关,但更大的问题是调用外部的dll
为了测试加密狗的应用,用了ET99加密锁。------如果有使用过这个狗的,更请指教。
但实际测试过程中,按步骤找到狗、打开狗都没有问题,但在第三步做用户PIN验证时,就报出错误如下:
版本:2018.10.9.1
代码执行出错,错误信息:
System.AccessViolationException: 尝试读取或写入受保护的内存。这通常指示其他内存已损坏。
   在 UserCode.et_Verify(Int64 et99handle, Int32 et99flag, String& et99pin)
   在 UserCode.Test()

经过咨询狗的厂商客服,他们表示在多种环境下,包括Delphi、VB、foxpro等都没有任何问题,而且我用他们的示例文件也运行正常。
那么,这个问题在哪里呢?
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:et99cs.zip


补充:我的电脑Win10操作系统,另一台WIn7操作系统,均是64位。
win10是framework4.7
[此贴子已经被作者于2019/1/23 21:12:54编辑过]

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/1/23 21:25:00 [只看该作者]

我没有插上加密狗,测试没有报错。

 

你试试改成这样测试

 

Declare Function et_Verify Lib "FT_ET99_API.dll" (ByVal et99handle As Long, ByVal et99flag As Integer, ByRef et99pin As Stringbuilder) As Long

 

-----------------

 

Dim PID As String = "1Q2W3E4R"   '这是随便写的8位字符串,它要用狗的产生方法产生,在没插狗的情况下,本无意义
Dim n As Integer
Dim Upin As String = "IUHJHJODAHFOIUQWELJADFIO09ER089724502875"   '这是随便写的字符串,在没插狗的情况下,本无意义
Dim hl As Long

et_FindToken(pid , n )
MessageBox.Show("检测狗完成")

et_OpenToken(hl , pid , 1)
MessageBox.Show("打开狗完成")

Dim sb As new Stringbuilder
sb.append(Upin)
et_Verify(hl , 0, sb)  '我在插上狗,PID和UPIN都正确的情况下,前两步都顺利完成,但这一步就报错了
MessageBox.Show("验证用户ID完成")

 


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


加好友 发短信
等级:九尾狐 帖子:2179 积分:17863 威望:0 精华:0 注册:2011/11/26 20:21:00
  发帖心情 Post By:2019/1/23 21:44:00 [只看该作者]

这个逻辑是这样的
1、et_findtoken(PID,count),PID是输入值,输出值是count,也就是检测匹配上PID的狗的数量
2、et_OpenToken(hl , pid , 1),第一个参数hl是输出值,它是句柄;第二个参数值是狗的PID,第三个参数值是第几个狗
-----这两步都执行正常。
3、et_Verify(hl , 0, sb),第一个参数是用到第二步输出的句柄,第二个参数0是输入值,是确定是普通用户还是超级用户,第三个sb是输入值,是生成狗的PID时用到的用户参数PIN
-----甜兄,按你的做法,还是不行,仍然报错,报的错是完全一样的

在不插入狗的情况下,就是不做任何改动,我上传的附件可以也是可以走完的。
实际上这个逻辑并不是这么简单,本来是这么写的
et_findtoken(PID,count)
if count > 0 then 
    if  et_OpenToken(hl , pid , 1) = 0 then 
        output.show("打开狗失败")
    else
        if  et_Verify(hl , 0, sb) > 0 then 
              output.show("校验成功")
        else
              output.show("校验失败")
        end if 
    end if 
else
    output.show("没找到狗")
end if 
[此贴子已经被作者于2019/1/23 21:55:39编辑过]

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


加好友 发短信
等级:九尾狐 帖子:2179 积分:17863 威望:0 精华:0 注册:2011/11/26 20:21:00
  发帖心情 Post By:2019/1/23 21:53:00 [只看该作者]

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

这是厂家官网给出的VB示例,就是用来做狗的相关设置的。
我这里插上狗后,从头到尾测试都正常。

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


加好友 发短信
等级:九尾狐 帖子:2179 积分:17863 威望:0 精华:0 注册:2011/11/26 20:21:00
  发帖心情 Post By:2019/1/23 21:53:00 [只看该作者]

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

这是厂家官网给出的VB示例,就是用来做狗的相关设置的。
我这里插上狗后,从头到尾测试都正常。

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/1/23 22:04:00 [只看该作者]

有没有c#的实例?

 

http://converter.telerik.com/

 


 回到顶部
总数 21 1 2 3 下一页