《Envi格式文件转换成JPEG文件》由会员分享,可在线阅读,更多相关《Envi格式文件转换成JPEG文件(2页珍藏版)》请在金锄头文库上搜索。
1、以下是把 Envi 标准文件转换成 JPEG 格式文件代码 pro Convert_img_jpg catch,error if(error ne 0)then begin errstring=!error_state.MSG ok=dialog_message(errstring,/cancel) if(strupcase(ok) eq cancel)then return endif envifile=dialog_pickfile(title=Please choose a image file which needs to be transfered) envi_open_file,e
2、nvifile,r_fid=fid,/no_interactive_query,/no_realize;打开文件,静默方式;查询文件信息 ENVI_FILE_QUERY, fid, dims=dims, nb=nb, nl=nl,ns=ns,$ fname=fname, data_type=data_type, $ interleave=interleave Jimg=bytarr(nb,ns,nl);以下分 interleave 等于不同值时分情况进行统一储存到数组中,为变换为 jpg 格式文件做准 备 case interleave of 0:begin enviimg=bytarr(ns
3、,nl,nb) openr,lun,envifile,/get_lun readu,lun,enviimg free_lun,lun for j=0,nb-1 do begin Jimgj,*,*=enviimg*,*,j endfor end1:begin enviimg=bytarr(ns,nb,nl) openr,lun,envifile,/get_lun readu,lun,enviimg free_lun,lun for j=0,nb-1 do begin Jimgj,*,*=enviimg*,j,* endfor end2:begin openr,lun,envifile,/get_lun readu,lun,Jimg free_lun,lunend endcasejpg=file_basename(envifile,.img) jpgfilepath=dialog_pickfile(/director) jpefile=jpgfilepath+jpg+.jpg ;开始将储存到数组中的 img 格式文件转换为 jpg 格式 write_jpeg,jpefile,Jimg,/true,order=1 end