bocom.pas

把类封装成dll文件

					CommandStr:=VideoClose_Cmd+' '+VideoClose_Source ;
					result:=SendMessage;
				end;
				
			function  TBocom.VideoTop(VideoTop_Source:string):string;  //前置窗口
				begin
					CommandStr:=VideoTop_Cmd+' '+VideoTop_Source ;
					result:=SendMessage;
				end;
				
			function  TBocom.VideoBright(VideoBright_Source:string;VideoBright_Value:integer):string;  //调整亮度
				begin
					CommandStr:=VideoBright_Cmd+' '+VideoBright_Source+' '+inttostr(VideoBright_Value) ;
					result:=SendMessage;
				end;
				
			function  TBocom.VideoContrast(VideoContrast_Source:string;VideoContrast_Value:integer):string;  //调整对比度
				begin
					CommandStr:=VideoContrast_Cmd+' '+VideoContrast_Source+' '+inttostr(VideoContrast_Value) ;
					result:=SendMessage;
				end;
				
			function  TBocom.VideoHue(VideoHue_Source:string;VideoHue_Value:integer):string;  //调整色度
				begin
					CommandStr:=VideoHue_Cmd+' '+VideoHue_Source+' '+inttostr(VideoHue_Value) ;
					result:=SendMessage;
				end;
				
			function  TBocom.VideoFormatN(VideoFormatN_Source:string):string;  //信号制式ntsc
				begin
					CommandStr:=VideoFormatN_Cmd+' '+VideoFormatN_Source ;
					result:=SendMessage;
				end;
				
			function  TBocom.VideoFormatS(VideoFormatS_Source:string):string;  //信号制式secam
				begin
					CommandStr:=VideoFormatS_Cmd+' '+VideoFormatS_Source ;
					result:=SendMessage;
				end;
				
			function  TBocom.VideoFormatP(VideoFormatP_Source:string):string;  //信号制式pal
				begin
					CommandStr:=VideoFormatP_Cmd+' '+VideoFormatP_Source ;
					result:=SendMessage;
				end;
				
