以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助：在局域网环境里打开登录界面慢是什么原因？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=110714)
--  作者：YUNSEL
--  发布时间：2017/12/8 9:07:00
--  求助：在局域网环境里打开登录界面慢是什么原因？

我在“BeforeConnectOuterDataSource”事件中定义了以下代码，然后在“AfterOpenProject”中定义打开登录界面的窗口代码，现在的问题是，如果计算机可以连接上外网，则打开登录界面是正常的，如果切断外网，则打开登录窗口是非常慢的，慢到让人以为这个程序没有打开，然后重复去打开，而导致卡死。我把这段代码贴出来，是不是问题出在这里面，请老师指点。


\'判断配置文件是否存在
If FileSys.FileExists("" & ProjectPath & "project\\conn.txt") Then \'如果指定的文件存在
    \'定义IP地址变量
    Dim ip As String =  FileSys.ReadAllText("" & ProjectPath & "project\\conn.txt")
    \'检测IP连通
    If Network.Ping(ip,1000) = False  Then \'如果无法接通
        e.HideSplashForm = True
        Messagebox.Show("您的计算机连接不上服务器,,请检查后重试!","温馨提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        system.diagnostics.process.GetProcessesByName("foxtable")(0).kill
        Return
    Else
        \'下载服务器加密文件并解密
        Network.DownloadFile("http://" & ip & "/sys/abc.txt","" & ProjectPath & "project\\abc.txt")
        DecryptFile("" & ProjectPath & "project\\abc.txt", "" & ProjectPath & "project\\abc1.txt", "abc")
        
        \'创建数据连接源
        Dim sjy As String = FileSys.ReadAllText("" & ProjectPath & "project\\abc1.txt")
        If e.name = "App" Then
            e.ConnectionString = sjy
        End If
    End If
Else
    \'定义系统库的缺省数据源
    If e.name = "App" Then
        e.C & e.ProjectPath & "abc.ini;Persist Security Info=False"
    End If
End If
--  作者：有点甜
--  发布时间：2017/12/8 9:12:00
--  

1、先看看是否此原因

 

http://www.foxtable.com/webhelp/scr/2730.htm

 

2、应该和你 BeforeConnectOuterDataSource 事件无关，你事件里面只是获取ip和连接数据源而已。
--  作者：YUNSEL
--  发布时间：2017/12/8 10:08:00
--  
试了一下，还真是这个IE配置的问题，谢谢了。