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


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

主题：再问Web数据源的问题
帅哥哟，离线，有人找我吗？
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107861 积分：548662 威望：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


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

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

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

出现什么错误提示？

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107861 积分：548662 威望：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编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04199 秒, 5 次数据查询