请大家看看,为什么出错(我想POST一个STREAM)其实是要将一个图象转成流格式,再POST???Set HttpRequest = CreateObject("Msxml2.XMLHTTP")
' Declare variable to hold the IXMLHTTPRequest Object reference.
Set myImage = CreateObject("VIMAS.Image")
' Declare variable to hold the IVimasImage Object reference.
Set NewImage = imageView.image Set myStream = CreateObject("ADODB.Stream")
myStream.open
‘将NewImage 中的图形保存在一个流中myStream
Call NewImage.save(myStream,"gif","Compression=40;Color=-50;Subsampling=None;")
Call HttpRequest.Open("POST", "http://www.medjetco.com/hkclnd/prewImage.asp?flag=1", false)
Call HttpRequest.setRequestHeader("Content-type", "image/html")
‘******************************************************
Call HttpRequest.Send(imageContent) 'myStream
出错!!提示不能读写
’*******************************************************
myStream.close
' Declare variable to hold the IXMLHTTPRequest Object reference.
Set myImage = CreateObject("VIMAS.Image")
' Declare variable to hold the IVimasImage Object reference.
Set NewImage = imageView.image Set myStream = CreateObject("ADODB.Stream")
myStream.open
‘将NewImage 中的图形保存在一个流中myStream
Call NewImage.save(myStream,"gif","Compression=40;Color=-50;Subsampling=None;")
Call HttpRequest.Open("POST", "http://www.medjetco.com/hkclnd/prewImage.asp?flag=1", false)
Call HttpRequest.setRequestHeader("Content-type", "image/html")
‘******************************************************
Call HttpRequest.Send(imageContent) 'myStream
出错!!提示不能读写
’*******************************************************
myStream.close
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货