myfieldtrydlg.cpp

Visual C++高级编程及其项目应用开发(含源代码)

// MyFieldTryDlg.cpp : implementation file
//

#include "stdafx.h"
#include "MyFieldTry.h"
#include "MyFieldTryDlg.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()

/////////////////////////////////////////////////////////////////////////////
// CMyFieldTryDlg dialog

CMyFieldTryDlg::CMyFieldTryDlg(CWnd* pParent /*=NULL*/)
	: CDialog(CMyFieldTryDlg::IDD, pParent)
{
	//{{AFX_DATA_INIT(CMyFieldTryDlg)
	m_strID = _T("");
	//}}AFX_DATA_INIT
	// Note that LoadIcon does not require a subsequent DestroyIcon in Win32
	m_hIcon = AfxGetApp()->LoadIcon(IDR_MAINFRAME);
	m_hPhotoBitmap = NULL;
	m_pBMPBuffer = NULL;
}

void CMyFieldTryDlg::DoDataExchange(CDataExchange* pDX)
{
	CDialog::DoDataExchange(pDX);
	//{{AFX_DATA_MAP(CMyFieldTryDlg)
	DDX_Text(pDX, IDC_EDIT_ID, m_strID);
	//}}AFX_DATA_MAP
}

BEGIN_MESSAGE_MAP(CMyFieldTryDlg, CDialog)
	//{{AFX_MSG_MAP(CMyFieldTryDlg)
	ON_WM_SYSCOMMAND()
	ON_WM_PAINT()
	ON_WM_QUERYDRAGICON()
	ON_BN_CLICKED(IDC_BTN_TODB, OnBtnTodb)
	ON_BN_CLICKED(IDC_BTN_FROMDB, OnBtnFromdb)
	ON_BN_CLICKED(IDC_BTN_LOAD, OnBtnLoad)
	ON_BN_CLICKED(IDC_BTN_Record, OnBTNRecord)
	ON_BN_CLICKED(IDC_BTN_StreamWrite, OnBTNStreamWrite)
	ON_BN_CLICKED(IDC_BTN_StreamRead, OnBTNStreamRead)
	//}}AFX_MSG_MAP
END_MESSAGE_MAP()

/////////////////////////////////////////////////////////////////////////////
// CMyFieldTryDlg message handlers

BOOL CMyFieldTryDlg::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
	
	// 创建ADO的数据库连接和记录集对象
	HRESULT	hr;
	_bstr_t strConn("Provider=SQLOLEDB.1;Password=begin_sa;"
		"Persist Security Info=True;User ID=sa;"
		"Initial Catalog=Students;Data Source=GXP");

	_bstr_t strSql("select * from uStudInfoAdd");
	
	
	try
	{
		hr = m_pConnection.CreateInstance(_uuidof(Connection));
		if(SUCCEEDED(hr))
		{
			m_pConnection->CursorLocation = adUseClient;
			hr = m_pConnection->Open(strConn, "", "", adConnectUnspecified);
		}
		if(SUCCEEDED(hr))
		{
			hr = m_pRecordset.CreateInstance(_uuidof(Recordset));
			m_pRecordset->Open(strSql, _variant_t((IDispatch*)m_pConnection,true),
				adOpenDynamic, adLockOptimistic, adCmdText);

		}
		if(SUCCEEDED(hr))
		{
			m_blnConnected = TRUE;
		}
		else
		{
			m_blnConnected = FALSE;
		}
	}
	catch(_com_error &e)
	{
		MessageBox(e.ErrorMessage());
		m_blnConnected = FALSE;
	}

	if(!m_blnConnected)
	{
		AfxMessageBox("ADO数据源初始化失败!");
	}
	else
	{
		m_strSource = (const char*)strConn;
	}

	//m_hImgWnd = ::GetDlgItem(m_hWnd, IDC_STATIC_Photo);
		
	return TRUE;  // return TRUE  unless you set the focus to a control
}

void CMyFieldTryDlg::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 CMyFieldTryDlg::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
	{
	//	CpaintDC picDc(pImgWnd);
		CWnd	*pImgWnd;
		pImgWnd = GetDlgItem(IDC_STATIC_Photo);

		DrawUserPhoto(pImgWnd);
		//DrawUserPhoto(250,30,&dc);
		CDialog::OnPaint();
	}
}

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

void CMyFieldTryDlg::OnBtnTodb() 
{
	// TODO: Add your control notification handler code here
//	if(!m_bModify) return;
	if(m_pBMPBuffer == NULL || m_hPhotoBitmap == NULL)
	{
		AfxMessageBox("信息不完整！");
		return;
	}
	
	char			*pBuf = m_pBMPBuffer;
	VARIANT			varBLOB;
	SAFEARRAY		*psa;
    SAFEARRAYBOUND	rgsabound[1];

	if(pBuf)
	{    
		rgsabound[0].lLbound = 0;
		rgsabound[0].cElements = m_nFileLen;
		psa = SafeArrayCreate(VT_UI1, 1, rgsabound);
		for (long i = 0; i < (long)m_nFileLen; i++)
		{
			SafeArrayPutElement(psa, &i, pBuf++);
		}
		varBLOB.vt = VT_ARRAY | VT_UI1;
		varBLOB.parray = psa;
		m_pRecordset->GetFields()->GetItem("照片")->AppendChunk(varBLOB);
	}
	m_pRecordset->Update();
}

