喫茶XRAY [Mr.XRAY掲示板]

▼ KSCさん Mr.XRAYさん
一応動作を確認しましたので、コードを
載せます。長いかもしれませんが
ご免なさい。
// H to Pas Converter Ver.1.20.1.47 by K.Kumaki
//     Date : 27 Apr 2009
//   Source : tvif.h (27 Aug 2004)

unit tvif;

{$X+}{$Z2}{$A8}

interface

uses Windows;

(*
{$IFNDEF __TVPLAYER_IF_H__}
{$DEFINE __TVPLAYER_IF_H__}

{$IFDEF __cplusplus}
// Error : extern "C" {
{$ENDIF}

{$IFDEF DLL_EXPORTS}
{$IFNDEF DLL_API}
const
// Error :  #define DLL_API __declspec ( dllexport )
{$ENDIF}
{$ELSE}
{$IFNDEF DLL_API}
{$DEFINE DLL_API}
{$ENDIF}
{$ENDIF}

*)

(*
tvml player 2 tvif API for NHK Rev 1.1
Programmed by Yasuhiro Aikawa
Looped Picture Company
http://www.loopedpicture.com
*)

const

  TvifExport = 'tvif.dll';

  TVP_MIN_WINSIZE_X        = 120;
  TVP_MIN_WINSIZE_Y        = 90;
  TVP_DEFAULT_WINSIZE_X        = 320;
  TVP_DEFAULT_WINSIZE_Y        = 240;
  TVP_DEFAULT_FRAMERATE        = 30;
  TVP_X        = 0;
  TVP_Y        = 1;
  (*
  TVP_FREE_RUN        = 0;
  TVP_PHASE        = 1;
  TVP_LOCK        = 2;
  *)
(* command or status *)
  TVP_STOP        = 0;
  TVP_PLAY        = 1;
  TVP_PAUSE        = 2;
  TVP_INIT        = 3;
  TVP_UPDATE_SCRIPT        = 4;
  TVP_UPDATE_ISCRIPT        = 5;
  TVP_RESET        = 6;
  TVP_SHUTDOWN        = 7;
  TVP_WINPOS        = 8;
  TVP_WINSIZE        = 9;
  TVP_FOREGROUND        = 10;
  TVP_WINMASK        = 11;
  TVP_UPDATE_FILEPATH        = 12;
  TVP_UPDATE_STOPMOTION        = 13;
  TVP_RESETPLAY        = 14;

  TVP_EXECUTE        = 98;
  TVP_NONE        = 99;
  TVP_UNKNOW        = -1;

  TVP_OFF        = 0;
  TVP_ON        = 1;

  TVP_OK        = 0;
  TVP_ERROR        = -1;

(* tvifSetStopType *)
  TVP_STOP_BLACK        = 0;
  TVP_STOP_COLORBAR        = 1;

(* tvifSetWindowType *)
  TVP_WIN_DEFAULT        = 0;
  TVP_WIN_NOFRAME        = 1;

(* tvifSetDrawmode *)
  TVP_FREE_RUN        = 0;
  TVP_PHASE        = 1;
  TVP_LOCK        = 2;

(* tvifGetMouseButton return value *)
  TVIF_MOUSE_LEFT        = 1;
  TVIF_MOUSE_RIGHT        = 2;
  TVIF_MOUSE_MIDDLE        = 4;

