Select Case e.Path
Case "DataServer.htm"
e.AsDataServer("综合管理数据源") '将一个本地数据源公开为Web数据源
Case "test2.htm"
For Each key As String In e.Files.Keys
For Each fl As String In e.Files(key)
e.SaveFile(key,fl,"Resource\" & fl) '保存接收到的文件
e.WriteString("图片已保存!")
Next
Next
Case "test1.htm"
Dim pth As String = e.PlainText
FileSys.DeleteFile(pth,2,2)
e.WriteString("文件已删除!")
Case "test.htm"
If FileSys.FileExists("Resource\" & e.PlainText ) Then
e.WriteString("文件存在!")
e.WriteFile("Resource\" & e.PlainText )
Else
e.WriteString("文件不存在!")
End If
End Select
Dim lst As New List(of String)
Dim ip As String = e.Form.Controls("TextBox10").text
lst = Tables("详情表").Current.DataRow.Lines("工单")
For Each Name As String In lst
If FileSys.FileExists("Resource\" & Name ) Then
Else
Dim hc As New HttpClient("http://" & ip & ":32177/test.htm")
hc.Timeout = 5 '设置超时为5秒
hc.Content = Name
Dim ret As String = hc.GetData()
MessageBox.show(ret)
If hc.GetFile("Resource\" & Name ) Then
MessageBox.show("文件下载成功","提示")
Else
MessageBox.show("文件下载失败","提示")
End If
End If
Next
在客户端连接Web数据源 代码如下
Dim ip As String = e.Form.Controls("TextBox10").text
Dim sb As New StringBuilder
sb.AppendLine("http://" & ip & ":32177/DataServer.htm")
Connections.Add("综合管理数据源",sb.ToString)
---------------------
1.现在问题是我上传图片 在线删除图片都没问题 就是从服务器下载图片提示错误（关了杀毒软件 也试过关闭防火墙）
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2019.9.8.1
错误所在事件：
详细错误信息：
请求被中止: 连接被意外关闭。
2.在客户端连接Web数据源 数据源可以联通 但是一直提示 综合管理数据源已存在
（客户端的软件原来默认连接的数据源如下 Provider=Microsoft.Jet.OLEDB.4.0;Data Source= 全通mdb.mdb;Persist Security Info=False）
加好友 
发短信
Post By：2022/7/22 10:34:00 [只看该作者]
