using S7.Net;
using System.Text;
using S7.Net.Types;
using PluginInterface;
using Microsoft.Extensions.Logging;

namespace PLC.SiemensS7
{
    [DriverSupported("1500")]
    [DriverSupported("1200")]
    [DriverSupported("400")]
    [DriverSupported("300")]
    [DriverSupported("200")]
    [DriverSupported("200Smart")]
    [DriverInfo("SiemensS7", "V1.0.0", "Copyright IoTGateway.net 20230220")]
    public class DeviceSiemensS7 : IDriver
    {
        private Plc _plc;

        public ILogger _logger { get; set; }
        private readonly string _device;

        #region 配置参数

        [ConfigParameter("设备Id")] public string DeviceId { get; set; }

        [ConfigParameter("PLC类型")] public CpuType CpuType { get; set; } = CpuType.S71200;

        [ConfigParameter("IP地址")] public string IpAddress { get; set; } = "127.0.0.1";

        [ConfigParameter("端口号")] public int Port { get; set; } = 102;

        [ConfigParameter("Rack")] public short Rack { get; set; } = 0;

        [ConfigParameter("Slot")] public short Slot { get; set; } = 0;

        [ConfigParameter("超时时间ms")] public int Timeout { get; set; } = 3000;

        [ConfigParameter("最小通讯周期ms")] public uint MinPeriod { get; set; } = 3000;

        #endregion

        #region 生命周期

        public DeviceSiemensS7(string device, ILogger logger)
        {
            _device = device;
            _logger = logger;

            _logger.LogInformation($"Device:[{_device}],Create()");
        }

        /// <summary>
        /// 连接状态
        /// </summary>
        public bool IsConnected => _plc is { IsConnected: true };

        /// <summary>
        /// 连接
        /// </summary>
        /// <returns></returns>
        public bool Connect()
        {
            try
            {
                _logger.LogInformation($"Device:[{_device}],Connect()");

                _plc = new Plc(CpuType, IpAddress, Port, Rack, Slot);
                _plc.ReadTimeout = Timeout;
                _plc.WriteTimeout = Timeout;
                _plc.Open();
            }
            catch (Exception ex)
            {
                _logger.LogInformation($"Device:[{_device}],Connect()");
                return false;
            }

            return IsConnected;
        }

        /// <summary>
        /// 断开
        /// </summary>
        /// <returns></returns>
        public bool Close()
        {
            try
            {
                _logger.LogInformation($"Device:[{_device}],Close()");

                _plc?.Close();
                return !IsConnected;
            }
            catch (Exception ex)
            {
                _logger.LogError(ex, $"Device:[{_device}],Close(),Error");
                return false;
            }
        }

        /// <summary>
        /// 释放
        /// </summary>
        public void Dispose()
        {
            try
            {
                _logger.LogInformation($"Device:[{_device}],Dispose()");

                _plc = null;

                // Suppress finalization.
                GC.SuppressFinalize(this);
            }
            catch (Exception ex)
            {
                _logger.LogError(ex, $"Device:[{_device}],Dispose(),Error");
            }
        }


        #endregion

        #region 读写方法

