coredata.~pas

求是科技出版的《Delphi串口通信工程开发实例导航》所有的源代码。是一本很好的书。拿出来与大家共享。

unit CoreData;

interface

uses
        Contnrs, Classes,Windows, Messages;

     //
     // 邮件账号信息
     //
     type
        TAccountInfo =record
	m_Account : string;		// 帐号名，用户所起的便于记忆的名字
	m_Server : string;		// pop3 服务器
	m_Port : string;		// 端口，默认是 110
	m_User : string;		// 邮箱用户名
	m_Pwd : string;			// 邮箱密码
	m_Mobile : string;      	// 关联手机号
        m_SendToMobile : boolean;       // 是否发送到手机
	m_lstEmail : TList;	        // 本帐户对应的邮件信息
      end;

     //
     // 一封邮件信息
     //
     type
        TEmailInfo = packed record
	m_Id : string[20];	  // 邮件的唯一标识
	m_From : string[30];	  // 发件人
	m_Date : string[20];	  // 发件日期
	m_Subject : string[50];	  // 主题
	m_Size : string[20];	  // 大小
     end;

     //
     // 设置信息
     //
     type
        TConfigInfo = record
	m_Timeout  : integer;	// 超时时间
	m_Interval : integer;	// 检测邮件间隔时间
	m_WaveFile : string;	// 有新邮件是播放的声音文件
	m_Hide     : boolean;	// 最小化时隐藏
        m_SMSCenter : String;   // 短信中收号码
        m_SMSMode : String;     // 发送模式,取 Text 和 Pdu 两种值  
     end;

     //
     // 串口设置信息
     //
     type
        TComInfo = record
        m_ComPort : smallInt;     // 串口号
        m_BaudRate : string;    // 波特率
        m_Parity : string;      // 较验位
        m_DataBits : string;    // 数据位
        m_StopBits : string;    // 停止位
     end;

const
        WM_INIFINISHED = WM_USER + 100; // 初使化完毕消息
        WM_NOTIFY = WM_USER + 101;      // TRAY消息

implementation

end.