// DAS_VCDEMODlg.cpp : implementation file
//

#include "stdafx.h"
#include "DAS_VCDEMO.h"
#include "DAS_VCDEMODlg.h"
#include "DASVRSDK.h"
#include "Resource.h"


#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#endif

/////////////////////////////////////////////////////////////////////////////
// CAboutDlg dialog used for App About

class CAboutDlg : public CDialog
{
public:
	CAboutDlg();

// Dialog Data
	//{{AFX_DATA(CAboutDlg)
	enum { IDD = IDD_ABOUTBOX };
	//}}AFX_DATA

	// ClassWizard generated virtual function overrides
	//{{AFX_VIRTUAL(CAboutDlg)
	protected:
	virtual void DoDataExchange(CDataExchange* pDX);    // DDX/DDV support
	//}}AFX_VIRTUAL

// Implementation
protected:
	//{{AFX_MSG(CAboutDlg)
	//}}AFX_MSG
	DECLARE_MESSAGE_MAP()
};

CAboutDlg::CAboutDlg() : CDialog(CAboutDlg::IDD)
{
	//{{AFX_DATA_INIT(CAboutDlg)
	//}}AFX_DATA_INIT
}

void CAboutDlg::DoDataExchange(CDataExchange* pDX)
{
	CDialog::DoDataExchange(pDX);
	//{{AFX_DATA_MAP(CAboutDlg)
	//}}AFX_DATA_MAP
}

BEGIN_MESSAGE_MAP(CAboutDlg, CDialog)
	//{{AFX_MSG_MAP(CAboutDlg)
		// No message handlers
	//}}AFX_MSG_MAP
END_MESSAGE_MAP()

/////////////////////////////////////////////////////////////////////////////
// CDAS_VCDEMODlg dialog

CDAS_VCDEMODlg::CDAS_VCDEMODlg(CWnd* pParent /*=NULL*/)
	: CDialog(CDAS_VCDEMODlg::IDD, pParent)
{
	//{{AFX_DATA_INIT(CDAS_VCDEMODlg)
		// NOTE: the ClassWizard will add member initialization here
	//}}AFX_DATA_INIT
	// Note that LoadIcon does not require a subsequent DestroyIcon in Win32
	m_hIcon = AfxGetApp()->LoadIcon(IDR_MAINFRAME);
}

void CDAS_VCDEMODlg::DoDataExchange(CDataExchange* pDX)
{
	CDialog::DoDataExchange(pDX);
	//{{AFX_DATA_MAP(CDAS_VCDEMODlg)
	DDX_Control(pDX, IDC_LIST, m_List);
	DDX_Control(pDX, IDC_TREE, m_Tree);
	//}}AFX_DATA_MAP
}

BEGIN_MESSAGE_MAP(CDAS_VCDEMODlg, CDialog)
	//{{AFX_MSG_MAP(CDAS_VCDEMODlg)
	ON_WM_SYSCOMMAND()
	ON_WM_PAINT()
	ON_WM_QUERYDRAGICON()
	ON_NOTIFY(TVN_SELCHANGED, IDC_TREE, OnSelchangedTree)
	ON_COMMAND(ID_MENUExit, OnMENUExit)
	ON_COMMAND(ID_MENUAbout, OnMENUAbout)
	ON_WM_CREATE()
	ON_WM_SHOWWINDOW()
	ON_WM_DESTROY()
	ON_WM_TIMER()
	ON_COMMAND(IDR_Register, OnRegister)
	ON_COMMAND(IDR_Unregister, OnUnregister)
	//}}AFX_MSG_MAP
END_MESSAGE_MAP()

/////////////////////////////////////////////////////////////////////////////
// CDAS_VCDEMODlg message handlers

