This forum uses cookies

npinguin · (This post was last modified: 30.11.2017, 20:25 by npinguin.)

Thanks

I found an alternative in the mean time

Hereby the full script for anyone looking for a PJ Talk solution

Code:
--------------------------------------
-- Author:         Nicky Wessels
-- Last Modified:     30/11/2017
--
-- Change Log:
-- 24/04/2016        Intial Version
-- 30/11/2017        Update Based on SDCP-Com - By Vokkim on JSDelivr
-- 30/11/2017        Javascript code https://github.com/vokkim/sony-sdcp-com
-- 30/11/2017        Protocol https://www.digis.ru/upload/iblock/f5a/VPL-VW320,%20VW520_ProtocolManual.pdf 
--------------------------------------

-------------------------
-- CONFIG
-------------------------

-- IP of the projector
BASEMENT_PROJECTOR_IP = '192.168.0.21'
BASEMENT_PROJECTOR_PORT = '53484'

-------------------------
-- CONSTANTS
-------------------------

-- CONSTANTS
VERSION = '02'
CATEGORY = '0A'
-- Default to 'SONY'
COMMUNITY = '534F4E59' 
                            
actions = {
  GET= '01',
  SET= '00'
}

commands = {
  SET_POWER= '0130',
  CALIBRATION_PRESET= '0002',
  ASPECT_RATIO= '0020',
  INPUT= '0001',
  GET_STATUS_ERROR= '0101',
  GET_STATUS_POWER= '0102',
  GET_STATUS_LAMP_TIMER= '0113'
}

input = {
  HDMI1 = '0002',
  HDMI2 = '0003',
}

aspectRatio = {
  NORMAL= '0001',
  V_STRETCH= '000B',
  ZOOM_1_85= '000C',
  ZOOM_2_35= '000D',
  STRETCH= '000E',
  SQUEEZE= '000F'
}

powerStatus = {
  STANDBY= '0000',
  START_UP= '0001',
  START_UP_LAMP= '0002',
  POWER_ON= '0003',
  COOLING= '0004',
  COOLING2= '0005'
}

-- set projector input
function setInput(input, ip, port, debug)
  if (debug) then
    log (string.format("setInput:%s projector:%s:%s", input, ip, port))
  end
  frame = createMessageAsHex(actions.SET, commands.INPUT, input, debug) 
  result = sony_sdcp_send_frame(frame, ip, port, debug)
  return result
end

-- get projector input status
function getInputStatus(ip, port, debug)
  if (debug) then
    log (string.format("getInputStatus projector:%s:%s", ip, port))
  end
  frame = createMessageAsHex(actions.GET, commands.INPUT, nil, debug)
  result = sony_sdcp_send_frame(frame, ip, port, debug)
  inputStatus = nil
  if (result and result.reply and result.reply.data) then
    inputStatus = result.reply.data
  end
  return inputStatus
end

-- power projector on
function setPower(powerOn, ip, port, debug)
  if (debug) then
    log (string.format("powerOn:%s projector:%s:%s", tostring(powerOn), ip, port))
  end
  if (powerOn) then
    frame = createMessageAsHex(actions.SET, commands.SET_POWER, powerStatus.START_UP, debug) 
  else
      frame = createMessageAsHex(actions.SET, commands.SET_POWER, powerStatus.STANDBY, debug) 
  end
  result = sony_sdcp_send_frame(frame, ip, port, debug)
  return result
end

-- get projector power status
function getPowerStatus(ip, port, debug)
  if (debug) then
    log (string.format("getPowerStatus projector:%s:%s", ip, port))
  end
  frame = createMessageAsHex(actions.GET, commands.GET_STATUS_POWER, nil, debug)
  result = sony_sdcp_send_frame(frame, ip, port, debug)
  powerstatus = false
  if (result and result.reply and result.reply.data) then
    powerstatus = result.reply.data
  end
  return powerstatus
end

-- get projector power status as a boolean
function getPowerStatusAsBool(ip, port, debug)
  if (debug) then
    log (string.format("getPowerStatusAsBool projector:%s:%s", ip, port))
  end
  result = false
  powerstatus = getPowerStatus(ip, port, debug)
  if (powerstatus) then
    result = powerstatus == powerStatus.POWER_ON or powerstatus == powerStatus.START_UP or powerstatus == powerStatus.START_UP_LAMP
  end
  return result
end

-- convert hex char array to string
function string.fromhex(str)
  result =''
    for c in str:gmatch"." do
    result = result .. string.format("%02x", string.byte(c))
  end
  return string.upper(result)
end

