以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  AfterOpenProject事件代码中 比较版本升级时 提示编译错误:“SkipError”不是“HttpClient”的成员 怎么解决呢?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=178428)

--  作者:cnsjroom
--  发布时间:2022/7/4 12:03:00
--  AfterOpenProject事件代码中 比较版本升级时 提示编译错误:“SkipError”不是“HttpClient”的成员 怎么解决呢?

AfterOpenProject事件代码中 比较版本升级时  提示编译错误:“SkipError”不是“HttpClient”的成员  怎么解决呢?

 

当前狐表版本20200529 

 

Dim File As String = ProjectPath & "\\Attachments\\Connect.Ini"
BaseMainForm.ControlBox = False
Dim ErrMsg As String
Dim Conn As String = FileSys.ReadAllText(File)
If Connections.TryConnect(Conn,ErrMsg) = False Then
    MessageBox.Show("数据源无法连通" & vbcrlf & "原因:" & ErrMsg    & vbcrlf & "点击确定,退出当前系统,请重新启动程序!"  ,"温馨提示")
    Syscmd.Project.Exit()
Else
    Dim update As String = ProjectPath & "\\Attachments\\update.txt"
    Dim Connupdate As String = FileSys.ReadAllText(update)
    \'获取系统版本号
    Dim req = System.Net.WebRequest.Create(UpdatePath & "/update.txt")
    Dim pos = req.GetResponse
    Dim stm As System.IO.Stream = pos.GetResponseStream()
    Dim reader As New System.IO.StreamReader(stm)
    Dim str As String ="V" & reader.ReadToEnd
    Dim banben As String
    Dim  Multi As String = str
    Dim Values11() As String
    Values11 = Multi.split("|")
    For Index As  Integer = 0 To Values11.Length - 1
        banben= Values11(0).Replace(" ","").Replace(":","").Replace("-","")
    Next
    Dim up As Boolean  
    Dim hc As New HttpClient(UpdatePath & "/update.txt")
    hc.SkipError = True
    If hc.GetFile(ProjectPath &"update.txt") Then
        up = Syscmd.Project.Update(False,False)
    End If
    If up = False Then \'如果没有升级
        MainTable=Tables("表a")
        TableCaptionVisible = False
        Forms("登录窗口").Show()
    Else  \'如果升级成功
        Application.ReStart   \'小版本升级完成后自动重启项目\'
    End If
End If

 

 

---------------------------
错误
---------------------------
编译错误:“SkipError”不是“HttpClient”的成员。

错误代码:hc.SkipError = True
---------------------------
确定  
---------------------------

[此贴子已经被作者于2022/7/4 12:08:50编辑过]

--  作者:有点蓝
--  发布时间:2022/7/4 12:09:00
--  
更新Foxtable到最新版