BOOL CDAS_VCDEMODlg::OnInitDialog()
{
	CDialog::OnInitDialog();

	// Add "About..." menu item to system menu.

	// IDM_ABOUTBOX must be in the system command range.
	ASSERT((IDM_ABOUTBOX & 0xFFF0) == IDM_ABOUTBOX);
	ASSERT(IDM_ABOUTBOX < 0xF000);

	CMenu* pSysMenu = GetSystemMenu(FALSE);
	if (pSysMenu != NULL)
	{
		CString strAboutMenu;
		strAboutMenu.LoadString(IDS_ABOUTBOX);
		if (!strAboutMenu.IsEmpty())
		{
			pSysMenu->AppendMenu(MF_SEPARATOR);
			pSysMenu->AppendMenu(MF_STRING, IDM_ABOUTBOX, strAboutMenu);
		}
	}

	// Set the icon for this dialog.  The framework does this automatically
	//  when the application's main window is not a dialog
	SetIcon(m_hIcon, TRUE);			// Set big icon
	SetIcon(m_hIcon, FALSE);		// Set small icon
	
	// TODO: Add extra initialization here
	
	return TRUE;  // return TRUE  unless you set the focus to a control
}

void CDAS_VCDEMODlg::OnSysCommand(UINT nID, LPARAM lParam)
{
	if ((nID & 0xFFF0) == IDM_ABOUTBOX)
	{
		CAboutDlg dlgAbout;
		dlgAbout.DoModal();
	}
	else
	{
		if(nID==1088)
		{
			Monitor();
		}
		else
		{
			CDialog::OnSysCommand(nID, lParam);
		}
	}
}

// If you add a minimize button to your dialog, you will need the code below
//  to draw the icon.  For MFC applications using the document/view model,
//  this is automatically done for you by the framework.

void CDAS_VCDEMODlg::OnPaint() 
{
	if (IsIconic())
	{
		CPaintDC dc(this); // device context for painting

		SendMessage(WM_ICONERASEBKGND, (WPARAM) dc.GetSafeHdc(), 0);

		// Center icon in client rectangle
		int cxIcon = GetSystemMetrics(SM_CXICON);
		int cyIcon = GetSystemMetrics(SM_CYICON);
		CRect rect;
		GetClientRect(&rect);
		int x = (rect.Width() - cxIcon + 1) / 2;
		int y = (rect.Height() - cyIcon + 1) / 2;

		// Draw the icon
		dc.DrawIcon(x, y, m_hIcon);
	}
	else
	{
		CDialog::OnPaint();
	}
}

// The system calls this to obtain the cursor to display while the user drags
//  the minimized window.
HCURSOR CDAS_VCDEMODlg::OnQueryDragIcon()
{
	return (HCURSOR) m_hIcon;
}

void CDAS_VCDEMODlg::CreateOPCServer()
{
	if(CreateServer(OPCClsID,2000))
	{
		InitOPCOK=true;
		SetWriteCallback(WriteCallback);
		SetServerNotify(ServerNotify);
		SetReadCallback(ReadCallback);
		SetTagQualifier(44);
		AddTags();
		SetServerState(1);
		SetTimer(ID_TIMER, 2000, NULL);
	}
	else InitOPCOK=false;
}

void CDAS_VCDEMODlg::FreeOPCServer()
{
	if (InitOPCOK)
	{
		long I;
		for(I=0;I<=TagCount;I++)
		{
			if(TagList[I].vType==8)
				::SysFreeString(TagList[I].vValue.bstrVal);
		}
		FreeServer();
		FreeOPCDef();
		KillTimer(ID_TIMER);
	}
}

void CDAS_VCDEMODlg::Simulate()
{
	long I;
	int r;
	CString str;
	char s[6];
	FILETIME ft;
	GetSystemTimeAsFileTime(&ft);

	for(I=0;I<=TagCount;I++)
	{
		r=rand();
		if(TagList[I].cID.IsEmpty()) continue;
		switch(TagList[I].vType)
		{
		case VT_I4:
			TagList[I].vValue.intVal=r;
			break;

		case VT_R4:
			TagList[I].vValue.fltVal=(float)r / 101 *100;
			break;
		case VT_BSTR:
			_itoa(r,s,10);
			str=s;
			::SysFreeString(TagList[I].vValue.bstrVal);
			TagList[I].vValue.bstrVal=str.AllocSysString();
			break;
		case VT_BOOL:
			if((r % 2)==1)
			{
				TagList[I].vValue.boolVal=true;
			}
			else TagList[I].vValue.boolVal=false;
			break;
		};
		TagList[I].ft=ft;
		TagList[I].lQuality=192;
		UpdateTagWithTimeStamp(TagList[I].hHWND,TagList[I].vValue, TagList[I].lQuality, TagList[I].ft);
	};
	Monitor();
}

void CDAS_VCDEMODlg::Monitor()
{
	SYSTEMTIME st;
	FILETIME ft;
	wchar_t wstr[16];
	CTime ct;
	int I,J;
	_TREEITEM *pi;

	pi=m_Tree.GetSelectedItem();
	CString cs=m_Tree.GetItemText(pi);
	J=-1;
	if(cs=="Integer") J=0;
	if(cs=="String") J=8;
	if(cs=="Bool") J=16;
	if(cs=="Float") J=24;
	if(J==-1) return;


	m_List.DeleteAllItems();
	
	int Index;
	char Data[32];

	for(I=0; I<8;I++)
	{
		Index=m_List.InsertItem(I,TagList[I+J].cID);

		sprintf(Data, "%i",TagList[I+J].hHWND);
		m_List.SetItemText(Index,1,Data);

		sprintf(Data, "%i",TagList[I+J].vType);
		m_List.SetItemText(Index,2,Data);

		switch(TagList[I+J].vType)
		{
		case VT_I4:
			sprintf(Data, "%i",TagList[I+J].vValue.intVal);
			m_List.SetItemText(Index,1,Data);
			break;
		case VT_BSTR:
			wcscpy(wstr,TagList[I+J].vValue.bstrVal);
			sprintf(Data, "%S", &wstr);
			m_List.SetItemText(Index,1,Data);
			break;
		case VT_BOOL:
			if(TagList[I+J].vValue.boolVal) 
			{
				m_List.SetItemText(Index,1,"TRUE");
			}
			else m_List.SetItemText(Index,1,"FALSE");
			break;
		case VT_R4:
			sprintf(Data, "%f",TagList[I+J].vValue.fltVal);
			m_List.SetItemText(Index,1,Data);
			break;
		}
		sprintf(Data, "%i",TagList[I+J].lQuality);
		m_List.SetItemText(Index,2,Data);

		//ft=TagList[I+J].ft;
		FileTimeToLocalFileTime(&TagList[I+J].ft, &ft);
		FileTimeToSystemTime(&ft,&st);
		ct=CTime(st);
		m_List.SetItemText(Index,3,ct.Format("%c"));
	}
}

void CDAS_VCDEMODlg::AddTags()
{
	long I,h;
	char ID[6];
	VARIANT v;
	FILETIME ft;
	SYSTEMTIME st;
	GetSystemTime(&st);
	SystemTimeToFileTime(&st,&ft);
	_TREEITEM *rti;

	rti=m_Tree.InsertItem("VCDEMO",TVI_ROOT,TVI_LAST);
	m_Tree.InsertItem("Integer",rti,TVI_LAST);
	m_Tree.InsertItem("String",rti,TVI_LAST);
	m_Tree.InsertItem("Bool",rti,TVI_LAST);
	m_Tree.InsertItem("Float",rti,TVI_LAST);
	m_Tree.Expand(rti,TVE_EXPAND);

	SetTagQualifier(46);
	TagCount=-1;
	CString str=CString("Integer");
	VariantInit(&v);
	h=RegTag(0,str,v,0,0);
	for(I=0;I<8;I++)
	{
		TagCount++;
		sprintf(ID,"TAG_I%d",I);
		TagList[TagCount].cID=ID;
		TagList[TagCount].lQuality=192;
		TagList[TagCount].ft=ft;
		TagList[TagCount].vType=VT_I4;
		TagList[TagCount].vValue.vt=VT_I4;
		TagList[TagCount].vValue.intVal=0;	
		str=TagList[I].cID.GetBuffer(TagList[I].cID.GetLength());
//		TagList[I].hHWND=RegTag(h,str,TagList[I].vValue,TagList[I].lQuality,3);
		TagList[I].hHWND=RegTagEx(h,str,VT_I4,3);
	}
	str=CString("String");
	h=RegTag(0,str,v,0,0);
	
	for(I=0;I<8;I++)
	{
		TagCount++;
		sprintf(ID,"TAG_S%d",I);
		TagList[TagCount].cID=ID;
		TagList[TagCount].lQuality=192;
		TagList[TagCount].ft=ft;
		TagList[TagCount].vType=VT_BSTR;
		TagList[TagCount].vValue.bstrVal=str.AllocSysString();
		TagList[TagCount].vValue.vt=VT_BSTR;
		str=TagList[TagCount].cID.GetBuffer(TagList[TagCount].cID.GetLength());
//		TagList[TagCount].hHWND=RegTag(h,str,TagList[TagCount].vValue,TagList[TagCount].lQuality,3);
		TagList[TagCount].hHWND=RegTagEx(h,str,VT_BSTR,3);
	}
	str=CString("Bool");
	h=RegTag(0,str,v,0,0);
	for(I=0;I<8;I++)
	{
		TagCount++;
		sprintf(ID,"TAG_B%d",I);
		TagList[TagCount].cID=ID;
		TagList[TagCount].lQuality=192;
		TagList[TagCount].ft=ft;
		TagList[TagCount].vType=VT_BOOL;
		TagList[TagCount].vValue.vt=VT_BOOL;
		str=TagList[TagCount].cID.GetBuffer(TagList[TagCount].cID.GetLength());
//		TagList[TagCount].hHWND=RegTag(h,str,TagList[TagCount].vValue,TagList[TagCount].lQuality,3);
		TagList[TagCount].hHWND=RegTagEx(h,str,VT_BOOL,3);
	}
	str=CString("Float");
	h=RegTag(0,str,v,0,0);
	for(I=0;I<8;I++)
	{
		TagCount++;
		sprintf(ID,"TAG_F%d",I);
		TagList[TagCount].cID=ID;
		TagList[TagCount].lQuality=192;
		TagList[TagCount].ft=ft;
		TagList[TagCount].vType=VT_R4;
		TagList[TagCount].vValue.vt=VT_R4;
		TagList[TagCount].vValue.fltVal=0;
		str=TagList[TagCount].cID.GetBuffer(TagList[TagCount].cID.GetLength());
//		TagList[TagCount].hHWND=RegTag(h,str,TagList[TagCount].vValue,TagList[TagCount].lQuality,3);
		TagList[TagCount].hHWND=RegTagEx(h,str,VT_R8,3);
	}
}

void CDAS_VCDEMODlg::OnSelchangedTree(NMHDR* pNMHDR, LRESULT* pResult) 
{
	NM_TREEVIEW* pNMTreeView = (NM_TREEVIEW*)pNMHDR;
	// TODO: Add your control notification handler code here
	Monitor();
	*pResult = 0;
}

void CDAS_VCDEMODlg::OnMENUExit() 
{
//	CloseWindow();
	DestroyWindow();
}

void CDAS_VCDEMODlg::OnMENUAbout() 
{
	CAboutDlg aboutDlg;
	aboutDlg.DoModal();		
}

int CDAS_VCDEMODlg::OnCreate(LPCREATESTRUCT lpCreateStruct) 
{
	if (CDialog::OnCreate(lpCreateStruct) == -1)
		return -1;
	

	// TODO: Add your specialized creation code here
	return 0;
}

void CDAS_VCDEMODlg::OnShowWindow(BOOL bShow, UINT nStatus) 
{
	CDialog::OnShowWindow(bShow, nStatus);
	
	m_List.InsertColumn(0, "ID", LVCFMT_LEFT, 80); 
	m_List.InsertColumn(1, "VALUE", LVCFMT_LEFT, 80); 
	m_List.InsertColumn(2, "QUALITY", LVCFMT_LEFT, 60); 
	m_List.InsertColumn(3, "TIMESTAMP", LVCFMT_LEFT, 160);
	CreateOPCServer();
}

void CDAS_VCDEMODlg::OnDestroy() 
{
	CDialog::OnDestroy();
	FreeOPCServer();
}

void CDAS_VCDEMODlg::OnTimer(UINT nIDEvent) 
{
	CDialog::OnTimer(nIDEvent);
	Simulate();
}

void CDAS_VCDEMODlg::OnRegister() 
{
	RegServer(OPCClsID,OPCProgID,OPCDescr,EXEName);
}

void CDAS_VCDEMODlg::OnUnregister() 
{
	UnregServer(OPCClsID,EXEName);
}