XMLHTTP的responsebody是否在VB6中异步工作？

我们有一个SSRS集成的Sharepoint服务器。我试图从它导出PDF格式的报告。XMLHTTP的responsebody是否在VB6中异步工作？

（我不得不做这样的，因为我的网址太长，我宁愿用shell命令做这样的，虽然这看起来像一个更好的解决方案。）

Here'is我的代码：

Dim request as New XMLHTTP 
Dim oStream as New Stream 
Dim aBunchOfMiliseconds as Long 

Dim fileLocation as String 
Dim reportUrl as String 

aBunchOfMiliseconds = 500 

reportUrl = "http://www.mySharepointDomain.com/_vti_bin/ReportServer?http://www.mySharepointDomain.com/sites/AFolderHere/OOAnotherFolder/BlaBlaReportFolder/FolderFolder/AhTheLastOne/AtLeastMyReportFile.rdl&rs:Command=Render&rc:Toolbar=true&rs:Format=PDF&Parameter1=ABC &Parameter2=1&Parameter3=1&TheLastParameter=IllBeDamned&rs%3aParameterLanguage=ln-LN" 


request.Open "GET", reportUrl 
request.setRequestHeader "WWW-Authenticate", "NTLM" 'For impersonation 
request.Send 'Go get it Bruce 

If request.Status = 200 Then 'Are you successful? 

    oStream.Type = adTypeBinary 
    oStream.Open 

    oStream.Write request.responseBody 'Here's the problematic part 
    Sleep(aBunchOfMiliseconds) 'If I don't do this, file will be corrupted 

    oStream.SaveToFile fileLocation, adSaveCreateOverWrite 

    oStream.Close 


End If 


Set oStream = Nothing 
Set request = Nothing

如果我注释掉“睡眠”这一行，我将有一个无法打开的损坏文件。此代码工作正常，但我发现它在那里使用“睡眠”嘲笑。

有什么办法让我理解数据复制操作已完成？

来源

2013-12-20 fkucuk

哦，我明白了。

我错过了说“这不是一个异步调用”。

request.Open "GET", reportUrl, False

来源

2013-12-20 13:10:31 fkucuk

XMLHTTP的responsebody是否在VB6中异步工作？

回答

相关问题