名前
題名
▼ TSさん > ▼ 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. > >
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link