[AS3]as3.0将flash舞台场景生成JPG图片的示例

var jpgSource:BitmapData = new BitmapData (this.width, this.height);  
jpgSource.draw(this);  
var encoder:JPGEncoder = new JPGEncoder(80);  
var bytes:ByteArray = encoder.encode(jpgSource);  
var request:URLRequest = new URLRequest("img.asp");  
request.data = bytes;  
request.method = URLRequestMethod.POST;;  
request.contentType = "application/octet-stream";  
 
var saveLoader:URLLoader=new URLLoader();   
saveLoader.addEventListener(Event.COMPLETE, completeHandler);  
saveLoader.addEventListener(IOErrorEvent.IO_ERROR,errorHandler);  
saveLoader.load(request);  
private function completeHandler(e:Event):void  
{  
        trace("图片上传成功");  
}  
 
private function errorHandler(e:IOErrorEvent):void  
{  
        trace("图片上传失败");  
} 

img.asp文件代码:

<%   
'读数据流  
response.buffer=true   
formsize=request.totalbytes   
mydata=request.binaryread(formsize)  
 
'生成文件名  
Dim my_name  
my_name= "test.jpg" 
'保存图片至服务器硬盘  
Call SaveStream(my_name,mydata)  
'返回my_name至Flash  
'Response.Write my_name  
 
Sub SaveStream(paR_strFile, paR_streamContent)  
  Dim objStream  
  Set objStream =Server.CreateObject("ADODB.Stream")  
    with objStream  
      .Type =1 
      .Open  
      .Write paR_streamContent  
      .SaveToFile Server.Mappath(paR_strFile), 2  
      .Close()  
    End with  
  Set objStream =Nothing 
End Sub  
%>