ホーム
>
RPGツクール
>
テクニック集
>
XP一覧
>
テクニック

スクリーンキャプチャ（XP/VX共用）

ScreenCapture (For XP/VX)

概要

Summary

ゲーム中に直接スクリーンショットを撮る機能を追加します。
キャプチャは、RGSSから直接行うことも、手動で行うこともできます。
（手動キャプチャは、テストプレイ中のみ有効です）

このスクリプトは、XP/VX のどちらでも使用できます。

応用機能 ≪Win32API用インタフェース≫ が必要です。

↑目次

更新履歴

History

2008/01/02

VXに対応。

2007/11/30

手動キャプチャを Input#update 割り込み方式に変更。

2007/11/26

新規作成。

↑目次

スクリプト

Script

#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
#_/    ◆ スクリーンキャプチャ - KGC_ScreenCapture ◆ XP/VX ◆
#_/    ◇ Last update : 2008/01/02 ◇
#_/----------------------------------------------------------------------------
#_/  実行画面をキャプチャする機能を追加します。
#_/  XP/VX のどちらでも使用することができます。
#_/============================================================================
#_/  応用機能 ≪Win32API用インターフェース≫ が必要
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/

#==============================================================================
# ★ カスタマイズ項目 - Customize ★
#==============================================================================

module KGC
module ScreenCapture
  # ◆ 手動キャプチャボタン
  #  手動キャプチャに使用するボタン。
  #  nil にすると、手動キャプチャ無効。
  CAPTURE_BUTTON = Input::F8
  # ◆ 手動キャプチャに Ctrl を使用する
  #  true にすると、Ctrl キーを押しながらでないとキャプチャできなくなる。
  USE_CTRL  = false
  # ◆ 手動キャプチャに Alt を使用する
  USE_ALT   = false
  # ◆ 手動キャプチャに Shift を使用する
  USE_SHIFT = false

# ◆ 手動キャプチャした画像のファイル名
  #  {num} .. キャプチャ番号 (3桁)
  NAME_FORMAT = "cap{num}.bmp"

# ◆ 手動キャプチャ成功SE
  #  nil にすると SE なし。
  if $DEBUG
    # XP 用
    SUCCESS_SE = RPG::AudioFile.new("056-Right02")
  elsif $TEST
    # VX 用
    SUCCESS_SE = RPG::SE.new("Up", 100, 150)
  end
end
end

#★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★

#==============================================================================
# ■ TCap
#==============================================================================

module TCap
  CP_UTF8 = 65001  # UTF-8 コードページ
  #--------------------------------------------------------------------------
  # ● 『TCap.dll』のバージョンを取得
  #     (<例> 1.23 → 123)
  #--------------------------------------------------------------------------
  def self.version
    begin
      api = Win32API.new('TCap.dll', 'DllGetVersion', %w(v), 'l')
      ret = api.call
    rescue
      ret = -1
    end
    return ret
  end
  #--------------------------------------------------------------------------
  # ● ゲーム画面をキャプチャ
  #     filename : 出力先 (bmp)
  #--------------------------------------------------------------------------
  def self.capture(filename)
    begin
      hwnd = Win32API.GetHwnd
      if hwnd == 0
        # [xx FPS] が出てると失敗するので、アクティブウィンドウを利用
        hwnd = Win32API.GetActiveWindow
      end
      if hwnd == 0
        ret = -1
      else
        tcap = Win32API.new('TCap.dll', 'CaptureA', %w(l p l l), 'l')
        ret = tcap.call(hwnd, filename, 1, CP_UTF8)
        Graphics.frame_reset
      end
    rescue
      ret = -1
    end
    return ret
  end
end

#★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★

#==============================================================================
# ■ Input
#==============================================================================

if ($DEBUG || $TEST) && KGC::ScreenCapture::CAPTURE_BUTTON != nil
module Input
  @@_capture_num = 1
  CAPTURE_FILE_NAME = KGC::ScreenCapture::NAME_FORMAT.gsub(/{num}/) { "%03d" }
  #--------------------------------------------------------------------------
  # ● フレーム更新
  #--------------------------------------------------------------------------
  unless defined?(update_KGC_ScreenCapture)
  class << Input
    alias update_KGC_ScreenCapture update
  end
  def self.update
    update_KGC_ScreenCapture

judge_capture
  end
  end
  #--------------------------------------------------------------------------
  # ● キャプチャ実行判定
  #--------------------------------------------------------------------------
  def self.judge_capture
    if trigger?(KGC::ScreenCapture::CAPTURE_BUTTON) &&
        (!KGC::ScreenCapture::USE_CTRL || press?(CTRL)) &&
        (!KGC::ScreenCapture::USE_ALT || press?(ALT)) &&
        (!KGC::ScreenCapture::USE_SHIFT || press?(SHIFT))
      result = TCap.capture(sprintf(CAPTURE_FILE_NAME, @@_capture_num))
      if result == 0
        capture_se = KGC::ScreenCapture::SUCCESS_SE
        if capture_se != nil
          $DEBUG ? $game_system.se_play(capture_se) : capture_se.play
        end
        @@_capture_num += 1
      end
    end
  end
end
end

↑目次

使用法

Usage

まずは最新版の「RGSS***J.dll」を「Game.exe」と同じフォルダに入れます。
入れなくても RTP が最新なら動きますが、相手側の RTP が古いと駄目なので、入れておくことをお勧めします。
次にここから『TCap.dll』をダウンロードし、『TCap.dll』を「Game.exe」と同じフォルダに入れます。
あとはスクリプトを導入すればOKです。
(戻り値は付属の「API.txt」参照。呼び出しに失敗した場合は-1)

キャプチャした画像は、Game.exe と同じフォルダ（カレントフォルダ）に作成されます。
ファイル形式は単なるビットマップなので、必要に応じて他の形式に変換してください。

手動キャプチャ
RGSS からキャプチャ

手動キャプチャ

# ◆手動キャプチャボタン
CAPTURE_BUTTON = Input::F8
# ◆手動キャプチャに Ctrl を使用する
USE_CTRL  = false
# ◆手動キャプチャに Alt を使用する
USE_ALT   = false
# ◆手動キャプチャに Shift を使用する
USE_SHIFT = false

ここでは、手動キャプチャに使用するボタンを設定します。
USE_CTRL, USE_ALT, USE_SHIFTのうちtrueにしたキーを押しながら、CAPTURE_BUTTONに設定したボタンを押すと、キャプチャを行うことができます。

キー入力を受け付けない（Input#updateを呼ばない）場面では、キャプチャできません。

RGSS からキャプチャ

RGSSからキャプチャを行う場合は、次のスクリプトを使用します。

TCap.capture(<ファイル名>)

例えば、現在の画面を"screen01.bmp"というファイル名で保存する場合、

TCap.capture("screen01.bmp")

を実行します。

数フレームしか表示されないアニメを撮影する場合など、シビアな操作が必要な場合はこちらの方法が適しています。

↑目次