开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 金融证券系统 > 查看源码
AfxCore.cpp
资源名称：clking_src.rar　[点击查看]
上传用户：zhanglf88
上传日期：2013-11-19
资源大小：6036k
文件大小：13k
源码类别：

金融证券系统

开发平台：

Visual C++

AfxCore.cpp：源码内容
  1. // AfxCore.cpp : implementation of the AfxCore Functions
  2. //
  4. #include "stdafx.h"
  5. #include "AfxCore.h"
  6. #include "ProxySetDlg.h"
  7. #include "SMailerSMailer.h"
  8. #include "Secret.h"
  10. #ifdef AFX_INIT_SEG
  11. #pragma code_seg(AFX_INIT_SEG)
  12. #endif
  14. #ifdef _DEBUG
  15. #undef THIS_FILE
  16. static char THIS_FILE[] = __FILE__;
  17. #endif
  19. CNetDatabase & AfxGetNetDB()
  20. {
  21. static CNetDatabase g_netdatabase;
  22. return g_netdatabase;
  23. }
  25. STKNET_API BOOL AfxSendMail(LPCTSTR lpszSenderName, LPCTSTR lpszSenderAddress,
  26.  LPCTSTR lpszReceiverName, LPCTSTR lpszReceiverAddress,
  27.  LPCTSTR lpszSubject, LPCTSTR lpszContent, CString & strErrorMsg )
  28. {
  29. CString sContent = lpszContent;
  30. CString sContentHTML = "<HTML><BODY><PRE>" + sContent + "</PRE></BODY></HTML>";
  32. SMailer::TextPlainContent * content1 = new SMailer::TextPlainContent( LPCTSTR(sContent) );
  33. SMailer::TextHtmlContent  * content2 = new SMailer::TextHtmlContent( LPCTSTR(sContentHTML) );
  35. SMailer::MailInfo info;
  36. info.setSenderName( lpszSenderName );
  37. info.setSenderAddress( lpszSenderAddress );
  38. info.addReceiver( lpszReceiverName, lpszReceiverAddress );
  39. info.setPriority(SMailer::Priority::normal);
  40. info.setSubject( lpszSubject );
  41. info.addMimeContent( content1 );
  42. info.addMimeContent( content2 );
  44. SMailer::MailSender sender( (LPCTSTR)AfxGetProfile().GetEvaluateSMTPServer(),
  45. (LPCTSTR)AfxGetProfile().GetEvaluateSMTPUser(),
  46. (LPCTSTR)AfxGetProfile().GetEvaluateSMTPPasswd() );
  47. sender.setMail(&SMailer::MailWrapper(&info));
  48. BOOL success = sender.sendMail();
  49. if( !success )
  50. strErrorMsg += sender.getErrMessage();
  51. if( content1 ) { delete content1; content1 = NULL; }
  52. if( content2 ) { delete content2; content2 = NULL; }
  53. return success;
  54. }
  56. BOOL AfxGetEvaluateCode( CString & strEvaCode )
  57. {
  58. CSPTime tm = CSPTime::GetCurrentTime();
  59. tm += CSPTimeSpan(AfxGetSView().GetMaxEvaDays()+30);
  60. CSPString strRegCode0;
  61. if( AfxGetSView().DumpEva( tm.GetTime(), strRegCode0 ) )
  62. {
  63. strEvaCode = strRegCode0;
  64. return TRUE;
  65. }
  66. return FALSE;
  67. }
  69. STKNET_API BOOL AfxApplyForEvaluation(LPCTSTR lpszUserName, LPCTSTR lpszDistrict,
  70.    LPCTSTR lpszClass, LPCTSTR lpszEmail,
  71.    CString & strErrorMsg )
  72. {
  73. if( NULL == lpszUserName || NULL == lpszDistrict || NULL == lpszClass || NULL == lpszEmail )
  74. return FALSE;
  75. if( strlen(lpszUserName) <= 0 || strlen(lpszDistrict) <= 0 || strlen(lpszClass) <= 0 || strlen(lpszEmail) <= 0 )
  76. return FALSE;
  78. CString sSubject = AfxModuleLoadString( IDS_APPLYFOREVA_SUBJECT );
  80. CString sContent;
  81. #ifdef CLKLAN_ENGLISH_US
  82. sContent += "rnVersion:Ninebulls310-20060325";
  83. #else
  84. sContent += "rnVersion:CLKing310-20060325";
  85. #endif
  86. sContent += "rnUser:";
  87. sContent += lpszUserName;
  88. sContent += "rn";
  89. sContent += "District:";
  90. sContent += lpszDistrict;
  91. sContent += "rn";
  92. sContent += "Class:";
  93. sContent += lpszClass;
  94. sContent += "rn";
  95. sContent += "Email:";
  96. sContent += lpszEmail;
  97. sContent += "rn";
  99. CString sEvaCode;
  100. if( AfxGetEvaluateCode(sEvaCode) )
  101. {
  102. sContent += "EvaCode:";
  103. sContent += sEvaCode;
  104. sContent += "rn";
  105. if( AfxSendMail( lpszUserName, lpszEmail, "evaluate", (LPCTSTR)AfxGetProfile().GetEvaluateEmail(),
  106. (LPCTSTR)sSubject, (LPCTSTR)sContent, strErrorMsg ) )
  107. {
  108. CString sReplyContent = AfxModuleLoadString( IDS_APPLYFOREVA_REPLYCONTENT );
  109. sReplyContent += "rnrn    ";
  110. sReplyContent += sEvaCode;
  111. sReplyContent += "rnrn";
  112. sReplyContent += AfxModuleLoadString( IDS_APPLYFOREVA_REPLYDESCRIPT );
  113. return AfxSendMail( "", (LPCTSTR)AfxGetProfile().GetEvaluateEmail(), lpszUserName, lpszEmail,
  114. (LPCTSTR)("Re:"+sSubject), (LPCTSTR)sReplyContent, strErrorMsg );
  115. }
  116. }
  117. return FALSE;
  118. }
  120. BOOL AfxDoProxySetting( )
  121. {
  122. CProxySetDlg dlg;
  123. dlg.DoModal();
  124. return TRUE;
  125. }
  127. //////////////////////////////////////////////////////////////////////////////
  128. // 注册表读写函数
  130. BOOL AfxSetRegKey(LPCTSTR lpszKey, LPCTSTR lpszValue, LPCTSTR lpszValueName)
  131. {
  132. if (lpszValueName == NULL)
  133. {
  134. if (::RegSetValue(HKEY_CLASSES_ROOT, lpszKey, REG_SZ,
  135.   lpszValue, lstrlen(lpszValue) * sizeof(TCHAR)) != ERROR_SUCCESS)
  136. {
  137. TRACE1("Warning: registration database update failed for key '%s'.n",
  138. lpszKey);
  139. return FALSE;
  140. }
  141. return TRUE;
  142. }
  143. else
  144. {
  145. HKEY hKey;
  147. if(::RegCreateKey(HKEY_CLASSES_ROOT, lpszKey, &hKey) == ERROR_SUCCESS)
  148. {
  149. LONG lResult = ::RegSetValueEx(hKey, lpszValueName, 0, REG_SZ,
  150. (CONST BYTE*)lpszValue, (lstrlen(lpszValue) + 1) * sizeof(TCHAR));
  152. if(::RegCloseKey(hKey) == ERROR_SUCCESS && lResult == ERROR_SUCCESS)
  153. return TRUE;
  154. }
  155. TRACE1("Warning: registration database update failed for key '%s'.n", lpszKey);
  156. return FALSE;
  157. }
  158. }
  160. LONG AfxGetRegKey(HKEY key, LPCTSTR subkey, LPTSTR retdata)
  161. {
  162. HKEY hkey;
  163. LONG retval = RegOpenKeyEx(key, subkey, 0, KEY_QUERY_VALUE, &hkey);
  165. if (retval == ERROR_SUCCESS) {
  166. long datasize = MAX_PATH;
  167. TCHAR data[MAX_PATH];
  168. RegQueryValue(hkey, NULL, data, &datasize);
  169. lstrcpy(retdata,data);
  170. RegCloseKey(hkey);
  171. }
  173. return retval;
  174. }
  176. // recursively remove a registry key if and only if it has no subkeys
  177. BOOL AfxDeleteRegKey(LPCTSTR lpszKey)
  178. {
  179. // copy the string
  180. LPTSTR lpszKeyCopy = _tcsdup(lpszKey);
  181. LPTSTR lpszLast = lpszKeyCopy + lstrlen(lpszKeyCopy);
  183. // work until the end of the string
  184. while (lpszLast != NULL)
  185. {
  186. *lpszLast = '';
  187. lpszLast = _tcsdec(lpszKeyCopy, lpszLast);
  189. // try to open that key
  190. HKEY hKey;
  191. if (::RegOpenKey(HKEY_CLASSES_ROOT, lpszKeyCopy, &hKey) != ERROR_SUCCESS)
  192. break;
  194. // enumerate the keys underneath
  195. TCHAR szScrap[_MAX_PATH+1];
  196. DWORD dwLen = sizeof(szScrap);
  197. BOOL bItExists = FALSE;
  199. if (::RegEnumKey(hKey, 0, szScrap, dwLen) == ERROR_SUCCESS)
  200. bItExists = TRUE;
  201. ::RegCloseKey(hKey);
  203. // found one?  quit looping
  204. if (bItExists)
  205. break;
  207. // otherwise, delete and find the previous backwhack
  208. ::RegDeleteKey(HKEY_CLASSES_ROOT, lpszKeyCopy);
  209. lpszLast = _tcsrchr(lpszKeyCopy, '\');
  210. }
  212. // release the string and return
  213. free(lpszKeyCopy);
  214. return TRUE;
  215. }
  217. HKEY AfxGetSectionKey( HKEY hKey, LPCTSTR szRegKeyGroup, LPCTSTR szRegKeyCompany, LPCTSTR szRegKeyApp, LPCTSTR lpszSection )
  218. {
  219. HKEY hGroupKey = NULL;
  220. HKEY hCompanyKey = NULL;
  221. HKEY hAppKey = NULL;
  222. HKEY hSectionKey = NULL;
  223. if (RegOpenKeyEx( hKey, szRegKeyGroup, 0, KEY_WRITE|KEY_READ,
  224. &hGroupKey) == ERROR_SUCCESS)
  225. {
  226. DWORD dw;
  227. if (RegCreateKeyEx(hGroupKey, szRegKeyCompany, 0, REG_NONE,
  228. REG_OPTION_NON_VOLATILE, KEY_WRITE|KEY_READ, NULL,
  229. &hCompanyKey, &dw) == ERROR_SUCCESS )
  230. {
  231. RegCreateKeyEx(hCompanyKey, szRegKeyApp, 0, REG_NONE,
  232. REG_OPTION_NON_VOLATILE, KEY_WRITE|KEY_READ, NULL,
  233. &hAppKey, &dw);
  234. }
  235. }
  236. if (hGroupKey != NULL)
  237. RegCloseKey(hGroupKey);
  238. if (hCompanyKey != NULL)
  239. RegCloseKey(hCompanyKey);
  241. DWORD dw;
  242. if( NULL == hAppKey )
  243. return FALSE;
  244. RegCreateKeyEx(hAppKey, lpszSection, 0, REG_NONE,
  245. REG_OPTION_NON_VOLATILE, KEY_WRITE|KEY_READ, NULL,
  246. &hSectionKey, &dw);
  247. RegCloseKey(hAppKey);
  249. return hSectionKey;
  250. }
  252. BOOL AfxRegSetValue( LPCTSTR szRegKeyCompany, LPCTSTR szRegKeyApp, LPCTSTR lpszSection, LPCTSTR lpszEntry, LPCTSTR lpszValue )
  253. {
  254. ASSERT( lpszSection && lpszEntry && lpszValue );
  255. if( !lpszSection || !lpszEntry || !lpszValue )
  256. return FALSE;
  258. HKEY hSectionKey = AfxGetSectionKey( HKEY_LOCAL_MACHINE, _T("Software"), szRegKeyCompany, szRegKeyApp, lpszSection );
  260. if (hSectionKey == NULL)
  261. return FALSE;
  262. LONG lResult = RegSetValueEx(hSectionKey, lpszEntry, NULL, REG_SZ,
  263. (LPBYTE)lpszValue, (lstrlen(lpszValue)+1)*sizeof(TCHAR));
  264. RegCloseKey(hSectionKey);
  266. return lResult == ERROR_SUCCESS;
  267. }
  269. CString AfxRegQueryString(HKEY hKey, LPCTSTR szRegKeyGroup, LPCTSTR szRegKeyCompany, LPCTSTR szRegKeyApp, LPCTSTR lpszSection, LPCTSTR lpszEntry, LPCTSTR lpszDefault )
  270. // hKey = HKEY_LOCAL_MACHINE, HKEY_CLASSES_ROOT, or so
  271. {
  272. HKEY hSecKey = AfxGetSectionKey(hKey, szRegKeyGroup, szRegKeyCompany, szRegKeyApp, lpszSection);
  273. if (hSecKey == NULL)
  274. return lpszDefault;
  275. CString strValue;
  276. DWORD dwType, dwCount;
  277. LONG lResult = RegQueryValueEx(hSecKey, (LPTSTR)lpszEntry, NULL, &dwType,
  278. NULL, &dwCount);
  279. if (lResult == ERROR_SUCCESS)
  280. {
  281. ASSERT(dwType == REG_SZ);
  282. lResult = RegQueryValueEx(hSecKey, (LPTSTR)lpszEntry, NULL, &dwType,
  283. (LPBYTE)strValue.GetBuffer(dwCount/sizeof(TCHAR)), &dwCount);
  284. strValue.ReleaseBuffer();
  285. }
  286. RegCloseKey(hSecKey);
  287. if (lResult == ERROR_SUCCESS)
  288. {
  289. ASSERT(dwType == REG_SZ);
  290. return strValue;
  291. }
  292. return lpszDefault;
  293. }
  295. BOOL AfxRegQueryString(HKEY hKey, LPCTSTR szRegKeyGroup, LPCTSTR szRegKeyCompany, LPCTSTR szRegKeyApp,
  296.    CStringArray &astrName, CStringArray &astrData )
  297. // hKey = HKEY_LOCAL_MACHINE, HKEY_CLASSES_ROOT, or so
  298. {
  299. HKEY hSecKey = AfxGetSectionKey(hKey, szRegKeyGroup, szRegKeyCompany, szRegKeyApp, "");
  300. if (hSecKey == NULL)
  301. return FALSE;
  303. int nIndex = 0;
  304. while( TRUE )
  305. {
  306. CString strName, strData;
  307. CHAR szName[MAX_PATH];
  308. BYTE szData[MAX_PATH];
  309. DWORD dwType, dwNameLen=sizeof(szName), dwDataLen=sizeof(szData);
  310. if( ERROR_SUCCESS != RegEnumValue(hSecKey, nIndex, szName, &dwNameLen,
  311. NULL, &dwType, szData, &dwDataLen ) )
  312. break;
  313. if( dwType == REG_SZ )
  314. {
  315. astrName.Add( (LPCTSTR)szName );
  316. astrData.Add( (LPCTSTR)szData );
  317. }
  318. nIndex ++;
  319. }
  321. RegCloseKey(hSecKey);
  322. return astrName.GetSize() > 0;
  323. }
  325. HINSTANCE AfxGotoURL(LPCTSTR url, int showcmd)
  326. {
  327. TCHAR key[MAX_PATH + MAX_PATH];
  329. // First try ShellExecute()
  330. HINSTANCE result = ShellExecute(NULL, _T("open"), url, NULL,NULL, showcmd);
  332. // If it failed, get the .htm regkey and lookup the program
  333. if ((UINT)result <= HINSTANCE_ERROR) {
  335. if (AfxGetRegKey(HKEY_CLASSES_ROOT, _T(".htm"), key) == ERROR_SUCCESS) {
  336. lstrcat(key, _T("\shell\open\command"));
  338. if (AfxGetRegKey(HKEY_CLASSES_ROOT,key,key) == ERROR_SUCCESS) {
  339. TCHAR *pos;
  340. pos = _tcsstr(key, _T(""%1""));
  341. if (pos == NULL) {                     // No quotes found
  342. pos = strstr(key, _T("%1"));       // Check for %1, without quotes 
  343. if (pos == NULL)                   // No parameter at all...
  344. pos = key+lstrlen(key)-1;
  345. else
  346. *pos = '';                   // Remove the parameter
  347. }
  348. else
  349. *pos = '';                       // Remove the parameter
  351. lstrcat(pos, _T(" "));
  352. lstrcat(pos, url);
  353. result = (HINSTANCE) WinExec(key,showcmd);
  354. }
  355. }
  356. }
  358. return result;
  359. }
  361. BOOL AfxRegisterActiveXCtrls( LPCTSTR lpszOcxFileName )
  362. {
  363. HINSTANCE hLib = LoadLibrary( lpszOcxFileName );
  364. if (hLib < (HINSTANCE)HINSTANCE_ERROR)
  365. return FALSE; 
  366.   
  367. FARPROC   lpfnRegister;
  368. (FARPROC&)lpfnRegister = ::GetProcAddress( hLib, _T("DllRegisterServer") );
  369.   
  370. if (lpfnRegister!= NULL)
  371. {
  372. (*lpfnRegister)();//Register control
  373. return TRUE;
  374. }
  375. return FALSE;
  376. }
  378. CString AfxGetVersionString( )
  379. {
  380. static CString strVersion;
  381. if( strVersion.IsEmpty() )
  382. {
  383. if( AfxGetSView().IsProf() )
  384. strVersion = AfxModuleLoadString( IDS_VERSION_PROFESSIONAL );
  385. else if( AfxGetSView().IsStd() )
  386. strVersion = AfxModuleLoadString( IDS_VERSION_STDANDARD );
  387. else
  388. strVersion = AfxModuleLoadString( IDS_VERSION_EVALUATE );
  389. strVersion = (LPCTSTR)AfxGetProfile().GetVersion( ) + strVersion;
  390. }
  391. return strVersion;
  392. }
  394. CString AfxGetFileTitle( LPCTSTR lpszPathName )
  395. {
  396. CString strPathName = lpszPathName;
  397. if( strPathName.IsEmpty() )
  398. return "";
  399. UINT nTitleLen = AfxGetFileTitle( strPathName, NULL, 0 );
  400. if( nTitleLen <= 0 || nTitleLen-1 > (UINT)strPathName.GetLength() )
  401. return "";
  403. CString strTitle = strPathName.Right( nTitleLen-1 );
  404. return strTitle;
  405. }
  407. CString AfxGetFileTitleNoExt( LPCTSTR lpszPathName )
  408. {
  409. CString strPathName = lpszPathName;
  410. if( strPathName.IsEmpty() )
  411. return "";
  412. UINT nTitleLen = AfxGetFileTitle( strPathName, NULL, 0 );
  413. if( nTitleLen <= 0 || nTitleLen-1 > (UINT)strPathName.GetLength() )
  414. return "";
  416. CString strTitle = strPathName.Right( nTitleLen-1 );
  417. int nIndex = strTitle.ReverseFind( '.' );
  418. if( -1 != nIndex )
  419. strTitle = strTitle.Left( nIndex );
  420. return strTitle;
  421. }
  423. CString AfxGetFileDirectoryExist( LPCTSTR lpszPathName, LPCTSTR lpszDefault )
  424. {
  425. CString strPathName = lpszPathName;
  426. CString strDefault = lpszDefault;
  427. if( strPathName.IsEmpty() )
  428. return strDefault;
  430. CString strResult = strPathName;
  431. while( !strResult.IsEmpty()
  432. && FILE_ATTRIBUTE_DIRECTORY != GetFileAttributes( strResult ) )
  433. {
  434. int nIndex = strResult.ReverseFind( '\' );
  435. if( -1 == nIndex )
  436. nIndex = strResult.ReverseFind( '/' );
  437. if( -1 == nIndex )
  438. {
  439. strResult = strDefault;
  440. break;
  441. }
  442. strResult = strResult.Left( nIndex );
  443. }
  445. if( strResult.GetLength() <= 0 )
  446. return strDefault;
  448. int nLen = strResult.GetLength();
  449. if( nLen > 0 && strResult[nLen-1] != '\' && strResult[nLen-1] != '/' )
  450. strResult += STRING_DIRSEP;
  452. return strResult;
  453. }
  455. #ifdef AFX_CORE2_SEG
  456. #pragma code_seg(AFX_CORE2_SEG)
  457. #endif
  459. #ifdef AFX_TERM_SEG
  460. #pragma code_seg(AFX_TERM_SEG)
  461. #endif
  463. #ifdef AFX_INIT_SEG
  464. #pragma code_seg(AFX_INIT_SEG)
  465. #endif
  467. /////////////////////////////////////////////////////////////////////////////