void CMyFieldTryDlg::OnBtnFromdb() 
{
	// TODO: Add your control notification handler code here
	DestroyPhoto();						///清除原图像
	if(m_pRecordset->adoEOF||m_pRecordset->BOF) 
	{
		return;
	}
	m_pRecordset->MoveFirst();
	long lDataSize = m_pRecordset->GetFields()->GetItem("照片")->GetActualSize(); //ActualSize;
	if(lDataSize > 0)
	{
		_variant_t			varBLOB;
		
		varBLOB = m_pRecordset->GetFields()->GetItem("照片")->GetChunk(lDataSize);
		if(varBLOB.vt == (VT_ARRAY | VT_UI1))
		{
			if(m_pBMPBuffer = new char[lDataSize+1])				///重新分配必要的存储空间
			{	
				char *pBuf = NULL;
				SafeArrayAccessData(varBLOB.parray,(void **)&pBuf);
				memcpy(m_pBMPBuffer,pBuf,lDataSize);				///复制数据到缓冲区m_pBMPBuffer
				SafeArrayUnaccessData (varBLOB.parray);
				m_nFileLen = lDataSize;
				m_hPhotoBitmap = BufferToHBITMAP();					///生成BITMAP对象
			}
		}
	}

	Invalidate(FALSE);
	UpdateWindow();
}

void CMyFieldTryDlg::OnBtnLoad() 
{
	// TODO: Add your control notification handler code here
	static char BASED_CODE szFilter[] = "BMP Files (*.bmp)|*.bmp|All Files (*.*)|*.*||";
	CFileDialog dlg(TRUE,"BMP",NULL,  OFN_HIDEREADONLY | OFN_OVERWRITEPROMPT,szFilter);
	if(dlg.DoModal() == IDOK)
	{
		CString pathname = dlg.GetPathName();
		DestroyPhoto();
		LoadBMPFile(pathname);
		m_hPhotoBitmap = BufferToHBITMAP();
		Invalidate(FALSE);
		UpdateWindow();
	}
}

void CMyFieldTryDlg::DestroyPhoto()
{
	if(m_hPhotoBitmap)
	{
		DeleteObject(m_hPhotoBitmap);
		m_hPhotoBitmap = NULL;
	}
	if(m_pBMPBuffer)
	{
		delete [] m_pBMPBuffer;
		m_pBMPBuffer = NULL;
	}
	Invalidate();
	UpdateWindow();
}

HBITMAP CMyFieldTryDlg::BufferToHBITMAP()
{
	HBITMAP				hBmp;
	LPSTR				hDIB,lpBuffer = m_pBMPBuffer;
	LPVOID				lpDIBBits;
	BITMAPFILEHEADER	bmfHeader;
	DWORD				bmfHeaderLen;

	bmfHeaderLen = sizeof(bmfHeader);
	strncpy((LPSTR)&bmfHeader,(LPSTR)lpBuffer,bmfHeaderLen);

	// 该处类型必须是BM
	if (bmfHeader.bfType != 'MB')//((WORD) ('M' << 8) | 'B')) 
	{
		return NULL;
	}
	hDIB = lpBuffer + bmfHeaderLen;
	BITMAPINFOHEADER &bmiHeader = *(LPBITMAPINFOHEADER)hDIB ;
	BITMAPINFO &bmInfo = *(LPBITMAPINFO)hDIB;
	int nColors = bmiHeader.biClrUsed ? bmiHeader.biClrUsed : 1 << bmiHeader.biBitCount; 
	
	if( bmInfo.bmiHeader.biBitCount > 8 )
	{
		lpDIBBits = (LPVOID)((LPDWORD)(bmInfo.bmiColors + bmInfo.bmiHeader.biClrUsed) + 
			((bmInfo.bmiHeader.biCompression == BI_BITFIELDS) ? 3 : 0));
	}
	else
	{
		lpDIBBits = (LPVOID)(bmInfo.bmiColors + nColors);
	}
	CClientDC dc(this);
	hBmp = CreateDIBitmap(dc.m_hDC,&bmiHeader,CBM_INIT,lpDIBBits,&bmInfo,DIB_RGB_COLORS);
	return hBmp;
}

BOOL CMyFieldTryDlg::LoadBMPFile(const char* pBMPPathname)
{
	CFile file;
	if( !file.Open( pBMPPathname, CFile::modeRead) )
		return FALSE;
	m_nFileLen = file.GetLength();
	m_pBMPBuffer = new char[m_nFileLen + 1];
	if(!m_pBMPBuffer)
		return FALSE;
	if(file.ReadHuge(m_pBMPBuffer,m_nFileLen) != m_nFileLen)
		return FALSE;
	return TRUE;
}

