globfunction.h

DarkATLSmtp(SMTP COM 组件原创代码),注册后可在Delphi中发邮件。

extern CString GetGUID(void);
extern int GetLineCountFromMem(CString strContent);
extern BOOL GetContentFromTextFile(CString strFilePath,CString* pContent);
extern BOOL DeleteMsgIdFromIni(CString strPath,CString strMsgId);
extern BOOL WriteMsgIdToIni(CString strPath,CString strMsgId);
extern void DeleteDirectory(CString strDir);
extern void CopyDirectory(CString strSrcDir,CString strDstDir);
extern CString GetValueByKeyFromBuf(CString strBuf,CString strKey,CString strEndFlag="\n");
extern BOOL WriteGroupNameToIni(CString strPath,CString strGroupName);
extern BOOL DelGroupNameToIni(CString strPath,CString strGroupName);
extern BOOL WriteGroupUserToIni(CString strGroupUserIniPath,CString strGroupName,
						 CString strMemberName,CString strMemberNick,
						 CString strMemberAddr,CString strMemberTel,
						 CString strMemberRemark);
extern int GetGroupLineCountFromMem(CString strContent,CString strGroupName);
extern BOOL DelGroupUserToIni(CString strPath,CString strGroupUserId);
extern BOOL WriteComGroupNameToFile(CString strPath,CString strGroupName);
extern BOOL DelComGroupNameToFile(CString strPath,CString strGroupName);
extern BOOL DelComGroupUserToFile(CString strPath,CString strGroupUserId);
extern BOOL WriteComGroupUserToFile(CString strPath,CString strGroupName,CString strMemberName,CString strMemberNick);


#define STR_KEY_MSGID "MsgId="
#define STR_KEY_FROM "From="
#define STR_KEY_TO "To="
#define STR_KEY_CC "Cc="
#define STR_KEY_SUBJECT "Subject="
#define STR_KEY_DATE "Date="
#define STR_KEY_MSGSIZE "MsgSize="
#define STR_KEY_STATE "State="
#define STR_KEY_TYPE "Type="
#define STR_KEY_BCC "BCc="
#define STR_KEY_MAILBOXSIZE "MailBoxSize="
#define STR_KEY_USERLEVEL "UserLevel="

#define STR_KEY_TRUENAME "TrueName="
#define STR_KEY_GENDER "Gender="
#define STR_KEY_BIRTH "Birth="
#define STR_KEY_PERSONALID "PersonalID="
#define STR_KEY_MAILBOX "MailBox="
#define STR_KEY_CITY "City="
#define STR_KEY_EDUCATION "Education="
#define STR_KEY_MARITALSTATUS "MaritalStatus="
#define STR_KEY_JOBTYPE "JobType="
#define STR_KEY_OCCUPATION "Occupation="
#define STR_KEY_INCOME "Income="
#define STR_KEY_NETCOST "NetCost="
#define STR_KEY_ENQUIRY "Enquiry="

#define STR_KEY_NICKNAME "NickName="
#define STR_KEY_NOTWITHORIMAIL "NotWithOriMail="
#define STR_KEY_MARKORIMSG "MarkOriMsg="
#define STR_KEY_SAVEOUTBOX "SaveOutBox="
#define STR_KEY_DELOPTION "DelOption="
#define STR_KEY_FULLWARNRATE "FullWarnRate="
#define STR_KEY_RECVDELINSERVER "RecvDelInServer="

#define STR_KEY_REJECTMAIL "RejectMail="
#define STR_KEY_ENABLEREPLY "EnableReply="
#define STR_KEY_AUTOREPLYCONTENT "AutoReplyContent="

#define STR_KEY_GROUPNAME "GroupName="

#define STR_KEY_MEMBERNAME "MemberName="
#define STR_KEY_MEMBERNICK "MemberNick="
#define STR_KEY_MEMBERADDR "MemberAddr="
#define STR_KEY_MEMBERTEL "MemberTel="
#define STR_KEY_MEMBERREMARK "MemberRemark="
#define STR_KEY_MEMBERID "MemberId="

#define STR_VALUE_TYPE_RECVBOX "RecvBox"
#define STR_VALUE_TYPE_SENDBOX "SendBox"
#define STR_VALUE_TYPE_SAVEBOX "SaveBox"
#define STR_VALUE_TYPE_WASTEBOX "WasteBox"
#define STR_KEY_LINEEND "\r\n"
#define STR_KEY_FIELDSPACE ";"

#define WRITESTRINGTOFILE(strString) { \
DWORD dwWriteCount=0; \
BOOL bResult=WriteFile(hFile,strString.GetBuffer(0),strString.GetLength(),&dwWriteCount,NULL); \
strString.ReleaseBuffer(); \
if(!bResult){CloseHandle(hFile);return FALSE;}}

#define VARIANTTOCHAR(vtSrc,pDst) \
{ \
	if((vtSrc).vt==VT_BSTR) \
		(pDst)=OLE2T((vtSrc).bstrVal); \
	else \
		(pDst)=OLE2T((vtSrc).pvarVal->bstrVal); \
}

#define VARIANTTOLONG(vtSrc,lDst) \
{ \
	if((vtSrc).vt==VT_I4) \
		(lDst)=(vtSrc).lVal; \
	else if ((vtSrc).vt==VT_I2) \
		(lDst)=(vtSrc).iVal; \
	else if ((vtSrc).pvarVal->vt==VT_I4) \
		(lDst)=(vtSrc).pvarVal->lVal; \
	else \
		(lDst)=(vtSrc).pvarVal->iVal; \
}

#define VARIANTTOVBOOL(vtSrc,vbDst) \
{ \
	if((vtSrc).vt==VT_BOOL) \
		(vbDst)=(vtSrc).boolVal; \
	else \
		(vbDst)=(vtSrc).pvarVal->boolVal; \
}

#define VARIANTTOBOOL(vtSrc,bDst) \
{ \
	if((vtSrc.vt)==VT_BOOL) \
		(bDst)=((vtSrc).boolVal==VARIANT_TRUE)?TRUE:FALSE; \
	else \
		(bDst)=(((vtSrc).pvarVal->boolVal)==VARIANT_TRUE)?TRUE:FALSE; \
}

#define STR_DEFAULT_CONTENTATTACHMENT "ContentAttachment"
#define STR_DEFAULT_ATTACHMENT "Attachment"
#define STR_FILENAME_RECVIDLIST "RecvIdList.ini"
#define STR_FILENAME_SENDIDLIST "SendIdList.ini"
#define STR_FILENAME_SAVEIDLIST "SaveIdList.ini"
#define STR_FILENAME_WASTEIDLIST "WasteIdList.ini"
#define STR_FILENAME_LEVELINFO "LevelInfo.ini"
#define STR_FILENAME_USERINFO "UserInfo.ini"
#define STR_FILENAME_SYSINFO "SysInfo.ini"
#define STR_FILENAME_ASSISTINFO "AssistInfo.ini"
#define STR_FILENAME_GROUPLIST "GroupList.ini"
#define STR_FILENAME_GROUPUSERLIST "GroupUserList.ini"
#define STR_FILENAME_COMPANYGROUP "CompanyGroup.txt"
#define STR_FILENAME_COMPANYUSER "CompanyUser.txt"