        /// <summary>
        /// 读
        /// </summary>
        /// <param name="ioArg"></param>
        /// <returns></returns>
        [Method("读西门子PLC标准地址", description: "读西门子PLC标准地址")]
        public DriverReturnValueModel Read(DriverAddressIoArgModel ioArg)
        {
            var ret = new DriverReturnValueModel { StatusType = VaribaleStatusTypeEnum.Good };

            if (_plc is { IsConnected: true })
            {
                try
                {
                    if (ioArg.ValueType == DataTypeEnum.AsciiString)
                    {
                        var str = string.Empty;
                        var dataItem = S7.Net.Types.DataItem.FromAddress(ioArg.Address);
                        var head = _plc.ReadBytes(dataItem.DataType, dataItem.DB, dataItem.StartByteAdr, 2);
                        var strBytes = _plc.ReadBytes(dataItem.DataType, dataItem.DB, dataItem.StartByteAdr + 2, head[1]);
                        var strRaw = Encoding.ASCII.GetString(strBytes).TrimEnd(new char[] { '\0' });
                        if (strRaw.Any())
                        {
                            foreach (var chart in strRaw)
                            {
                                if (chart >= 0x20 && chart <= 0x7E)
                                    str += chart;
                            }
                        }
                        ret.Value = strRaw;

                    }
                    else
                        ret.Value = _plc.Read(ioArg.Address);
                    if (ioArg.ValueType == DataTypeEnum.Float)
                    {
                        var buffer = new byte[4];

                        buffer[3] = (byte)((uint)ret.Value >> 24);
                        buffer[2] = (byte)((uint)ret.Value >> 16);
                        buffer[1] = (byte)((uint)ret.Value >> 8);
                        buffer[0] = (byte)((uint)ret.Value >> 0);
                        ret.Value = BitConverter.ToSingle(buffer, 0);
                    }
                }
                catch (Exception ex)
                {
                    ret.StatusType = VaribaleStatusTypeEnum.Bad;
                    ret.Message = $"读取失败,{ex.Message}";
                }
            }
            else
            {
                ret.StatusType = VaribaleStatusTypeEnum.Bad;
                ret.Message = "连接失败";
            }

            return ret;
        }

        /// <summary>
        /// 读字符串
        /// </summary>
        /// <param name="ioArg"></param>
        /// <returns></returns>
        [Method("读西门子字节字符串", description: "DB10.DBW6,10  即开始地址，字节长度")]
        public DriverReturnValueModel ReadByteString(DriverAddressIoArgModel ioArg)
        {
            var ret = new DriverReturnValueModel { StatusType = VaribaleStatusTypeEnum.Good };

            if (_plc != null && _plc.IsConnected)
            {
                var str = string.Empty;
                try
                {
                    var arrParams = ioArg.Address.Trim().Split(',');
                    if (arrParams.Length == 2)
                    {
                        var dataItemitem = S7.Net.Types.DataItem.FromAddress(arrParams[0]);
                        int.TryParse(arrParams[1], out var length);

                        var data = _plc.ReadBytes(dataItemitem.DataType, dataItemitem.DB, dataItemitem.StartByteAdr, length);
                        var strRaw = Encoding.ASCII.GetString(data).TrimEnd(new char[] { '\0' });
                        if (strRaw.Any())
                        {
                            foreach (var chart in strRaw)
                            {
                                if (chart >= 0x20 && chart <= 0x7E)
                                    str += chart;
                            }
                        }
                    }
                    else
                        ret.StatusType = VaribaleStatusTypeEnum.AddressError;
                    ret.Value = str;
                }
                catch (Exception ex)
                {
                    ret.StatusType = VaribaleStatusTypeEnum.Bad;
                    ret.Message = $"读取失败,{ex.Message}";
                }
            }
            else
            {
                ret.StatusType = VaribaleStatusTypeEnum.Bad;
                ret.Message = "连接失败";
            }

            return ret;
        }

