?? bocom.pas.~1~
字號:
unit Bocom;
//***********************************************************
//本類是根據Bocom大屏的矩陣服務器管理軟件編寫，用作開發客戶端程序，因此本類
//中封裝了跟服務器通訊的基本接口，如連接、斷開連接、發送信息等指令接口，以及
//delaytime等參數接口，在此基礎上可以很容易完成應用程序開發。
//具體是用方法：
//1 調用Connection(Ip:string;Port:integer)過程進行服務器連接 。
//2 設置返回信息等待時間delaytime，調用控制命令函數，完成數據發送并返回信息。
//3 調用DisConnection過程斷開與服務器的連接。
//**********************************************************
interface
uses
SysUtils, Forms, ScktComp,DateUtils, Dialogs,classes;
type
TBocom = class //自定義基類
//------------------------------------------------------------------------------------------
private //內部變量、函數和過程定義
CommandStr:string; //命令字符串
BackMessage:string; //控制命令反饋信息
client : Tclientsocket; //生成TclientSocket對象
function SendMessage:string ; //發送信息
procedure ReadMessage(Sender: TObject;Socket: TCustomWinSocket); //讀取信息事件
//-----------------------------------------------------------------------------------------
public //外部可見變量和函數定義
DelayTime:integer;// 接收信息延遲時間設置，在時間范圍內接收信息，超出后跳出。
//*********************外部可調用過程********************************
//--//視頻信號控制---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
function VideoShow(VideoShow_Source:string;VideoShow_Left:integer;VideoShow_Top:integer;VideoShow_Width:integer;VideoShow_Hight:integer;VideoShow_ID:integer):string;//開視頻
function VideoSize(VideoSize_Source:string;VideoSize_Width:integer;VideoSize_Hight:integer):string;//調整大小
function VideoMove(VideoMove_Source:string;VideoMove_Left:integer;VideoMove_Top:integer):string;//移動位置
function VideoClose(VideoClose_Source:string):string;//關閉視頻
function VideoTop(VideoTop_Source:string):string;//前置窗口
function VideoBright(VideoBright_Source:string;VideoBright_Value:integer):string;//調整亮度
function VideoContrast(VideoContrast_Source:string;VideoContrast_Value:integer):string;//調整對比度
function VideoHue(VideoHue_Source:string;VideoHue_Value:integer):string;//調整色度
function VideoFormatN(VideoFormatN_Source:string):string;//信號制式ntsc
function VideoFormatS(VideoFormatS_Source:string):string;//信號制式secam
function VideoFormatP(VideoFormatP_Source:string):string;//信號制式pal
//-----攝像機信號控制-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
function CameraNear(CameraNear_Speed:integer;CameraNear_Num:integer):string;//攝像機拉近開始
function CameraStopNear(CameraStopNear_Num:integer):string;//攝像機拉近結束
function CameraFar(CameraFar_Speed:integer;CameraFar_Num:integer):string;//攝像機拉遠開始
function CameraStopFar(CameraStopFar_Num:integer):string;//攝像機拉遠結束
function CameraUp(CameraUp_Speed:integer;CameraUp_Num:integer):string;//攝像機上移開始
function CameraStopUp(CameraStopUp_Num:integer):string;//攝像機上移結束
function CameraDown(CameraDown_Speed:integer;CameraDown_Num:integer):string;//攝像機下移開始
function CameraStopDown(CameraStopDown_Num:integer):string;//攝像機下移結束
function CameraLeft(CameraLeft_Speed:integer;CameraLeft_Num:integer):string;//攝像機左移開始
function CameraStopLeft(CameraStopLeft_Num:integer):string;//攝像機左移結束
function CameraRight(CameraRight_Speed:integer;CameraRight_Num:integer):string;//攝像機右移開始
function CameraStopRight(CameraStopRight_Num:integer):string;//攝像機右移結束
function CameraFocusFar(CameraFocusFar_Speed:integer;CameraFocusFar_Num:integer):string;//調遠焦距開始
function CameraStopFocusFar(CameraStopFocusFar_Num:integer):string;//調遠焦距結束
function CameraFocusNear(CameraFocusNear_Speed:integer;CameraFocusNear_Num:integer):string;//調近焦距開始
function CameraStopFocusNear(CameraStopFocusNear_Num:integer):string;//調近焦距結束
//RGB信號控制---------------------------------------------------------------------------------------------------------------------------------------------------------------------------
function RGBShow(RGBShow_Source:string;RGBShow_Left:integer;RGBShow_Top:integer;RGBShow_Width:integer;RGBShow_Hight:integer;RGBShow_ID:integer):string;//開RGB信號
function RGBMove(RGBMove_Source:string;RGBMove_Left:integer;RGBMove_Top:integer):string;//移動位置
function RGBSize(RGBSize_Source:string;RGBSize_Width:integer;RGBSize_Hight:integer):string;//調整大小
function RGBTop(RGBTop_Source:string):string;//前置窗口
function RGBLeft(RGBLeft_Source:string):string;//信號源左移
function RGBRight(RGBRight_Source:string):string;//信號源右移
function RGBUp(RGBUp_Source:string):string;//信號源上移
function RGBDown(RGBDown_Source:string):string;//信號源下移
function RGBBrightUp(RGBBrightUp_Source:string):string;//調整亮度＋
function RGBBrightDown(RGBBrightDown_Source:string):string;//調整亮度－
function RGBContrastUp(RGBContrastUp_Source:string):string;//調整對比度＋
function RGBContrastDown(RGBContrastDown_Source:string):string;//調整對比度－
function RGBClose(RGBClose_Source:string):string;//關閉RGB信號
//NetPC控制-----------------------------------------------------------------------------------------------------------------------------------------------------------
function NetPcShow(NetPcShow_Source:string;NetPcShow_Left:integer;NetPcShow_Top:integer;NetPcShow_Width:integer;NetPcShow_Hight:integer;NetPcShow_IP:string):string;//開NETPC
function NetPcMove(NetPcMove_Source:string;NetPcMove_Left:integer;NetPcMove_Top:integer):string;//移動位置
function NetPcTop(NetPcTop_Source:string):string;//前置窗口
function NetPcSize(NetPcSize_Source:string;NetPcSize_Width:integer;NetPcSize_Hight:integer):string;//調整大小
function NetPcClose(NetPcClose_Source:string):string;//關NETPC
//其他控制---------------------------------------------------------------------------------------------------------------------------------------------------------------------
function MaxRGBShow(MaxRGBShow_Source:string;MaxRGBShow_Left:integer;MaxRGBShow_Top:integer;MaxRGBShow_Width:integer;MaxRGBShow_Hight:integer;MaxRGBShow_ID:integer;MaxRGBShow_RowCount:integer;MaxRGBShow_ColCount:integer):string;//開RGB信號
function MaxRGBClose(MaxRGBClose_Source:string):string;//關閉RGB信號
function MaxVideoShow(MaxVideoShow_Source:string;MaxVideoShow_Left:integer;MaxVideoShow_Top:integer;MaxVideoShow_Width:integer;MaxVideoShow_Hight:integer;MaxVideoShow_ID:integer;MaxVideoShow_RowCount:integer;MaxVideoShow_ColCount:integer):string;//開VIDEO信號
function MaxVideoClose(MaxVideoClose_Source:string):string;//關閉VIDEO信號
function ProjectorShow(ProjectorShow_Source:string;ProjectorShow_Left:integer;ProjectorShow_Top:integer;ProjectorShow_Width:integer;ProjectorShow_Hight:integer;ProjectorShow_ID:integer;ProjectorShow_RowCount:integer;ProjectorShow_ColCount:integer):string;//開投影機信燈
function ProjectorClose(ProjectorClose_Source:string):string;//關閉投影機信燈
function Login(Login_UserID:string;Login_Password:string):string;//登記用戶
function ListCamera():string;//列出攝像機信號
function ListNetPc():string;//列出netpc信號
function ListRGB():string;//列出rgbpc信號
function ListScheme():string;//列出預案
function ListDirectChannel():string;//列出直接通信號
function ListLiveWnd():string;//列出當前顯示窗
function Unlogin():string;//注銷用戶
{ //---------------------------------------
function MaxVideoToRGB1():string;//maxvideo switch RGB1
function MaxVideoToRGB2():string;//maxvideo switch RGB2
function MaxVideoToVideo():string;// maxvideo switch VIDEO
function MaxVideoOnAll():string;//maxvideo power onall
function MaxVideoOffAll():string;//maxvideo power Offall
//直接通道信號控制---------------------------------------------------------------------------------------------------------------------
function DChannelShow(DChannelShow_Source:string;DChannelShow_Left:integer;DChannelShow_Top:integer;DChannelShow_Width:integer;DChannelShow_Hight:integer;DChannelShow_ID:integer):string;//開通道信號
function DChannelMove(DChannelMove_Source:string;DChannelMove_Left:integer;DChannelMove_Top:integer):string;//移動位置
function DChannelTop(DChannelTop_Source:string):string;//前置窗口
function DChannelSize(DChannelSize_Source:string;DChannelSize_Left:integer;DChannelSize_Top:integer):string;//調整大小
function DChannelClose(DChannelClose_Source:string):string;//關通道信號
function DChannelN(DChannelN_Mode:string;DChannelN_Source:string):string;//信號制式ntsc
function DChannelS(DChannelS_Mode:string;DChannelS_Source:string):string;//信號制式secam
function DChannelP(DChannelP_Mode:string;DChannelP_Source:string):string;//信號制式pal
function DChannelBright(DChannelBright_Source:string;DChannelBright_Value:integer):string;//調整亮度
function DChannelContrast(DChannelContrast_Source:string;DChannelContrast_Value:integer):string;//調整對比度
function DChannelHue(DChannelHue_Source:string;DChannelHue_Value:integer):string;//調整色度
function DChannelChange(DChannelChange_Source:string;DChannelChange_Value:integer):string;//更改信號源
}
//*********************************************
constructor create;
procedure Connection(Ip:string;Port:integer);
procedure DisConnection;
end;
//*************************命令字符串常量*******************************
const
//-------------------------------------------------------------------------------
VideoShow_Cmd='ntvideo show';
VideoSize_Cmd='ntvideo size';
VideoMove_Cmd='ntvideo move';
VideoClose_Cmd='ntvideo close';
VideoTop_Cmd='gotop';
VideoBright_Cmd='ntvideo brightness';
VideoContrast_Cmd='ntvideo contrast';
VideoHue_Cmd='hue';
VideoFormatN_Cmd='ntvideo format ntsc';
VideoFormatS_Cmd='ntvideo format secam';
VideoFormatP_Cmd='ntvideo format pal';
//-------------------------------------------------------------------------------
CameraNear_Cmd='camera near';
CameraStopNear_Cmd='camera stopnear';
CameraFar_Cmd='camera far';
CameraStopFar_Cmd='camera stopfar';
CameraUp_Cmd='camera up';
CameraStopUp_Cmd='camera stopup';
CameraDown_Cmd='camera down';
CameraStopDown_Cmd='camera stopdown';
CameraLeft_Cmd='camera left';
CameraStopLeft_Cmd='camera stopleft';
CameraRight_Cmd='camera right';
CameraStopRight_Cmd='camera stopright ';
CameraFocusFar_Cmd='camera focus> ';
CameraStopFocusFar_Cmd='camera stopfocus>';
CameraFocusNear_Cmd='camera focus<';
CameraStopFocusNear_Cmd='camera stopfocus<';
RGBShow_Cmd='rgbpc show';
RGBMove_Cmd='rgbpc move';
RGBSize_Cmd='rgbpc size';
RGBTop_Cmd='gotop';
RGBLeft_Cmd='rgbpc left';
RGBRight_Cmd='rgbpc right';
RGBUp_Cmd='rgbpc up';
RGBDown_Cmd='rgbpc down';
RGBBrightUp_Cmd='rgbpc brightnessup';
RGBBrightDown_Cmd='rgbpc brightnessdown';
RGBContrastUp_Cmd='rgbpc contrastup';
RGBContrastDown_Cmd='rgbpc contrastdown';
RGBClose_Cmd='rgbpc close';
DChannelShow_Cmd='directchannel show';
DChannelMove_Cmd='directchannel move';
DChannelTop_Cmd='';
DChannelSize_Cmd='directchannel size';
DChannelClose_Cmd='directchannel close';
DChannelN_Cmd='directchannel format ntsc';
DChannelS_Cmd='directchannel format secam';
DChannelP_Cmd='directchannel format pal';
DChannelBright_Cmd='directchannel brightness';
DChannelContrast_Cmd='directchannel contrast';
DChannelHue_Cmd='directchannel hue';
DChannelChange_Cmd='directchannel source';
NetPcShow_Cmd='netpc show';
NetPcMove_Cmd='netpc move';
NetPcTop_Cmd='gotop';
NetPcSize_Cmd='netpc size';
NetPcClose_Cmd='netpc close';
Login_Cmd='manager login ';
ListCamera_Cmd='list camera';
ListNetPc_Cmd='list netpc';
ListRGB_Cmd='list rgbpc';
ListScheme_Cmd='list scheme';
ListDirectChannel_Cmd='list directchannel';
ListLiveWnd_Cmd='list livewnd';
Unlogin_Cmd='Manager unlogin';
MaxRGBShow_Cmd='maxrgbpc show';
MaxRGBClose_Cmd='maxrgbpc close';
MaxVideoShow_Cmd='maxvideo show';
MaxVideoClose_Cmd='maxvideo close';
ProjectorShow_Cmd='maxvideo show';
ProjectorClose_Cmd='maxvideo close';
MaxVideoToRGB1_Cmd='maxvideo switch RGB1';
MaxVideoToRGB2_Cmd='maxvideo switch RGB2';
MaxVideoToVideo_Cmd='maxvideo switch VIDEO';
MaxVideoOnAll_Cmd='maxvideo power onall';
MaxVideoOffAll_Cmd='maxvideo power offall';
implementation
constructor TBocom.create;
begin
client := tclientsocket.Create(client);
client.OnRead := readmessage;
end;
//--//視頻信號控制---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
function TBocom.VideoShow(VideoShow_Source:string;VideoShow_Left:integer;VideoShow_Top:integer;VideoShow_Width:integer;VideoShow_Hight:integer;VideoShow_ID:integer):string; //開視頻
begin
CommandStr:=VideoShow_Cmd+' '+VideoShow_Source+' '+inttostr(VideoShow_Left)+' '+inttostr(VideoShow_Top)+' '+inttostr(VideoShow_Width)+' '+inttostr(VideoShow_Hight)+' '+inttostr(VideoShow_ID)+' -1 -1' ;
result:=SendMessage;
end;
function TBocom.VideoSize(VideoSize_Source:string;VideoSize_Width:integer;VideoSize_Hight:integer):string; //調整大小
begin
CommandStr:=VideoSize_Cmd+' '+VideoSize_Source+' '+inttostr(VideoSize_Width)+' '+inttostr(VideoSize_Hight) ;
result:=SendMessage;
end;
function TBocom.VideoMove(VideoMove_Source:string;VideoMove_Left:integer;VideoMove_Top:integer):string; //移動位置
begin
CommandStr:=VideoMove_Cmd+' '+VideoMove_Source+' '+inttostr(VideoMove_Left)+' '+inttostr(VideoMove_Top) ;
result:=SendMessage;
end;
function TBocom.VideoClose(VideoClose_Source:string):string; //關閉視頻
begin
CommandStr:=VideoClose_Cmd+' '+VideoClose_Source ;
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -