vfwtcl.cpp

来自「简单的vc视频捕捉」· C++ 代码 · 共 25 行

#include <tk.h>
#include <tkwinint.h>
#include "avicaptcl.h"
#include "avifiletcl.h"
#include "avidibtcl.h"

#ifdef __WIN32__
#define _IF __declspec(dllexport)
#else
#define _IF 
#endif
extern "C" {
_IF int Vfwtcl_Init(Tcl_Interp *interp) {
	avicapInit();
	avifileInit();
	dibInit();
	Tcl_CreateObjCommand(interp, "avicap", avicapCmd,(ClientData)NULL, (Tcl_CmdDeleteProc *)NULL);
	Tcl_CreateObjCommand(interp, "avisources", aviSourcesCmd,(ClientData)NULL, (Tcl_CmdDeleteProc *)NULL);
	Tcl_CreateObjCommand(interp, "avifile", avifileCmd,(ClientData)NULL, (Tcl_CmdDeleteProc *)NULL);
	Tcl_CreateObjCommand(interp, "dib", dibCmd,(ClientData)NULL, (Tcl_CmdDeleteProc *)NULL);
	Tcl_PkgProvide(interp, "avicap", "1.2");
	return TCL_OK;
}
}