返答ありがとうございます。
確かにJPEGの画質は低いですが、
保存した画像は後ほどアップロードするのでファイルサイズを
できるかぎり小さくしたかったんです。(512KB以下じゃないとアップロードできないんで・・)
変色さえしなければ十分綺麗なんです。
何か方法はありませんか?
onexit gosub*ext:width ,,5,5
#include "hspcv.as"
#uselib "gdi32.dll"
//画面のコピー準備
gsel 0,-1
#cfunc CreateDC "CreateDCA" sptr,sptr,sptr,int
#func DeleteDC "DeleteDC" int
#func BitBlt "BitBlt" int,int,int,int,int,int,int,int,int
a=CreateDC("DISPLAY", 0, 0, 0)
wait 30
//画面コピー
dx=ginfo(20):dy=ginfo(21):buffer 2, dx, dy
BitBlt hdc,0,0,dx,dy,a,0,0,0x00CC0020
DeleteDC a
gsel 2,0:cvbuffer 2,dx,dy:cvputimg 2:gsel 0,1
cvsave "test.jpg",2:title"保存前":gmode 0,640,480:gcopy 2
screen 1,,,,320,150:title"保存後":picload"test.jpg",1
stop
*ext
delete"test.jpg"
end