HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2010
0725
HSP初心者 (投稿者削除)1未解決


HSP初心者

リンク

2010/7/25(Sun) 21:10:45|NO.33948

この記事は投稿者により削除されました。
2010/7/26(Mon) 05:55:02



この記事に返信する


f3d

リンク

2010/7/25(Sun) 21:58:55|NO.33959

顔文字YAMERO!!

ぁなたのお友達と話してるわけぢゃないんだから、
顔文字はやめましょうね。(^q^)

スクリプトは見てないけれど、
インデントぐらいちゃんとシヨウ。


#uselib "gdi32.dll" #cfunc CreateDC "CreateDCA" sptr,sptr,sptr,int #func DeleteDC "DeleteDC" int #func BitBlt "BitBlt" int,int,int,int,int,int,int,int,int #define NULL 0 #define SRCCOPY 0x00CC0020 #define CAPTUREBLT 0x40000000 #include "hspcv.as" sx = ginfo_dispx : sy = ginfo_dispy screen 0, 150, 50 repeat getkey ka,120 //キャプチャースタートキー if ka=1 { repeat getkey kb,121 //キャプチャーエンドキー if kb=1 : pina=1 : break gosub *scpy //キャプチャー処理ルーチンへ wait 1 loop } wait 5 if pina=1 : break loop repeat chka //保存した画像ファイル分だけループ chkd+ //一時的に保存したファイルを削除するカウンター cvload "test"+chkd+".bmp",0 cvbuffer 1,sx,sy repeat 3 //簡易フレーム処理ループ回数 cvmakeavi "test.avi",,,1 //AVI変換処理 cvcopy 0,0,0,1 cvputavi cvgetimg 1 wait 2 loop delete "test"+chkd+".bmp" //処理済のファイルの削除 loop end *scpy //定番のキャプチャー処理 chka+ buffer 2, sx, sy hdcScreen = CreateDC("DISPLAY", NULL, NULL, NULL) BitBlt hdc, 0, 0, sx, sy, hdcScreen, 0, 0, SRCCOPY | CAPTUREBLT DeleteDC hdcScreen bmpsave "test"+chka+".bmp" wait 2 return



ONION software Copyright 1997-2023(c) All rights reserved.