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


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

主题：[求助]尝试读取或写入受保护的内存。这通常指示其他内存已损坏
帅哥哟，离线，有人找我吗？
chnfo
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2243 积分：18477 威望：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


加好友 发短信
等级：九尾狐 帖子：2243 积分：18477 威望：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


加好友 发短信
等级：九尾狐 帖子：2243 积分：18477 威望：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


加好友 发短信
等级：九尾狐 帖子：2243 积分：18477 威望：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


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

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

这是厂家官网给出的VB示例，就是用来做狗的相关设置的。
我这里插上狗后，从头到尾测试都正常。
 回到顶部
帅哥哟，离线，有人找我吗？
chnfo
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2243 积分：18477 威望：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 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07813 秒, 7 次数据查询