从网站上获取需要的数据实例(天气预报)
作者 佚名技术
来源 程序设计
浏览
发布时间 2012-06-29
| Temp = Mid(strSource, lngStart + Len(StartFlag), lngEnd - lngStart - Len(StartFlag)) strSource = Mid(strSource, lngEnd + Len(EndFlag)) GetData = strTemp End Function ''下载二进制内容 ''******************************************************************************************* ''FunctionName: DownBinData ''Description :DownLoad BinaryData ''Return : Boolean ''parameter : sURL:WEB Adress ''******************************************************************************************* Private Function DownBinData(ByVal sURL As String) As Boolean On Error GoTo ExitHead Dim m_vBinData() As Byte m_vBinData() = Inet1.OpenURL(sURL, icByteArray) EntryBegin: DoEvents If UBound(m_vBinData) <> 0 Then DoEvents End If If Inet1.StillExecuting Then DoEvents GoTo EntryBegin: End If DownBinData = True If Dir(App.Path & "\imag.gif") <> "" Then Kill App.Path & "\imag.gif" End If Open App.Path & "\imag.gif" For Binary As #1 Put #1, 1, m_vBinData Close #1 Exit Function ExitHead: DownBinData = False ''将错误输出到日志中 '' If Err <> 0 Then '' SaveErrMsg Err, Me, "DownBinData" '' End If End Function |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
上一篇: C++/VC++编程的疑难问题及解答下一篇: C++指针使用方法解惑
关于从网站上获取需要的数据实例(天气预报)的所有评论
