csl.pas

LED字幕显示屏

     case Function_Code of
       CommandMode         : begin
                               Result.SendData[n] := $00; inc(n,1);
                               Result.SendData[n] := Lo(Data_Length);inc(n,1);
                               Result.SendData[n] := Hi(Data_Length);inc(n,1);
                               for I := 0 to length(Parameters) - 1 do
                                 begin
                                   case Parameters[i].Display_command of
                                      CmdCls        : begin
                                                        Result.SendData[n] := $01;
                                                        Result.ChkSum := Result.ChkSum + Result.SendData[n]; inc(n,1);
                                                      end;
                                      CmdClipWindow : begin
                                                        Result.SendData[n] := $02;
                                                        Result.ChkSum := Result.ChkSum + Result.SendData[n]; inc(n,1);
                                                        Result.SendData[n] := Lo(Parameters[i].Display_CmdDate.X1);
                                                        Result.ChkSum := Result.ChkSum + Result.SendData[n]; inc(n,1);
                                                        Result.SendData[n] := Hi(Parameters[i].Display_CmdDate.X1);
                                                        Result.ChkSum := Result.ChkSum + Result.SendData[n]; inc(n,1);
                                                        Result.SendData[n] := Lo(Parameters[i].Display_CmdDate.Y1);
                                                        Result.ChkSum := Result.ChkSum + Result.SendData[n]; inc(n,1);
                                                        Result.SendData[n] := Hi(Parameters[i].Display_CmdDate.Y1);
                                                        Result.ChkSum := Result.ChkSum + Result.SendData[n]; inc(n,1);
                                                        Result.SendData[n] := Lo(Parameters[i].Display_CmdDate.x2);
                                                        Result.ChkSum := Result.ChkSum + Result.SendData[n]; inc(n,1);
                                                        Result.SendData[n] := Hi(Parameters[i].Display_CmdDate.X2);
                                                        Result.ChkSum := Result.ChkSum + Result.SendData[n]; inc(n,1);
                                                        Result.SendData[n] := Lo(Parameters[i].Display_CmdDate.Y2);
                                                        Result.ChkSum := Result.ChkSum + Result.SendData[n]; inc(n,1);
                                                        Result.SendData[n] := Hi(Parameters[i].Display_CmdDate.Y2);
                                                        Result.ChkSum := Result.ChkSum + Result.SendData[n]; inc(n,1);
                                                        Result.SendData[n] := Parameters[i].Display_CmdDate.Clear_Mode;
                                                        Result.ChkSum := Result.ChkSum + Result.SendData[n]; inc(n,1);
                                                      end;
                                      CmdText       : begin
                                                        Result.SendData[n] := $03;
                                                        Result.ChkSum := Result.ChkSum + Result.SendData[n]; inc(n,1);
                                                        Result.SendData[n] := Parameters[i].Display_CmdDate.Style;
                                                        Result.ChkSum := Result.ChkSum + Result.SendData[n]; inc(n,1);
                                                        Result.SendData[n] := Parameters[i].Display_CmdDate.Gap;
                                                        Result.ChkSum := Result.ChkSum + Result.SendData[n]; inc(n,1);
                                                        Result.SendData[n] := Parameters[i].Display_CmdDate.Color;
                                                        Result.ChkSum := Result.ChkSum + Result.SendData[n]; inc(n,1);
                                                        Result.SendData[n] := Parameters[i].Display_CmdDate.Mode;
                                                        Result.ChkSum := Result.ChkSum + Result.SendData[n]; inc(n,1);
                                                        Result.SendData[n] := Parameters[i].Display_CmdDate.Speed;
                                                        Result.ChkSum := Result.ChkSum + Result.SendData[n]; inc(n,1);
                                                        Result.SendData[n] := Parameters[i].Display_CmdDate.Position;
                                                        Result.ChkSum := Result.ChkSum + Result.SendData[n]; inc(n,1);
                                                        Result.SendData[n] := $00;
                                                        Result.ChkSum := Result.ChkSum + Result.SendData[n]; inc(n,1);
                                                      end;
                                      CmdTime       : begin
                                                        Result.SendData[n] := $04;
                                                        Result.ChkSum := Result.ChkSum + Result.SendData[n]; inc(n,1);
                                                        Result.SendData[n] := Lo(Parameters[i].Display_CmdDate.Wait_Time);
                                                        Result.ChkSum := Result.ChkSum + Result.SendData[n]; inc(n,1);
                                                        Result.SendData[n] := Hi(Parameters[i].Display_CmdDate.Wait_Time);
                                                        Result.ChkSum := Result.ChkSum + Result.SendData[n]; inc(n,1);
                                                        Result.SendData[n] := Parameters[i].Display_CmdDate.Style;
                                                        Result.ChkSum := Result.ChkSum + Result.SendData[n]; inc(n,1);
                                                        Result.SendData[n] := Parameters[i].Display_CmdDate.Gap;
                                                        Result.ChkSum := Result.ChkSum + Result.SendData[n]; inc(n,1);
                                                        Result.SendData[n] := Parameters[i].Display_CmdDate.Color;
                                                        Result.ChkSum := Result.ChkSum + Result.SendData[n]; inc(n,1);
                                                        Result.SendData[n] := Parameters[i].Display_CmdDate.Mode;
                                                        Result.ChkSum := Result.ChkSum + Result.SendData[n]; inc(n,1);
                                                        Result.SendData[n] := Parameters[i].Display_CmdDate.Speed;
                                                        Result.ChkSum := Result.ChkSum + Result.SendData[n]; inc(n,1);
                                                        Result.SendData[n] := Parameters[i].Display_CmdDate.Position;
                                                        Result.ChkSum := Result.ChkSum + Result.SendData[n]; inc(n,1);
                                                      end;
                                      CmdDate       : begin
                                                        Result.SendData[n] := $05;
                                                        Result.ChkSum := Result.ChkSum + Result.SendData[n]; inc(n,1);
                                                        Result.SendData[n] := Parameters[i].Display_CmdDate.Style;
                                                        Result.ChkSum := Result.ChkSum + Result.SendData[n]; inc(n,1);
                                                        Result.SendData[n] := Parameters[i].Display_CmdDate.Gap;
                                                        Result.ChkSum := Result.ChkSum + Result.SendData[n]; inc(n,1);
                                                        Result.SendData[n] := Parameters[i].Display_CmdDate.Color;
                                                        Result.ChkSum := Result.ChkSum + Result.SendData[n]; inc(n,1);
                                                        Result.SendData[n] := Parameters[i].Display_CmdDate.Mode;
                                                        Result.ChkSum := Result.ChkSum + Result.SendData[n]; inc(n,1);
                                                        Result.SendData[n] := Parameters[i].Display_CmdDate.Speed;
                                                        Result.ChkSum := Result.ChkSum + Result.SendData[n]; inc(n,1);
                                                        Result.SendData[n] := Parameters[i].Display_CmdDate.Position;
                                                        Result.ChkSum := Result.ChkSum + Result.SendData[n]; inc(n,1);
                                                      end;
                                      CmdAlarm      : begin
                                                        Result.SendData[n] := $06;
                                                        Result.ChkSum := Result.ChkSum + Result.SendData[n]; inc(n,1);
                                                        Result.SendData[n] := Parameters[i].Display_CmdDate.Num;
                                                        Result.ChkSum := Result.ChkSum + Result.SendData[n]; inc(n,1);
                                                      end;
                                      CmdDelay      : Begin
                                                        Result.SendData[n] := $07;
                                                        Result.ChkSum := Result.ChkSum + Result.SendData[n]; inc(n,1);
                                                        Result.SendData[n] := Lo(Parameters[i].Display_CmdDate.DelayTime);
                                                        Result.ChkSum := Result.ChkSum + Result.SendData[n]; inc(n,1);
                                                        Result.SendData[n] := Hi(Parameters[i].Display_CmdDate.DelayTime);
                                                        Result.ChkSum := Result.ChkSum + Result.SendData[n]; inc(n,1);
                                                      end;
                                      CmdEffect     : begin
                                                        Result.SendData[n] := $08;
                                                        Result.ChkSum := Result.ChkSum + Result.SendData[n]; inc(n,1);
                                                        Result.SendData[n] := Parameters[i].Display_CmdDate.Effect_Mode;
                                                        Result.ChkSum := Result.ChkSum + Result.SendData[n]; inc(n,1);
                                                        Result.SendData[n] := Parameters[i].Display_CmdDate.Speed;
                                                        Result.ChkSum := Result.ChkSum + Result.SendData[n]; inc(n,1);
                                                      end;
                                      CmdEnd        : begin
                                                        Result.SendData[n] := $1F;
                                                        Result.ChkSum := Result.ChkSum + Result.SendData[n]; inc(n,1);
                                                      end;
                                   end;
                                end;
                             end;
       ChangeDataTimeMode  :   Result.SendData[n] := $01;

       TestSignMode        :   Result.SendData[n] := $02;
     end;
     Result.SendData[n]:= Lo(Result.ChkSum);


   end;

end.