最近，自己有個項目中，需要用到飛信的相關(guān)操作（發(fā)送短信等）。于是就開始咂摸著寫一個飛信的控件出來。飛信的這個協(xié)議網(wǎng)絡(luò)上早就有人分析過，基本上大部分都分析出來了，其他沒分析的，自己抓抓包分析分析，也不難。經(jīng)過幾天的工作與摸索，目前基本上1.0版本已經(jīng)出來了。目前具備的功能如下：

　　1、刪除某個飛信好友

　　2、添加飛信好友

　　3、發(fā)送飛信消息

　　4、發(fā)送手機(jī)消息給飛信好友

　　5、發(fā)送手機(jī)信息給自己

　　6、修改自己的飛信信息

　　7、修改好友的顯示信息等

　　8、維持在線心跳

　　9、獲得某手機(jī)號的飛信用戶信息

　　大致屬性信息如下：

　　cmdRequestTimes屬性指定命令失敗時重試的次數(shù)（每次如果發(fā)送命令失敗，都會重試）

　　KeepActiveTime 屬性指定保持心跳的心跳包發(fā)送頻率時間(秒）

　　LongMsgSend屬性指定發(fā)送短信是否以長短信模式發(fā)送

　　PhoneNum屬性指定用戶的手機(jī)號

　　timeOut屬性指定超時的時間(秒)

　　飛信控件事件：

　　OnError事件指定錯誤時候觸發(fā)的事件，實際格式為：

　　OnError(Sender: TObject; var ErrorCode: Integer)

　　ErrorCode指定事件的錯誤代碼，如果發(fā)生了錯誤，用戶沒有通過本事件捕捉，就會拋出異常，目前能處理的錯誤代碼如下：

　　300: '網(wǎng)絡(luò)可能已經(jīng)斷開，請檢查';
400: '消息格式錯誤';
401: '認(rèn)證失敗';
404: '用戶不存在';
420: '用戶性別設(shè)置錯誤';
442: '密碼不能為空，或格式錯誤';
443: '昵稱為空，長度超長或格式錯誤';
481: '用戶已經(jīng)開通';
452:'用戶尚未開通FETION';
500:'服務(wù)器錯誤';

　　如果用戶指定錯誤代號為200或者0，就表示成功，講不會出現(xiàn)異常

　　OnGetMsg事件，在接收到飛信好友發(fā)送的飛信信息時候觸發(fā)，參數(shù)格式如下

　　OnGetMsg(Sender: TObject;FromContact: TContact;MsgDate: TDateTime;Msg: string) ；

　　FromContact指定來自哪個飛信好友，TContact是好友聯(lián)系人類

　　MsgDate指定消息發(fā)送時間

　　Msg指定消息內(nèi)容

　　OnLoged事件指定登錄事件，登錄完成之后觸發(fā)的事件

　　本事件無論成功與否都會觸發(fā)。

　　OnLoged(Sender: TObject; LogState: TLogState);

　　LogState登錄狀態(tài)

　　TLogState = (DxLg_Beg,DxLg_FL,DxLg_LgSIP,DxLg_LgOK);

　　DxLg_Beg登錄開始Begin

　　DxLg_FL獲取好友列表FriendList

　　DxLg_LgSIP登錄SIP身份驗證

　　DxLg_LgOK登錄成功

　　OnLogEvent事件，登錄過程中事件其實應(yīng)該是OnLoging事件

　　LogingEvent(Sender: TObject; LogMsg: string);

　　LogMsg指定登錄時候回傳的消息通知

　　OnLogOut事件，登出事件

　　OnModifyInfoEvent事件，修改飛信信息事件，修改之后觸發(fā)

　　OnModifyInfoEvent(Sender: TObject; ModifyContact: TContact; ModifyStyle: TModifyStyle; ModifyOk: Boolean);

　　ModifyContact指定修改的賬號信息

　　ModifyStyle指定修改類型

　　//修改樣式 昵稱 生日 心情短語 好友顯示名稱 刪除好友 移動好友分組
TModifyStyle=(MDS_NickName,MDS_Birth,MDS_Moodphrase, MDS_UserDisplayName,MDS_DelContact,MDS_MoveGroup);

　　ModifyOk指定是否修改成功

　　公共方法屬性等：

　　function SendMessage(const PhoneNum: string;Msg: String;const SendToPhone: Boolean=False): Boolean;overload;
function SendMessage(Contact: TContact;Msg: String;const SendToPhone: Boolean=False): Boolean;overload;
function SendMessageToMyPhone(Msg: string): Boolean;//給自己手機(jī)發(fā)信息
property ContactList: TContactList read FContactList;
//本人帳戶
property MainContact: TContact read FMainContact;
property FetionNum: string read FFetionNum;
//登錄飛信
procedure LoginFetion(Pwd: string);
//登出飛信
function LogOut: Boolean;
procedure Abort;//終止操作

　　 function DeleteContact(Contact: TContact): Boolean;overload;
function DeleteContact(PhoneNum: String): Boolean;overload;
 function DeleteFetioNum(FetionNum: string): Boolean;

　　 function ContactByPhoneNum(PhoneNum: string;var IsSelfFriend: Boolean): TContact;//根據(jù)電話號碼獲得一個用戶帳戶信息
function ContactByFetionNum(FetionNumber: string;var IsSelfFriend: Boolean): TContact;//根據(jù)飛信號碼獲得用戶帳戶信息

　　 function AddContact(PhoneNum: string;NotifyMsg: string): Boolean;//添加飛信好友
function AddContactByFetionNum(FetionNum: string;NotifyMsg: String): Boolean;//通過飛信號碼添加好友

property IsRunning: Boolean read FIsRunning;