using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Net.Sockets;
using System.Net;
using System.Threading;

namespace Mesnac.Equip.OMRON.FINS
{
    public class TcpFactory
    {
        private static TcpFactory _instance = null;      //TCP工厂实例
        private string _stationPC = "12";                      //PC站点
        private string _stationPLC = "13";                      //PLC站点\
        private string _plcIP = string.Empty;//PLCip
        private string _tcpPort = "";//端口号
        private byte client_node_no;
        private byte server_node_no;
        private TcpClient plc_Socket = null;
        private NetworkStream myNetworkStream;

        private TcpFactory(string stationPC, string stationPLC, string PlcIP, string TcpPort)
        {
            this._stationPC = stationPC;
            this._stationPLC = stationPLC;
            this._plcIP = PlcIP;
            this._tcpPort = TcpPort;
        }

        public static TcpFactory GetInstance(string stationPC, string stationPLC, string PlcIP, string TcpPort)
        {
            return new TcpFactory(stationPC, stationPLC, PlcIP, TcpPort);
            if (_instance == null)
            {
                _instance = new TcpFactory(stationPC, stationPLC, PlcIP, TcpPort);
            }
            return _instance;
        }

        /// <summary>
        /// Socket对象
        /// </summary>
        public TcpClient MainTCPSocket
        {
            get
            {
                return this.plc_Socket;
            }
        }

        #region 十六进制转换
        private byte[] StringToBytes16(string source)
        {
            byte[] destination = new byte[source.Length / 2];
            for (int i = 0, j = 0; i < source.Length && j < source.Length / 2; i += 2, j++)
            {
                string item = source.Substring(i, 2);
                destination[j] = Convert.ToByte(item, 16);
            }
            return destination;
        }
        #endregion
        /// <summary>
        /// 通讯握手 
        /// </summary>
        /// <param name="Plc_IP"></param>
        /// <param name="Tcp_Port"></param>
        /// <returns></returns>
        public bool creatConn()
        {
            bool execResu = true;
            //创建Socket连接     46494E530000000C000000000000000000000000
            string tcp_header = "46494E530000000C000000000000000000000001";
            byte[] fins_tcp_header = StringToBytes16(tcp_header);
            try
            {
                plc_Socket = new TcpClient();
                plc_Socket.Connect(IPAddress.Parse(_plcIP), int.Parse(_tcpPort));
                myNetworkStream = plc_Socket.GetStream();
            }
            catch (SocketException ex)
            {
                ICSharpCode.Core.LoggingService.Error("PLC连接失败：" + ex.Message);
                //MessageBox.Show(ex.Message);
                execResu = false;
                return execResu;
            }
            WriteData(fins_tcp_header);
            byte[] responseMessage = ReadData();
            //检查返回包
            if (responseMessage.Length == 24)
            {
                if (responseMessage[8] != 0x00 || responseMessage[9] != 0x00 || responseMessage[10] != 0x00 || responseMessage[11] != 0x01
                    || responseMessage[12] != 0x00 || responseMessage[13] != 0x00 || responseMessage[14] != 0x00 || responseMessage[15] != 0x00)
                {
                    return false;
                }
                client_node_no = responseMessage[19];
                server_node_no = responseMessage[23];

            }
            else
            {
                return false;
            }
            return execResu;
        }

        public bool Read(int block, int start, int len, out object[] buff)
        {
            lock (this)
            {
                string Ssend_header = "46494E530000001A";
                Ssend_header += "0000000200000000";
                byte[] send_header = StringToBytes16(Ssend_header);
                Random ra = new Random(unchecked((int)DateTime.Now.Ticks));
                int SID = ra.Next(1, 100);//自动生成数来检查返回包
                byte[] fins_header_comm = new byte[12];
                fins_header_comm[0] = 0x80;//ICF
                fins_header_comm[1] = 0x00;//RSV
                fins_header_comm[2] = 0x02;//GCT
                fins_header_comm[3] = 0x00;  //DNA          
                fins_header_comm[4] = server_node_no;//PLC端节点号
                fins_header_comm[5] = 0x00;//DA2
                fins_header_comm[6] = 0x00;//SNA
                fins_header_comm[7] = client_node_no;//PC端节点号,通过连接程序直接获得的
                fins_header_comm[8] = 0x00;//SA2
                fins_header_comm[9] = Convert.ToByte(SID.ToString(), 16);//SID
                fins_header_comm[10] = 0x01;
                fins_header_comm[11] = 0x01;//读命令
                string saddr_value = "82" + Convert.ToString(block + start, 16).PadLeft(4, '0') + "00";//821C2000
                saddr_value += Convert.ToString(len, 16).PadLeft(4, '0');
                byte[] addr_value = StringToBytes16(saddr_value);
                WriteData(Combin(send_header, fins_header_comm, addr_value));
                //WriteData();
                //WriteData();
                byte[] Reseponse = ReadData();
                //MessageBox.Show(Reseponse.Length.ToString());
                //检查返回包
                buff = new object[len];
                if (Reseponse[8] != 0 || Reseponse[9] != 0 || Reseponse[10] != 0 || Reseponse[11] != 2
                    || Reseponse[12] != 0 || Reseponse[13] != 0 || Reseponse[14] != 0 || Reseponse[15] != 0
                    || Reseponse[26] != 1 || Reseponse[27] != 1 || Reseponse[28] != 0 || Reseponse[29] != 0
                    || Reseponse[25] != Convert.ToByte(SID.ToString(), 16))
                {
                    return false;
                }

                //MessageBox.Show((Convert.ToInt32(Reseponse[Reseponse.Length - 2].ToString("X2") + Reseponse[Reseponse.Length - 1].ToString("X2"), 16)).ToString());
                int j = 0;
                for (int i = len; i > 0; i--)
                {
                    buff[j] = Convert.ToInt32(Reseponse[Reseponse.Length - (i * 2)].ToString("X2") + Reseponse[Reseponse.Length - i * 2 + 1].ToString("X2"));
                    j++;
                }
                return true;
            }
        }

        byte[] Combin(byte[] header, byte[] comm, byte[] value)
        {
            int length=header.Length + comm.Length + value.Length;
            byte[] returnByte = new byte[length];
            int j=0;
            for (int i = 0; i < header.Length; i++)
            {
                returnByte[j] = header[i];
                j++;
            }
            for (int i = 0; i < comm.Length; i++)
            {
                returnByte[j] = comm[i];
                j++;
            }
            for (int i = 0; i < value.Length; i++)
            {
                returnByte[j] = value[i];
                j++;
            }
            return returnByte;
        }

        /// <summary>
        /// 写
        /// </summary>
        /// <param name="data"></param>
        /// <returns></returns>
        public bool Write(int block, int start, int[] buff)
        {
            int writeCount = 1;//写入数量
            string Ssend_header = "46494E53000000";
            Ssend_header += Convert.ToString((2 * writeCount + 1 + 25), 16).PadLeft(2, '0');
            Ssend_header += "0000000200000000";
            byte[] send_header = StringToBytes16(Ssend_header);
            Random ra = new Random(unchecked((int)DateTime.Now.Ticks));
            int SID = ra.Next(1, 100);
            byte[] fins_header_comm = new byte[12];
            fins_header_comm[0] = 0x80;//ICF4294967295
            fins_header_comm[1] = 0x00;//RSV
            fins_header_comm[2] = 0x02;//GCT
            fins_header_comm[3] = 0x00;  //DNA          
            fins_header_comm[4] = server_node_no;//PLC端节点号
            fins_header_comm[5] = 0x00;//DA2
            fins_header_comm[6] = 0x00;//SNA
            fins_header_comm[7] = client_node_no;//PC端节点号,通过连接程序直接获得的
            fins_header_comm[8] = 0x00;//SA2
            fins_header_comm[9] = Convert.ToByte(SID.ToString(), 16);//SID
            fins_header_comm[10] = 0x01;
            fins_header_comm[11] = 0x02;//写命令
            string saddr_value = "82" + Convert.ToString(block + start, 16).PadLeft(4, '0') + "00";
            saddr_value += Convert.ToString(writeCount, 16).PadLeft(4, '0');
            for (int i = 0; i < buff.Length; i++)
            {
                if ("System.Int64" == buff[i].GetType().ToString())
                {
                    saddr_value += Convert.ToString((long)buff[i], 16).PadLeft(8, '0').Substring(4, 4);
                    saddr_value += Convert.ToString((long)buff[i], 16).PadLeft(8, '0').Substring(0, 4);
                }
                else
                {
                    saddr_value += Convert.ToString((int)buff[i], 16).PadLeft(4, '0');
                }
            }
            byte[] addr_value = StringToBytes16(saddr_value);
            WriteData(send_header);
            WriteData(fins_header_comm);
            WriteData(addr_value);
            byte[] Reseponse = ReadData();
            //检查返回包
            if (Reseponse[8] != 0 || Reseponse[9] != 0 || Reseponse[10] != 0 || Reseponse[11] != 2
                || Reseponse[12] != 0 || Reseponse[13] != 0 || Reseponse[14] != 0 || Reseponse[15] != 0
                || Reseponse[26] != 1 || Reseponse[27] != 2 || Reseponse[28] != 0 || Reseponse[29] != 0
                || Reseponse[25] != Convert.ToByte(SID.ToString(), 16))
            {
                ICSharpCode.Core.LoggingService.Error("PLC连接失败：" + Reseponse[8].ToString() + Reseponse[9].ToString() + Reseponse[10].ToString() + Reseponse[11].ToString());
                //MessageBox.Show(Reseponse[8].ToString() + Reseponse[9].ToString() + Reseponse[10].ToString() + Reseponse[11].ToString());
                return false;
            }
            return true;
        }

        #region 数据处理
        private void WriteData(byte[] myByte)
        {
            byte[] writeBytes = myByte;
            myNetworkStream.Write(writeBytes, 0, writeBytes.Length);
            myNetworkStream.Flush();
            Thread.Sleep(10);
        }
        private byte[] ReadData()
        {
            int k = plc_Socket.Available;
            while (k == 0)
            {
                k = plc_Socket.Available;
                Thread.Sleep(10);
            }
            byte[] myBufferBytes = new byte[k];
            myNetworkStream.Read(myBufferBytes, 0, k);
            myNetworkStream.Flush();
            return myBufferBytes;
        }
        #endregion
    }
}