void CMyFieldTryDlg::DrawUserPhoto(CWnd* pWnd)
{
	if(!m_hPhotoBitmap)
	{
		return;
	}

	HBITMAP	OldBitmap;
	CDC		MemDC;
	//CDC*	pDC;
	CRect	rect;
	CPaintDC		pDC(pWnd);


	pWnd->GetClientRect(&rect);
	
	MemDC.CreateCompatibleDC(&pDC);
	OldBitmap=(HBITMAP)MemDC.SelectObject(m_hPhotoBitmap);
	pDC.BitBlt(rect.left, rect.top,rect.Width(),rect.Height(),
		&MemDC,0,0,SRCCOPY);
	MemDC.SelectObject(OldBitmap);
}

/*
void CMyFieldTryDlg::DrawUserPhoto(int x, int y, CDC *pDC)
{
	if(!m_hPhotoBitmap) return;
	HBITMAP OldBitmap;
	CDC MemDC;
	MemDC.CreateCompatibleDC(pDC);
	OldBitmap=(HBITMAP)MemDC.SelectObject(m_hPhotoBitmap);
	pDC->BitBlt(x,y,100,130,&MemDC,0,0,SRCCOPY);
	MemDC.SelectObject(OldBitmap);
}
*/

void CMyFieldTryDlg::OnBTNRecord() 
{
	// TODO: Add your control notification handler code here
	_RecordPtr	pRecord;

	pRecord.CreateInstance(_uuidof(Record));

	_bstr_t strConn("URL=http://gxp/fieldTry/FieldTry.txt");
	_bstr_t strDest("C:\\field_1.txt");

	pRecord->Open("", strConn, adModeReadWrite, adFailIfNotExists,//adOpenIfExists + adCreateCollection, 
		adOpenRecordUnspecified, "", "");

	pRecord->CopyRecord("", strDest, "", "", adCopyUnspecified, false);
}

void CMyFieldTryDlg::OnBTNStreamWrite() 
{
	// TODO: Add your control notification handler code here
	_StreamPtr	pwStream;
	
	_bstr_t		strPath("E:\\016.BMP");
	_bstr_t		strOpen("");

	_variant_t	varBLOB;

	_variant_t varOptional(DISP_E_PARAMNOTFOUND,VT_ERROR); 


	HRESULT		hr;

	hr = pwStream.CreateInstance(_uuidof(Stream));

	if(SUCCEEDED(hr))
	{
		pwStream->Type = adTypeBinary;
		//hr = pwStream->raw_Open(varOptional, /*adModeReadWrite*/adModeUnknown, adOpenStreamUnspecified, NULL, NULL);
		hr = pwStream->Open(varOptional, adModeUnknown, adOpenStreamUnspecified, strOpen, strOpen);
	}
	if(SUCCEEDED(hr))
	{
		pwStream->LoadFromFile(strPath);

		m_pRecordset->PutCollect("照片", pwStream->Read(adReadAll));
		m_pRecordset->Update();
		pwStream->Close();
	}
}

void CMyFieldTryDlg::OnBTNStreamRead() 
{
	_StreamPtr	prStream;
	_bstr_t		strOpen("");
	_variant_t  varOptional(DISP_E_PARAMNOTFOUND,VT_ERROR); 
	HRESULT		hr;

	hr = prStream.CreateInstance(_uuidof(Stream));
	if(SUCCEEDED(hr))
	{
		prStream->Type = adTypeBinary;
		hr = prStream->Open(varOptional, adModeUnknown, adOpenStreamUnspecified, strOpen, strOpen);
	}
	if(SUCCEEDED(hr))
	{
		prStream->Write(m_pRecordset->Fields->GetItem("照片")->GetValue());
		
		long lDataSize;
		lDataSize = prStream->GetSize();	

		_variant_t  varBLOB;
		prStream->put_Position(0);
		//varBLOB.vt = VT_ARRAY | VT_UI1;
		//varBLOB.scode = DISP_E_PARAMNOTFOUND;
		varBLOB = prStream->Read(adReadAll);
			

		if(varBLOB.vt == (VT_ARRAY | VT_UI1))
		{	
			if(m_pBMPBuffer = new char[lDataSize+1])				///重新分配必要的存储空间
			{	
				char *pBuf = NULL;
				SafeArrayAccessData(varBLOB.parray,(void **)&pBuf);
				memcpy(m_pBMPBuffer, pBuf, lDataSize);				///复制数据到缓冲区m_pBMPBuffer
				SafeArrayUnaccessData (varBLOB.parray);
				m_hPhotoBitmap = BufferToHBITMAP();					///生成BITMAP对象
			}
		}
		
		
		Invalidate(FALSE);
		UpdateWindow();

		prStream->SaveToFile("C:\\1.BMP", adSaveCreateOverWrite);
		prStream->Close();
	}
}