//-----摄像机信号控制-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
				
			function  TBocom.CameraNear(CameraNear_Speed:integer;CameraNear_Num:integer):string;  //摄像机拉近开始
				begin
					CommandStr:=CameraNear_Cmd+' '+inttostr(CameraNear_Speed)+' '+inttostr(CameraNear_Num)+' 0';
					result:=SendMessage;
				end;
				
			function  TBocom.CameraStopNear(CameraStopNear_Num:integer):string;  //摄像机拉近结束
				begin
					CommandStr:=CameraStopNear_Cmd+' '+inttostr(CameraStopNear_Num)+' 0';
					result:=SendMessage;
				end;
				
			function  TBocom.CameraFar(CameraFar_Speed:integer;CameraFar_Num:integer):string;  //摄像机拉远开始
				begin
					CommandStr:=CameraFar_Cmd+' '+inttostr(CameraFar_Speed)+' '+inttostr(CameraFar_Num)+' 0';
					result:=SendMessage;
				end;
				
			function  TBocom.CameraStopFar(CameraStopFar_Num:integer):string;  //摄像机拉远结束
				begin
					CommandStr:=CameraStopFar_Cmd+' '+inttostr(CameraStopFar_Num)+' 0' ;
					result:=SendMessage;
				end;
				
			function  TBocom.CameraUp(CameraUp_Speed:integer;CameraUp_Num:integer):string;  //摄像机上移开始
				begin
					CommandStr:=CameraUp_Cmd+' '+inttostr(CameraUp_Speed)+' '+inttostr(CameraUp_Num)+' 0';
					result:=SendMessage;
				end;
				
			function  TBocom.CameraStopUp(CameraStopUp_Num:integer):string;  //摄像机上移结束
				begin
					CommandStr:=CameraStopUp_Cmd+' '+inttostr(CameraStopUp_Num)+' 0' ;
					result:=SendMessage;
				end;
				
			function  TBocom.CameraDown(CameraDown_Speed:integer;CameraDown_Num:integer):string;  //摄像机下移开始
				begin
					CommandStr:=CameraDown_Cmd+' '+inttostr(CameraDown_Speed)+' '+inttostr(CameraDown_Num)+' 0';
					result:=SendMessage;
				end;
				
			function  TBocom.CameraStopDown(CameraStopDown_Num:integer):string;  //摄像机下移结束
				begin
					CommandStr:=CameraStopDown_Cmd+' '+inttostr(CameraStopDown_Num)+' 0' ;
					result:=SendMessage;
				end;
				
			function  TBocom.CameraLeft(CameraLeft_Speed:integer;CameraLeft_Num:integer):string;  //摄像机左移开始
				begin
					CommandStr:=CameraLeft_Cmd+' '+inttostr(CameraLeft_Speed)+' '+inttostr(CameraLeft_Num)+' 0';
					result:=SendMessage;
				end;
				
			function  TBocom.CameraStopLeft(CameraStopLeft_Num:integer):string;  //摄像机左移结束
				begin
					CommandStr:=CameraStopLeft_Cmd+' '+inttostr(CameraStopLeft_Num)+' 0' ;
					result:=SendMessage;
				end;
				
			function  TBocom.CameraRight(CameraRight_Speed:integer;CameraRight_Num:integer):string;  //摄像机右移开始
				begin
					CommandStr:=CameraRight_Cmd+' '+inttostr(CameraRight_Speed)+' '+inttostr(CameraRight_Num)+' 0';
					result:=SendMessage;
				end;
				
			function  TBocom.CameraStopRight(CameraStopRight_Num:integer):string;  //摄像机右移结束
				begin
					CommandStr:=CameraStopRight_Cmd+' '+inttostr(CameraStopRight_Num)+' 0' ;
					result:=SendMessage;
				end;
				
			function  TBocom.CameraFocusFar(CameraFocusFar_Speed:integer;CameraFocusFar_Num:integer):string;  //调远焦距开始
				begin
					CommandStr:=CameraFocusFar_Cmd+' '+inttostr(CameraFocusFar_Speed)+' '+inttostr(CameraFocusFar_Num)+' 0';
					result:=SendMessage;
				end;
				
			function  TBocom.CameraStopFocusFar(CameraStopFocusFar_Num:integer):string;  //调远焦距结束
				begin
					CommandStr:=CameraStopFocusFar_Cmd+' '+inttostr(CameraStopFocusFar_Num)+' 0' ;
					result:=SendMessage;
				end;
				
			function  TBocom.CameraFocusNear(CameraFocusNear_Speed:integer;CameraFocusNear_Num:integer):string;  //调近焦距开始
				begin
					CommandStr:=CameraFocusNear_Cmd+' '+inttostr(CameraFocusNear_Speed)+' '+inttostr(CameraFocusNear_Num)+' 0' ;
					result:=SendMessage;
				end;
				
			function  TBocom.CameraStopFocusNear(CameraStopFocusNear_Num:integer):string;  //调近焦距结束
				begin
					CommandStr:=CameraStopFocusNear_Cmd+' '+inttostr(CameraStopFocusNear_Num)+' 0';
					result:=SendMessage;
				end;
				
	//RGB信号控制---------------------------------------------------------------------------------------------------------------------------------------------------------------------------
				
			function  TBocom.RGBShow(RGBShow_Source:string;RGBShow_Left:integer;RGBShow_Top:integer;RGBShow_Width:integer;RGBShow_Hight:integer;RGBShow_ID:integer):string;  //开RGB信号
				begin
					CommandStr:=RGBShow_Cmd+' '+RGBShow_Source+' '+inttostr(RGBShow_Left)+' '+inttostr(RGBShow_Top)+' '+inttostr(RGBShow_Width)+' '+inttostr(RGBShow_Hight)+' '+inttostr(RGBShow_ID)+' -1 -1' ;
					result:=SendMessage;
				end;
				
			function  TBocom.RGBMove(RGBMove_Source:string;RGBMove_Left:integer;RGBMove_Top:integer):string;  //移动位置
				begin
					CommandStr:=RGBMove_Cmd+' '+RGBMove_Source+' '+inttostr(RGBMove_Left)+' '+inttostr(RGBMove_Top) ;
					result:=SendMessage;
				end;
				
			function  TBocom.RGBSize(RGBSize_Source:string;RGBSize_Width:integer;RGBSize_Hight:integer):string;  //调整大小
				begin
					CommandStr:=RGBSize_Cmd+' '+RGBSize_Source+' '+inttostr(RGBSize_Width)+' '+inttostr(RGBSize_Hight);
					result:=SendMessage;
				end;
			function  TBocom.RGBTop(RGBTop_Source:string):string;  //前置窗口
				begin
					CommandStr:=RGBTop_Cmd+' '+RGBTop_Source;
					result:=SendMessage;
				end;
				
			function  TBocom.RGBLeft(RGBLeft_Source:string):string;  //信号源左移
				begin
					CommandStr:=RGBLeft_Cmd+' '+RGBLeft_Source ;
					result:=SendMessage;
				end;
				
			function  TBocom.RGBRight(RGBRight_Source:string):string;  //信号源右移
				begin
					CommandStr:=RGBRight_Cmd+' '+RGBRight_Source ;
					result:=SendMessage;
				end;
				
			function  TBocom.RGBUp(RGBUp_Source:string):string;  //信号源上移
				begin
					CommandStr:=RGBUp_Cmd+' '+RGBUp_Source ;
					result:=SendMessage;
				end;
				
			function  TBocom.RGBDown(RGBDown_Source:string):string;  //信号源下移
				begin
					CommandStr:=RGBDown_Cmd+' '+RGBDown_Source;
					result:=SendMessage;
				end;
				
			function  TBocom.RGBBrightUp(RGBBrightUp_Source:string):string;  //调整亮度＋
				begin
					CommandStr:=RGBBrightUp_Cmd+' '+RGBBrightUp_Source ;
					result:=SendMessage;
				end;
				
			function  TBocom.RGBBrightDown(RGBBrightDown_Source:string):string;  //调整亮度－
				begin
					CommandStr:=RGBBrightDown_Cmd+' '+RGBBrightDown_Source ;
					result:=SendMessage;
				end;
				
			function  TBocom.RGBContrastUp(RGBContrastUp_Source:string):string;  //调整对比度＋
				begin
					CommandStr:=RGBContrastUp_Cmd+' '+RGBContrastUp_Source ;
					result:=SendMessage;
				end;
				
			function  TBocom.RGBContrastDown(RGBContrastDown_Source:string):string;  //调整对比度－
				begin
					CommandStr:=RGBContrastDown_Cmd+' '+RGBContrastDown_Source ;
					result:=SendMessage;
				end;
				
			function  TBocom.RGBClose(RGBClose_Source:string):string;  //关闭RGB信号
				begin
					CommandStr:=RGBClose_Cmd+' '+RGBClose_Source;
					result:=SendMessage;
				end;

	//NetPC控制-----------------------------------------------------------------------------------------------------------------------------------------------------------

			function  TBocom.NetPcShow(NetPcShow_Source:string;NetPcShow_Left:integer;NetPcShow_Top:integer;NetPcShow_Width:integer;NetPcShow_Hight:integer;NetPcShow_IP:string):string;  //开NETPC
				begin
					CommandStr:=NetPcShow_Cmd+' '+NetPcShow_Source+' '+inttostr(NetPcShow_Left)+' '+inttostr(NetPcShow_Top)+' '+inttostr(NetPcShow_Width)+' '+inttostr(NetPcShow_Hight)+' '+NetPcShow_IP+' -1 -1' ;
					result:=SendMessage;
				end;

			function  TBocom.NetPcMove(NetPcMove_Source:string;NetPcMove_Left:integer;NetPcMove_Top:integer):string;  //移动位置
				begin
					CommandStr:=NetPcMove_Cmd+' '+NetPcMove_Source+' '+inttostr(NetPcMove_Left)+' '+inttostr(NetPcMove_Top) ;
					result:=SendMessage;
				end;

			function  TBocom.NetPcTop(NetPcTop_Source:string):string;  //前置窗口
				begin
					CommandStr:=NetPcTop_Cmd+' '+NetPcTop_Source;
					result:=SendMessage;
				end;
				
			function  TBocom.NetPcSize(NetPcSize_Source:string;NetPcSize_Width:integer;NetPcSize_Hight:integer):string;  //调整大小
				begin
					CommandStr:=NetPcSize_Cmd+' '+NetPcSize_Source+' '+inttostr(NetPcSize_Width)+' '+inttostr(NetPcSize_Hight);
					result:=SendMessage;
				end;
				
			function  TBocom.NetPcClose(NetPcClose_Source:string):string;  //关NETPC
				begin
					CommandStr:=NetPcClose_Cmd+' '+NetPcClose_Source;
					result:=SendMessage;
				end;