loadsave.hsp

sample\hspcv\loadsave.hsp » Plain Format

#include "hspcv.as"
	;
	;	画像ファイルをロード & JPEG形式でセーブをするスクリプト
	;
	screen 0,320,100
	cls 1
	quality=95
	objsize 320,24
	button "画像ファイルロード",*fload
	button "JPEG画像セーブ",*fsave
	button "終了",*owari
	objsize 80,24
	input quality
	pos 88,76:mes "JPEG画像品質(0-100)"
	stop
*fload
	dialog "bmp;*.dib;*.sr;*.ras;*.jpeg;*.jpg;*.jpe;*.pbm;*.ppm;*.pgm;*.tiff;*.tif;*.png;*.exr;*.jp2",16,"画像ファイル"
	if stat=0 : goto *failed
	;
	fname=refstr
	cvload fname,0
	screen 2,640,480
	title fname
	cvgetimg 0,1
	stop
*fsave
	dialog "jpg",17,"JPG画像ファイル"
	if stat=0 : goto *failed
	fname=getpath(refstr,1)+".jpg"
	gsel 2
	cvsave fname,0,quality
	dialog "JPEGファイルを保存しました"
	stop
*failed
	dialog "キャンセルしました"
	stop
*owari
	end