【asp源码栏目提醒】:网学会员在asp源码频道为大家收集整理了“flash asp net 拍照源程序1 - 互联网“提供大家参考,希望对大家有所帮助!
flash asp net 拍照源程序1 分类NET.2.0 flashasp.net拍照源程序 //导入类 import flash.display.BitmapData //获取摄像 var camCameraCamera.get var my_videoVideo my_video.attachVideocam //创建视频控件 var imgerBitmapDatanew BitmapDatamy_video._widthmy_video._height var imgShowMovieClipcreateEmptyMovieClipbitmap_mcthis.getNextHighestDepth var thehangNumber0 var IDNumber var PXArraynew Array var filenameString //按钮初始状态 upfilebutton.enabledfalse upfilebutton._alpha50 viewbutton.enabledfalse viewbutton._alpha50 statedisplay._visiblefalse //相框列表树 var loadimageframemx.controls.ProgressBar var imageframemx.controls.Loader var framelistmx.controls.Tree loadimageframe._visiblefalse loadimageframe.indeterminatetrue loadimageframe.sourceimageframe loadimageframe.modepolled var pbListenerObjectnew Object pbListener.completefunctionevtObject evt.target._visiblefalse loadimageframe.addEventListenercompletepbListener var treeDP_xmlXMLnew XML treeDP_xml.ignoreWhitetrue treeDP_xml.onLoadfunctionsuccessBoolean ifsuccess framelist.dataProviderthis.firstChild treeDP_xml.loadgallery_tree.xml var treeListenerObjectnew Object treeListener.changefunctionevtObject var treeNodeXMLNodeevt.target.selectedItem iftreeNode.attributes.srcundefined loadimageframe._visibletrue imageframe.loadtreeNode.attributes.src framelist.addEventListenerchangetreeListener //定义按钮事件 blurbutton.onReleasecapture viewbutton.onReleaseviewimg upfilebutton.onReleaseupload function capture statedisplay._visibletrue statedisplay.statebar.text正在拍下您的靓照请稍等 blurbutton.enabledfalse blurbutton._alpha50 upfilebutton.enabledfalse upfilebutton._alpha50 viewbutton.enabledfalse viewbutton._alpha50 imger.drawmy_video imgShow._x29.4 imgShow._y253.5 imgShow.attachBitmapimger1 imger.drawimageframe imgShow._x29.4 imgShow._y253.5 imgShow.attachBitmapimger1 thehang0 statedisplay._visiblefalse blurbutton.enabledtrue blurbutton._alpha100 upfilebutton.enabledtrue upfilebutton._alpha100 statedisplay._visiblefalse function upload _root.IDsetIntervalscanPhoto50 //扫描图像 function scanPhoto statedisplay._visibletrue statedisplay.statebar.text正在扫描并上传图像数据请稍等 var pixerString PXthehangnew Array forw0w imgShow._widthw pixerimger.getPixelwthehang.toString16 PXthehang.pushpixer state.text正在扫描图像过程较慢请耐心等待… thehang1 //state.text正在存取数据 ifthehangimgShow._height clearInterval_root.ID //state.text图像扫描完成如果要保存请点上传按钮 //blurbutton.enabledtrue //blurbutton._alpha100 //upfilebutton.enabledtrue //upfilebutton._alpha100 statedisplay._visiblefalse upfile //上传图像 function upfile statedisplay._visibletrue statedisplay.statebar.text正在上传图像数据请稍等 blurbutton.enabledfalse blurbutton._alpha50 upfilebutton.enabledfalse upfilebutton._alpha50 viewbutton.enabledfalse viewbutton._alpha50 var sendernew LoadVars fori0i my_video._heighti senderPXi_root.PXi sender.sendAndLoadCam.aspxsenderPOST sender.onLoadfunctionsuccess ifsuccess //state.text上传完成this.thisfile state.text上传完成 filenamethis.thisfile else state.text上传失败 upfilebutton.enabledtrue upfilebutton._alpha100 blurbutton.enabledtrue blurbutton._alpha100 viewbutton.enabledtrue viewbutton._alpha100 statedisplay._visiblefalse //浏览图片 function viewimg dnew Date getURLfilename_self