?? bocom.pas
字號:
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;
//其他控制---------------------------------------------------------------------------------------------------------------------------------------------------------------------
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -