// DynServerDlg.cpp : implementation file
//

#include "stdafx.h"
#include "DynServer.h"
#include "DynServerDlg.h"

#include "DynServerXface.h"

#ifdef _DEBUG
#define new DEBUG_NEW
#endif


// CAboutDlg dialog used for App About

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

// Dialog Data
	enum { IDD = IDD_ABOUTBOX };

	protected:
	virtual void DoDataExchange(CDataExchange* pDX);    // DDX/DDV support

// Implementation
protected:
	DECLARE_MESSAGE_MAP()
public:
  afx_msg void OnBnClickedOk();
};

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

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

BEGIN_MESSAGE_MAP(CAboutDlg, CDialog)
  ON_BN_CLICKED(IDOK, OnBnClickedOk)
END_MESSAGE_MAP()


// CDynServerDlg dialog



CDynServerDlg::CDynServerDlg(CWnd* pParent /*=NULL*/)
	: CDialog(CDynServerDlg::IDD, pParent)
{
	m_hIcon = AfxGetApp()->LoadIcon(IDR_MAINFRAME);
}

void CDynServerDlg::DoDataExchange(CDataExchange* pDX)
{
  CDialog::DoDataExchange(pDX);
  DDX_Control(pDX, IDC_LIST1, m_lbxApis);
}

BEGIN_MESSAGE_MAP(CDynServerDlg, CDialog)
	ON_WM_SYSCOMMAND()
	ON_WM_PAINT()
	ON_WM_QUERYDRAGICON()
	//}}AFX_MSG_MAP
  ON_BN_CLICKED(IDOK, OnBnClickedOk)
  ON_WM_DESTROY()
  ON_BN_CLICKED(ID_APP_ABOUT, OnBnClickedAppAbout)
END_MESSAGE_MAP()


// CDynServerDlg message handlers

BOOL CDynServerDlg::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

  WIN32_FIND_DATA findData;                                      
	HANDLE hFile;
	CString strFileMask = "DynClient*.DLL";

	char szCurrentDirectory[CHAR_MAX];
	GetCurrentDirectory(sizeof(szCurrentDirectory), szCurrentDirectory);

	ZeroMemory(&findData, sizeof(findData));
	hFile = FindFirstFile(strFileMask, &findData);
	if (INVALID_HANDLE_VALUE != hFile)
	{
		do
		{
			if ((findData.dwFileAttributes & FILE_ATTRIBUTE_NORMAL) ||
				(findData.dwFileAttributes & FILE_ATTRIBUTE_ARCHIVE))
			{
				TRACE1("*** Found '%s'\n", findData.cFileName);

				HINSTANCE hInst = NULL;
				hInst = LoadLibrary(findData.cFileName);

				TRACE2("*** LoadLibrary on '%s' %s\n", findData.cFileName, (NULL != hInst ? _T("succeeded") : _T("failed")));

				if (hInst)
				{
					DYNDLL_INFORMATION pfnCommApiDllInfo = (DYNDLL_INFORMATION)::GetProcAddress(hInst, DYNDLL_INFORMATION_FCN);
					TRACE2("*** GetProcAddress for '%s' %s\n", DYNDLL_INFORMATION_FCN, (NULL != pfnCommApiDllInfo ? _T("succeeded") : _T("failed")));

					if (pfnCommApiDllInfo)
					{
						char szDesc[255];
						pfnCommApiDllInfo(szDesc);

						int iIndex = m_lbxApis.AddString(szDesc);
						m_lbxApis.SetItemData(iIndex, (DWORD)hInst);
					}
				}
			}
		} while (FindNextFile(hFile, &findData));
	}
	FindClose(hFile);
	
	return TRUE;  // return TRUE  unless you set the focus to a control
}

void CDynServerDlg::OnSysCommand(UINT nID, LPARAM lParam)
{
	if ((nID & 0xFFF0) == IDM_ABOUTBOX)
	{
		CAboutDlg dlgAbout;
		dlgAbout.DoModal();
	}
	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 CDynServerDlg::OnPaint() 
{
	if (IsIconic())
	{
		CPaintDC dc(this); // device context for painting

		SendMessage(WM_ICONERASEBKGND, reinterpret_cast<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 function to obtain the cursor to display while the user drags
//  the minimized window.
HCURSOR CDynServerDlg::OnQueryDragIcon()
{
	return static_cast<HCURSOR>(m_hIcon);
}

void CAboutDlg::OnBnClickedOk()
{
  CWaitCursor wait;

  CString strUrl = "http://www.thecodechannel.com/redirect.asp?u=/&s=vcnb";
  if (32 >= (int)ShellExecute(NULL, "open", strUrl, NULL, NULL, SW_SHOWNORMAL))
  {
    AfxMessageBox("::ShellExecute failed to open this link!");
  }
}

void CDynServerDlg::OnBnClickedOk()
{
 int iIndex = m_lbxApis.GetCurSel();
 if (CB_ERR == iIndex)
 {
  AfxMessageBox("You must first select an API");
 }
 else
 {
  HINSTANCE hInst =
   (HINSTANCE)m_lbxApis.GetItemData(iIndex);
  if (NULL == hInst)
  {
   AfxMessageBox("Invalid HINSTANCE");
  }
  else
  {
   DYNDLL_DISPLAYPROPS pfnEditProps =
    (DYNDLL_DISPLAYPROPS)::GetProcAddress(hInst,
     DYNDLL_DISPLAYPROPS_FCN);

   if (pfnEditProps)
   {
    pfnEditProps();
   }
  }
 }
}

void CDynServerDlg::OnDestroy()
{
	CDialog::OnDestroy();
	
	HINSTANCE hInst;
	CString strCommApiDll;
	BOOL bSuccess;

	for (int i = 0; i < m_lbxApis.GetCount(); i++)
	{
		m_lbxApis.GetText(i, strCommApiDll);
		TRACE1("*** Attempting to locate hinst for '%s' from listbox's ItemData\n", strCommApiDll);

		hInst = (HINSTANCE)m_lbxApis.GetItemData(i);
		if (hInst)
		{
			bSuccess = ::FreeLibrary(hInst);

			TRACE2("*** FreeLibrary on '%s' %s\n", strCommApiDll, (NULL != hInst ? _T("succeeded") : _T("failed")));
		}
	}
}

void CDynServerDlg::OnBnClickedAppAbout()
{
  CAboutDlg().DoModal();
}