Foxtable(狐表)用户栏目专家坐堂 → 再问Web数据源的问题


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

主题:再问Web数据源的问题

帅哥,在线噢!
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/8/22 11:45:00 [显示全部帖子]

启动服务的时候指定具体的地址

HttpServer.Prefixes.Add("http://127.0.0.1/")
HttpServer
.Prefixes.Add("http://启动服务的电脑的ip比如192.168.0.100/")
HttpServer.Start()

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/9/8 16:26:00 [显示全部帖子]

数据库是安装在自己的服务器,还是云服务器?如果是自己的服务器,宽带有固定IP吗?有没有做端口映射?外网可以正常访问这个外网ip吗

 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/9/8 17:21:00 [显示全部帖子]

SqlServer使用的是1433端口。网上搜索“路由端口映射”

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/9/10 20:18:00 [显示全部帖子]

出现什么错误提示?

 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/9/10 21:49:00 [显示全部帖子]

这种情况是服务不存在或者无法访问,建议在服务端添加一个验证服务比如

Select Case e.Path
    
Case "DataServer.htm"
        e.AsDataServer("Orders")

    Case "valid.htm"
        e.WriteString("OK")
End
 Select

然后客户端这样判断
Dim hc As New HttpClient("http://b.Value/valid.htm")
hc.SkipError = True
hc.TimeOut = 2
Dim s As String = hc.GetData()
If s = "OK" Then
    MessageBox.show("服务正常")

Dim b As WinForm.TextBox

b = e.Form.Controls("TextBox1")

Dim sb As New StringBuilder

Dim Err As String

sb.AppendLine("http://b.Value/DataServer.htm")

sb.AppendLine("-FormData-")

sb.AppendLine("UserName:张三")

sb.AppendLine("Password:888")

If Connections.TryConnect(sb.Tostring, Err) = False Then

    MessageBox.Show(err, "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)

Else

    MessageBox.Show("数据源可以正常连通!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

End If

Else
    MessageBox.show("服务不正常") 
End If
[此贴子已经被作者于2023/9/10 21:49:46编辑过]

 回到顶部