unit LedAPI; 
 
interface 
 
Uses 
  Windows,Messages; 
 
Const 
  LedSender = 'LedSender.dll'; 
 
Const 
  INVALID_DEVICE_HANDLE = -1; 
 
  DEVICE_TYPE_COM  =  0; 
  DEVICE_TYPE_UDP  =  1; 
 
  SBR_9600      =  0; 
  SBR_14400     =  1; 
  SBR_19200     =  2; 
  SBR_38400     =  3; 
  SBR_57600     =  4; 
  SBR_115200    =  5; 
 
  ROOT_PLAY     =  $11;      //下發節目為僅播放數據 
  ROOT_DOWNLOAD =  $12;      //下發節目為保存并播放 
 
  SCREEN_UNICOLOR  = 1;      //單色顯示屏 
  SCREEN_COLOR     = 2;      //雙色顯示屏 
  SCREEN_FULLCOLOR = 3;      //全彩色顯示屏 
  SCREEN_GRAY      = 4;      //256級灰度屏 
 
  LM_RX_COMPLETE   =  1; 
  LM_TX_COMPLETE   =  2; 
  LM_RESPOND       =  3; 
  LM_TIMEOUT       =  4; 
  LM_NOTIFY        =  5; 
  LM_PARAM         =  6; 
  LM_TX_PROGRESS   =  7; 
  LM_RX_PROGRESS   =  8; 
 
//時間格式定義，用于AddDateTime函數中format參數 
  DF_YMD           = 1;      //年月日  "2004年12月31日" 
  DF_HN            = 2;      //時分    "19:20" 
  DF_HNS           = 3;      //時分秒  "19:20:30" 
  DF_Y             = 4;      //年      "2004" 
  DF_M             = 5;      //月      "12" "01" 注意：始終顯示兩位數字 
  DF_D             = 6;      //日 
  DF_H             = 7;      //時 
  DF_N             = 8;      //分 
  DF_S             = 9;      //秒 
  DF_W             = 10;     //星期    "星期三" 
 
//正計時、倒計時format參數 
  CF_DAY           = 0;      //天數 
  CF_HOUR          = 1;      //小時數 
  CF_HMS           = 2;      //時分秒 
  CF_HM            = 3;      //時分 
  CF_MS            = 4;      //分秒 
  CF_S             = 5;      //秒 
 
  LED_POWER_ON     = 1;      //顯示屏電源打開 
  LED_POWER_OFF    = 0;      //顯示屏電源已關閉 
 
  FONT_SET_16      = 0;      //16點陣字符 
  FONT_SET_24      = 1;      //24點陣字符 
   
  PKC_QUERY           =  4; 
  PKC_ADJUST_TIME     =  6; 
  PKC_GET_POWER       =  9; 
  PKC_SET_POWER       = 10; 
  PKC_GET_BRIGHT      = 11; 
  PKC_SET_BRIGHT      = 12; 
 
Type 
  TDeviceParam = Packed Record 
    devType:   DWord; 
    Speed:     DWord; 
    ComPort:   DWord; 
    FlowCon:   DWord; 
    locPort:   DWord; 
    rmtPort:   DWord; 
    memory:    DWord; 
    Reserved:  Array [0..4] of DWord; 
  End; 
  PDeviceParam = ^TDeviceParam; 
 
  TNotifyMessage = Packed Record 
    Message:  Integer; 
    Command:  Integer; 
    Result:   Integer; 
    Status:   Integer; 
    Address:  Integer; 
    Size:     Integer; 
    Buffer:   Pointer; 
    Param:    TDeviceParam; 
    Host:     Array [0..15] of Char; 
    Port:     Integer; 
  End; 
  PNotifyMessage = ^TNotifyMessage; 
 
 
  TTimeStamp = Packed Record 
    date:      LongInt; 
    time:      LongInt; 
  End; 
  PTimeStamp = ^TTimeStamp; 
 
Procedure LED_Startup; Stdcall; External LedSender; 
Procedure LED_Cleanup; StdCall; External LedSender; 
Function  LED_Open(param: PDeviceParam; Notify, Window, Message: Integer): Integer; Stdcall; External LedSender; 
Procedure LED_Close(dev: Integer); Stdcall; External LedSender; 
Procedure LED_Query(dev: Integer; Address: Byte; Host: PChar; Port: Word); Stdcall; External LedSender; 
Procedure LED_AdjustTime(dev: Integer; Address: Byte; Host: PChar; Port: Word); Stdcall; External LedSender; 
Procedure LED_SendToScreen(dev: Integer; Address: Byte; Host: PChar; Port: Word); Stdcall; External LedSender; 
Procedure LED_SetPower(dev: Integer; Address: Byte; Host: PChar; Port: Word; Power: DWord); Stdcall; External LedSender; 
Procedure LED_GetPower(dev: Integer; Address: Byte; Host: PChar; Port: Word); Stdcall; External LedSender; 
Procedure LED_SetBrightness(dev: Integer; Address: Byte; Host: PChar; Port: Word; Brightness: Byte); Stdcall; External LedSender; 
Procedure LED_GetBrightness(dev: Integer; Address: Byte; Host: PChar; Port: Word); Stdcall; External LEDSender; 
Function  MakeRoot(RootType: Integer; ScreenType: Integer): Integer; Stdcall; External LEDSender; 
Function  AddLeaf(DisplayTime: Integer): Integer; Stdcall;  External LEDSender; 
Function  AddWindow(DC: HDC; Width,Height: Integer; ARect: PRect; Method,Speed,Transparent: Integer): Integer; Stdcall;  External LEDSender; 
Function  AddDateTime(ARect: PRect; Transparent: Integer; FontName: PChar; FontSize,FontColor: Integer; Format: Integer): Integer; Stdcall; External LEDSender; 
Function  AddString(Str: PChar; ARect: PRect; Method,Speed,Transparent: Integer; FontSet,FontColor: Integer): Integer; Stdcall; External LEDSender; 
Function  AddText(str: PChar; rect: PRect; method: Integer; speed: Integer; transparent: Integer; fontname: PChar; fontsize,fontcolor: Integer): Integer; Stdcall; External LEDSender; 
Function  AddMovie(filename: PChar; rect: PRect; stretch: Integer): Integer; Stdcall; External LEDSender; 
Function  AddCountUp(rect: PRect; transparent: Integer; fontname: PChar; fontsize,fontcolor,format: Integer; starttime: PSystemTime): Integer; Stdcall; External LEDSender; 
Function  AddCountDown(rect: PRect; transparent: Integer; fontname: PChar; fontsize,fontcolor,format: Integer; endtime: PSystemTime): Integer; Stdcall; External LEDSender; 
 
implementation 
 
end.