-- convert string to hex char array
function string.tohex(str)
  result =''
    for cc in str:gmatch".." do
    result = result .. string.char(tonumber(cc, 16))
  end
  return string.upper(result)
end

-- create a sdcp message
function createMessageAsHex(action, command, data, debug) 
  if (command and type(command) ~= "string") then 
    alert(string.format("Accepts command only as String (HEX) for now, was %s", type(command)))
     end     
  if (string.len(command) ~= 4) then
        alert(string.format("Command must be 4 bytes long"))
  end
  if (data and type(data) ~= "string") then
      alert(string.format("Accepts data only as String (HEX) for now, was %s", type(data)))
  end 
  if (not data) then
    data = ""
  end
    
  dataLength = string.format('%02x', string.len(data)/2)
  if (debug) then
--    log ("dataLength:" .. dataLength)
  end

  frame = VERSION .. CATEGORY.. COMMUNITY.. action.. command.. dataLength.. data 
  if (debug) then
--    log ("frame:" .. frame)
  end
    return string.tohex(frame)
end

-- parse a sdcp message
function parseResponse(value, debug) 
  if (not value) then
    alert(string.format("Empty value passed"))
    assert(not value, string.format("Empty value passed"))
  end 
  frame = string.fromhex(value)
  if (string.len(frame) < 20) then
    alert(string.format("Unknown response %s, length %d",frame,string.len(frame)))
    assert(string.len(frame) < 20, string.format("Unknown response %s",frame))
  end
    version = string.sub(frame, 1, 2)
    category = string.sub(frame, 3, 4)
    community = string.sub(frame, 5, 12)
    success = string.sub(frame, 13, 14)
    command = string.sub(frame, 15, 18)
    dataLength = string.sub(frame, 19, 20)
  if (tonumber(dataLength, 16) > 0) then
        data = string.sub(frame,21, 21 + tonumber(dataLength, 16) * 2)
  end
    result = {
    version=version,
        category=category,
        community=community,
        command=command,
        dataLength=dataLength,
    data=data,
        success=success ~= '00',
    raw = frame
  }
  return result
end

-- funtion to send basic commands to the projector
function sony_sdcp_send_frame(frame, ip, port, debug)
    require 'socket.http'
  response_tbl = { }

  -- fill up optional parameters
  if (ip == nil) then
    ip = BASEMENT_PROJECTOR_IP
  end
  if (port == nil) then
    port = BASEMENT_PROJECTOR_PORT
  end
  response_tbl['ip']=ip
  response_tbl['port']=port
  response_tbl['frame']=frame
  if (debug) then
    log("ip:" .. ip)
    log("port:" .. port)
    log("transmit frame char:" .. string.fromhex(frame))
    log("transmit frame hex:" .. frame)
    log("transmit frame length:" .. string.len(frame))
  end
  
  -- Send command to projector
    sock = socket.tcp()
    sock:settimeout(3)
    result, err = sock:connect(ip, port)
  response_tbl['result']=result
  response_tbl['error']=err
    if result then
      result, err = sock:send(frame .. "\r")
    
      response_tbl['result']=result
    response_tbl['error']=error

    -- Check response from projector
        if result then
          if (debug) then
        log ('transmit succesfully send')
      end
      -- read the response
      resframe = ''
      while true do
          resp, err, part = sock:receive(1)
        if resp ~= nil then
            resframe = resframe .. resp
        else
          break
        end
      end
      resstring = string.fromhex(resframe)
      resdecoded = parseResponse(resframe)
      response_tbl['reply']=resdecoded
      if (debug and resframe) then
        log("response frame char:" .. resstring)
        log("response frame hex:" .. resframe)
        log("response frame length:" .. string.len(resframe))
        log("response frame decoded", resdecoded)        
      end
      
      else
        alert('send failed: ' .. tostring(err), response_tbl)
      end
    else
      alert('connect failed: ' .. tostring(err), response_tbl)
    end
    sock:close() 
  
  return response_tbl
end

add trigger scripts to call the functions in the user lib

Code:
-- activate projector
setPower(bStatus, BASEMENT_PROJECTOR_IP, BASEMENT_PROJECTOR_PORT) 
-- check if it is active or starting up
-- warning takes a few seconds before projector boots up
bPowerStatus = getPowerStatusAsBool(BASEMENT_PROJECTOR_IP, BASEMENT_PROJECTOR_PORT) 
-- set the input 
setInput(input.HDMI1, BASEMENT_PROJECTOR_IP, BASEMENT_PROJECTOR_PORT, true) 
-- check the input state
sInputStatus = getInputStatus(BASEMENT_PROJECTOR_IP, BASEMENT_PROJECTOR_PORT)

Login
Username:
Password:	Lost Password?
	Remember me