//
  TVIF_DEFAULT_SCRIPT_LINE        =  ( 2048 );

  TVP_INTERRUPT_BEFORE        = 0;
  TVP_INTERRUPT_MAIN        = 1;
  TVP_INTEERUPT_USER        = 2;

  function tvifInit(hInstance: PCardinal {HINSTANCE}; script_linemax: Integer; model: Integer): Integer; cdecl; external TvifExport;
  function tvifConnect(hInstance: PCardinal {HINSTANCE}; script_linemax: Integer; model: Integer): Integer; cdecl; external TvifExport;
  procedure tvifExit; cdecl; external TvifExport;
  procedure tvifSafetyStart; cdecl; external TvifExport;
  procedure tvifSetParentHWND(hWnd: HWND); cdecl; external TvifExport;
  procedure tvifSetDrawmode(drawmode: Integer); cdecl; external TvifExport;
  procedure tvifSetFramerate(framerate: Integer); cdecl; external TvifExport;
  procedure tvifSetWindowType(window_type: Integer); cdecl; external TvifExport;

  procedure tvifSetWindowSize(width: Integer; height: Integer); cdecl; external TvifExport;
  procedure tvifSetWindowPosition(x: Integer; y: Integer); cdecl; external TvifExport;

  function tvifSetCommand(command: Integer): Integer; cdecl; external TvifExport;
  procedure tvifSetScript(script: PChar); cdecl; external TvifExport;
  procedure tvifSetInterrputScript(script: PChar); cdecl; external TvifExport;
  procedure tvifSetInterrput(sw: Integer); cdecl; external TvifExport;

  procedure tvifSetMaskImage(bmpfilename: PChar); cdecl; external TvifExport;
  procedure tvifSetMaskColor(maskcolor: ULONG); cdecl; external TvifExport;

  procedure tvifSetStopMode(stop_mode: Integer); cdecl; external TvifExport;
  procedure tvifSetStopType(stop_type: Integer); cdecl; external TvifExport;

  procedure tvifGetWindowSize(var width: Integer; var height: Integer); cdecl; external TvifExport;
  procedure tvifGetWindowPosition(var x: Integer; var y: Integer); cdecl; external TvifExport;
  function tvifGetCommand: Integer; cdecl; external TvifExport;
  function tvifGetStatus: Integer; cdecl; external TvifExport;
  procedure tvifClearStatus; cdecl; external TvifExport;

// Player Set up Functions
  procedure tvifBaseFontSize(fsize: Integer); cdecl; external TvifExport;
  procedure tvifAutoFontReSize(sw: Integer); cdecl; external TvifExport;
  procedure tvifDefaultFont(fontname: PChar); cdecl; external TvifExport;
  procedure tvifModelStationed(sw: Integer); cdecl; external TvifExport;
  function tvifPlayerProcess: Integer; cdecl; external TvifExport;

// Interrupt Functions
  procedure tvifSetinterruptID(id: Integer); cdecl; external TvifExport;
  function tvifGetinterruptID: Integer; cdecl; external TvifExport;
  procedure tvifSetinteruptExitmode(mode: Integer); cdecl; external TvifExport;
  procedure tvifChangeScript(id: Integer); cdecl; external TvifExport;
  function tvifSetFilePath(filename: PChar): Integer; cdecl; external TvifExport;
  procedure tvifAutoResumScript(sw: Integer); cdecl; external TvifExport;
  procedure tvifResumScript; cdecl; external TvifExport;
  function tvifGetLineNumber: Integer; cdecl; external TvifExport;

// User Input Device Functions
  function tvifGetMouseButton: Integer; cdecl; external TvifExport;
  procedure tvifResetMouseButton; cdecl; external TvifExport;
  procedure tvifResetZmouse; cdecl; external TvifExport;
  procedure tvifGetMousePos(var pos: Integer); cdecl; external TvifExport;
  function tvifGetZmouse: Integer; cdecl; external TvifExport;
  function tvifGetKey: Integer; cdecl; external TvifExport;
  procedure tvifClearKey; cdecl; external TvifExport;
  procedure tvifSetKeyevent(key: Integer); cdecl; external TvifExport;

  function tvifCheckLauchFile: Integer; cdecl; external TvifExport;
  procedure tvifSetLaunchFile(filename: PChar); cdecl; external TvifExport;
  procedure tvifGetLaunchFile(filename: PChar); cdecl; external TvifExport;
  procedure tvifForceExit; cdecl; external TvifExport;

implementation

end.