        /// <summary>
        /// 写
        /// </summary>
        /// <param name="requestId"></param>
        /// <param name="method"></param>
        /// <param name="ioArg"></param>
        /// <returns></returns>
        public async Task<RpcResponse> WriteAsync(string requestId, string method, DriverAddressIoArgModel ioArg)
        {
            RpcResponse rpcResponse = new() { IsSuccess = false };
            try
            {
                if (!IsConnected)
                    rpcResponse.Description = "设备连接已断开";
                else
                {
                    object? toWrite = null;
                    switch (ioArg.ValueType)
                    {
                        case DataTypeEnum.Bit:
                        case DataTypeEnum.Bool:
                            toWrite = ioArg.Value.ToString()?.ToLower() == "true" ||
                                      ioArg.Value.ToString()?.ToLower() == "1";
                            break;
                        case DataTypeEnum.UByte:
                            toWrite = byte.Parse(ioArg.Value.ToString());
                            break;
                        case DataTypeEnum.Byte:
                            toWrite = sbyte.Parse(ioArg.Value.ToString());
                            break;
                        case DataTypeEnum.Uint16:
                            toWrite = ushort.Parse(ioArg.Value.ToString());
                            break;
                        case DataTypeEnum.Int16:
                            toWrite = short.Parse(ioArg.Value.ToString());
                            break;
                        case DataTypeEnum.Uint32:
                            toWrite = uint.Parse(ioArg.Value.ToString());
                            break;
                        case DataTypeEnum.Int32:
                            toWrite = int.Parse(ioArg.Value.ToString());
                            break;
                        case DataTypeEnum.Float:
                            toWrite = float.Parse(ioArg.Value.ToString());
                            break;
                        case DataTypeEnum.AsciiString:
                            toWrite = GetStringBytes(ioArg);
                            break;
                        default:
                            rpcResponse.Description = $"类型{DataTypeEnum.Float}不支持写入";
                            break;
                    }

                    if (toWrite == null)
                    {
                        rpcResponse.Description = "解析错误";
                        return rpcResponse;
                    }

                    //通用方法
                    if (method == nameof(Read))
                    {
                        var dataItem = DataItem.FromAddress(ioArg.Address);
                        if (ioArg.ValueType == DataTypeEnum.AsciiString)
                        {
                            //先写入长度
                            await _plc?.WriteAsync(dataItem.DataType, dataItem.DB, dataItem.StartByteAdr + 1,
                               (byte)((byte[])toWrite).Length);
                            //在写入字符串内容
                            await _plc?.WriteAsync(dataItem.DataType, dataItem.DB, dataItem.StartByteAdr + 2, (byte[])toWrite);

                        }
                        else
                            await _plc?.WriteAsync(ioArg.Address, toWrite);

                        rpcResponse.IsSuccess = true;
                        return rpcResponse;
                    }
                    //数组字符串
                    if (method == nameof(ReadByteString))
                    {
                        var arrParams = ioArg.Address.Trim().Split(',');
                        if (arrParams.Length == 2)
                        {
                            var dataItem = DataItem.FromAddress(arrParams[0]);
                            await _plc?.WriteAsync(dataItem.DataType, dataItem.DB, dataItem.StartByteAdr, toWrite);
                            rpcResponse.IsSuccess = true;
                            return rpcResponse;
                        }
                        else
                            rpcResponse.Description = $"地址错误:{method}";
                    }
                    else
                        rpcResponse.Description = $"不支持写入:{method}";
                }
            }
            catch (Exception ex)
            {
                rpcResponse.Description = $"写入失败,[method]:{method},[ioArg]:{ioArg},[ex]:{ex}";
            }

            return rpcResponse;
        }


        #endregion

        #region 私有方法


        private byte[]? GetStringBytes(DriverAddressIoArgModel ioArg)
        {
            var toWriteString = ioArg.Value.ToString();
            try
            {
                var arrParams = ioArg.Address.Trim().Split(',');
                int length = 0;//最大长度，因为字符串后面得补满'\0'
                //直接读取byte[]的方式
                if (arrParams.Length == 2)
                {
                    //如DB100.DBW23,10
                    int.TryParse(arrParams[1], out length);
                    if (toWriteString.Length > length)
                        toWriteString = toWriteString.Take(length).ToString();
                    if (toWriteString.Length < length)
                        toWriteString = toWriteString.PadRight(length, '\0');
                }
                //使用西门子String读取
                else
                {
                    //如DB100.DBW23
                    var dataItem = DataItem.FromAddress(ioArg.Address);
                    var head = _plc.ReadBytes(dataItem.DataType, dataItem.DB, dataItem.StartByteAdr, 2);
                    length = head[0];
                    if (toWriteString.Length > length)
                        toWriteString = toWriteString.Take(length).ToString();
                }

            }
            catch (Exception e)
            {
                throw new Exception("字符串解析异常");
            }

            return Encoding.ASCII.GetBytes(toWriteString);
        }

        #endregion

    }
}