1、web数据源的web服务,和QQServer没有半毛钱的关系。另外服务端没看到有HttpRequest事件代码。请按照帮助的用法启动服务 原来用下面代码,是Server窗口打开,用Server窗口的IP 服务端的代码
AfterOpenProject事件
Forms("Server窗口").Open()
现在改为下面:需求是,动态调用窗口1的TextBox1的内容/IP,如果连接上,才打开用户,执行下面代码,报错,找不到对象,如何处理? |
Dim IP As WinForm.TextBox = Forms("窗口1").Controls("TextBox1") 'IP-文本框
With Forms("窗口1").Controls("TextBox1")
If .Value Is Nothing Then
Messagebox.Show("请输入编号!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
HttpServer.Prefixes.Add("http://IP/")
'HttpServer.WebPath = "d:\web"
HttpServer.Start()
End With
Forms("用户登录").Open()
If _UserName = "" Then
Syscmd.Project.Exit()
Return '这个要加上,因为既然要退出,就不应该再执行后面的初始化代码了,否则会出错
End If