利用飞信的协议可以在线收发消息，或是向手机发送消息。由此，可以自己来完成一个IM工具。本文即是对飞信SDK的使用方法，及如何开发作一个说明。一、引用FetionSDK飞信是采用C#开发的，所有的程序集均是.NET，因此我们也需要使用Delphi.NET/Chrome来进行相关的开发。在Chrome中，新建一个工程，并引入FetionSDK.dll，，当然您也可以使用Delphi2007 for .NET，开发出来结果一样。其实我曾尝试过把FetionSDK.dll变成一个COM+程序，但是不巧的是这个dll没有strong name，无法转换。引用完SDK后，在主窗体的uses下添加NullStudio.Fetion_SDK。二、准备工作准备工作很简单，在public区分符下，建立一个名为sdk的FetionSDK对象。然后为它创建一个实例。三、用户登录使用以下代码来填入用户名和密码：sdk.AccountManager.FillUserIdAndPassword(UserID,Password,true);三个参数分别是用户手机号，密码，是否自动登录，当选定了自动登录为True时，可以使用 sdk.AccountManager.LoginOrLogout();来自动的判断是登录或是注销，否则的话，就要使用sdk.AccountManager.Login(); 来登录。四、状态改变用户登录或注销，或是改变自己当前的状态时，会触发状态改变的事件。如下：procedure sdk_SDK_UserSatusChange(sender: Object; e:UserSatusChangedEventArgs);其中参数e中来自命名空间Imps.Client.Core。然后我们绑定这个事件：sdk.SDK_UserSatusChange += new FetionSDK.SDK_UserSatusChangedEventHandler(sdk_SDK_UserSatusChange);这样SDK就能接收到状态改变的事件了。另外，还能针对各个状态，执行不同的指令，如下：case e.NewStatus ofImps.Client.UserAccountStatus.Disconnected: ;Imps.Client.UserAccountStatus.Initialized: ;Imps.Client.UserAccountStatus.Loginning: ;Imps.Client.UserAccountStatus.Logon:Imps.Client.UserAccountStatus.Logoff: ;Imps.Client.UserAccountStatus.Logouting: ;Imps.Client.UserAccountStatus.None: ;Imps.Client.UserAccountStatus.OfflineLogon: ;Imps.Client.UserAccountStatus.StandBy: ;Imps.Client.UserAccountStatus.WaitReconnect: ;elseend;五、获取好友列表varlst : List<Contact>;i: Integer;beginlstFriendLst.Items.Clear();lst := sdk.ContactControl.getAllContactList();for i := 0 to lst.Count – 1 dobeginlstFriendLst.Items.Add(string.Format("{0} [Fetion: {1} Mobile: {2}]",lst[i].DisplayName, lst[i].Uri.Id, IfThen(lst[i].PersonalInfo.MobileNo = string.Empty, "Not Published", lst[i].PersonalInfo.MobileNo)));end;六、发送消息调用SDK的发送消息指令，传入的参数分别是对方手机号码和短信的内容。sdk.ContactControl.SendIM.SendIM(edtPhoneNo.Text, edtSendMsg.Text);七、接收消息接收到消息时，会解发SDK的收到消息事件，如下：procedure sdk_SDK_ReceiveMessage(sender: Object; e:SDK_ReceiveMessageEventArgs);实现此方法后，绑定这个事件。sdk.SDK_ReceiveMessage += new FetionSDK.SDK_ReceiveMessageEventHandler(sdk_SDK_ReceiveMessage);八、发送手机短信与发送消息一样，只不过使用的是另一个方法。sdk.ContactControl.SendSMS.SendSMS(sdk.ContactControl.getMyself.Uri.Id,edtSendMsg.Text);在这里需要注意SendIM与SendSMS的区别。getMyself是SDK中的一个方法，用来获取当前用户的信息。九、出错事件当SDK因为某种原因出错后，会触发出错事件，如下：procedure sdk_SDK_Error(sender: Object; e: SDK_ErrorEventArgs);实现后绑定：sdk.SDK_Error += new FetionSDK.SDK_ErrorEventHandler(sdk_SDK_Error);十、编译，执行程序现在可以编译并执行程序了。十一、程序源码namespace FetionDemo;interfaceusesSystem.Windows.Forms,System.Drawing,Imps.Client.Core,NullStudio.Fetion_SDK,NullStudio.Fetion_SDK.Event,System.Collections.Generic;type/// <summary>/// Summary description for MainForm./// </summary>MainForm = class(System.Windows.Forms.Form){$REGION Windows Form Designer generated fields}private btnSendSelf: System.Windows.Forms.Button; edtPhoneNo: System.Windows.Forms.TextBox; btnSend: System.Windows.Forms.Button; edtSendMsg: System.Windows.Forms.TextBox; sbMain: System.Windows.Forms.StatusStrip; lblPassword: System.Windows.Forms.Label; lblAccount: System.Windows.Forms.Label; edtMsg: System.Windows.Forms.TextBox; lblPhoneNo: System.Windows.Forms.Label; gbMsg: System.Windows.Forms.GroupBox; lstFriendLst: System.Windows.Forms.ListBox; gbFriendLst: System.Windows.Forms.GroupBox; edtPassword: System.Windows.Forms.TextBox; edtUserID: System.Windows.Forms.TextBox; lblError: System.Windows.Forms.ToolStripStatusLabel; btnLogoff: System.Windows.Forms.Button; btnLogin: System.Windows.Forms.Button; lblStatus: System.Windows.Forms.ToolStripStatusLabel; gbLogin: System.Windows.Forms.GroupBox; components: System.ComponentModel.Container := nil; method InitializeComponent;{$ENDREGION}private method btnSendSelf_Click(sender: System.Object; e: System.EventArgs); method btnSend_Click(sender: System.Object; e: System.EventArgs); method btnLogoff_Click(sender: System.Object; e: System.EventArgs); method btnLogin_Click(sender: System.Object; e: System.EventArgs); method MainForm_Load(sender: System.Object; e: System.EventArgs);protected method Dispose(aDisposing: boolean); override; function IfThen(ABool: Boolean; AStr1, AStr2: String): String;public sdk : FetionSDK; bLogon: Boolean; procedure sdk_SDK_UserSatusChange(sender: Object; e:UserSatusChangedEventArgs); procedure sdk_SDK_Error(sender: Object; e: SDK_ErrorEventArgs); procedure sdk_SDK_ReceiveMessage(sender: Object; e:SDK_ReceiveMessageEventArgs); constructor;end;implementation{$REGION Construction and Disposition}constructor MainForm;begin//// Required for Windows Form Designer support//InitializeComponent();//// TODO: Add any constructor code after InitializeComponent call//end;method MainForm.Dispose(aDisposing: boolean);beginif aDisposing then begin if assigned(components) then components.Dispose(); // // TODO: Add custom disposition code here //end;inherited Dispose(aDisposing);end;{$ENDREGION}{$REGION Windows Form Designer generated code}method MainForm.InitializeComponent;beginvar resources: System.ComponentModel.ComponentResourceManager := new System.ComponentModel.ComponentResourceManager(typeof(MainForm));self.sbMain := new System.Windows.Forms.StatusStrip();self.lblStatus := new System.Windows.Forms.ToolStripStatusLabel();self.lblError := new System.Windows.Forms.ToolStripStatusLabel();self.gbMsg := new System.Windows.Forms.GroupBox();self.lblPhoneNo := new System.Windows.Forms.Label();self.edtSendMsg := new System.Windows.Forms.TextBox();self.btnSend := new System.Windows.Forms.Button();self.edtPhoneNo := new System.Windows.Forms.TextBox();self.edtMsg := new System.Windows.Forms.TextBox();self.btnLogin := new System.Windows.Forms.Button();self.edtUserID := new System.Windows.Forms.TextBox();self.edtPassword := new System.Windows.Forms.TextBox();self.lblAccount := new System.Windows.Forms.Label();self.lblPassword := new System.Windows.Forms.Label();self.gbLogin := new System.Windows.Forms.GroupBox();self.btnLogoff := new System.Windows.Forms.Button();self.gbFriendLst := new System.Windows.Forms.GroupBox();self.lstFriendLst := new System.Windows.Forms.ListBox();self.btnSendSelf := new System.Windows.Forms.Button();self.sbMain.SuspendLayout();self.gbMsg.SuspendLayout();self.gbLogin.SuspendLayout();self.gbFriendLst.SuspendLayout();self.SuspendLayout();// // sbMain// self.sbMain.Items.AddRange(array of System.Windows.Forms.ToolStripItem([self.lblStatus, self.lblError]));self.sbMain.Location := new System.Drawing.Point(0, 466);self.sbMain.Name := ‘sbMain’;self.sbMain.Size := new System.Drawing.Size(358, 22);self.sbMain.TabIndex := 9;self.sbMain.Text := ‘statusStrip1’;// // lblStatus// self.lblStatus.Name := ‘lblStatus’;self.lblStatus.Size := new System.Drawing.Size(41, 17);self.lblStatus.Text := ‘Logoff’;// // lblError// self.lblError.Name := ‘lblError’;self.lblError.Size := new System.Drawing.Size(53, 17);self.lblError.Text := ‘No Error’;// // gbMsg// self.gbMsg.Controls.Add(self.lblPhoneNo);self.gbMsg.Controls.Add(self.edtSendMsg);self.gbMsg.Controls.Add(self.btnSend);self.gbMsg.Controls.Add(self.edtPhoneNo);self.gbMsg.Controls.Add(self.edtMsg);self.gbMsg.Location := new System.Drawing.Point(12, 198);self.gbMsg.Name := ‘gbMsg’;self.gbMsg.Size := new System.Drawing.Size(337, 231);self.gbMsg.TabIndex := 8;self.gbMsg.TabStop := false;self.gbMsg.Text := ‘Message’;// // lblPhoneNo// self.lblPhoneNo.AutoSize := true;self.lblPhoneNo.Location := new System.Drawing.Point(11, 174);self.lblPhoneNo.Name := ‘lblPhoneNo’;self.lblPhoneNo.Size := new System.Drawing.Size(53, 12);self.lblPhoneNo.TabIndex := 6;self.lblPhoneNo.Text := ‘Phone No’;// // edtSendMsg// self.edtSendMsg.Location := new System.Drawing.Point(7, 198);self.edtSendMsg.Name := ‘edtSendMsg’;self.edtSendMsg.Size := new System.Drawing.Size(249, 21);self.edtSendMsg.TabIndex := 5;// // btnSend// self.btnSend.Location := new System.Drawing.Point(262, 196);self.btnSend.Name := ‘btnSend’;self.btnSend.Size := new System.Drawing.Size(69, 23);self.btnSend.TabIndex := 4;self.btnSend.Text := ‘Send’;self.btnSend.UseVisualStyleBackColor := true;self.btnSend.Click += new System.EventHandler(@self.btnSend_Click);// // edtPhoneNo// self.edtPhoneNo.Location := new System.Drawing.Point(68, 171);self.edtPhoneNo.Name := ‘edtPhoneNo’;self.edtPhoneNo.Size := new System.Drawing.Size(145, 21);self.edtPhoneNo.TabIndex := 3;// // edtMsg// self.edtMsg.Location := new System.Drawing.Point(5, 20);self.edtMsg.Multiline := true;self.edtMsg.Name := ‘edtMsg’;self.edtMsg.ReadOnly := true;self.edtMsg.ScrollBars := System.Windows.Forms.ScrollBars.Vertical;self.edtMsg.Size := new System.Drawing.Size(326, 145);self.edtMsg.TabIndex := 1;// // btnLogin// self.btnLogin.Location := new System.Drawing.Point(274, 12);self.btnLogin.Name := ‘btnLogin’;self.btnLogin.Size := new System.Drawing.Size(75, 23);self.btnLogin.TabIndex := 6;self.btnLogin.Text := ‘Login’;self.btnLogin.UseVisualStyleBackColor := true;self.btnLogin.Click += new System.EventHandler(@self.btnLogin_Click);// // edtUserID// self.edtUserID.Location := new System.Drawing.Point(69, 17);self.edtUserID.Name := ‘edtUserID’;self.edtUserID.Size := new System.Drawing.Size(180, 21);self.edtUserID.TabIndex := 3;// // edtPassword// self.edtPassword.Location := new System.Drawing.Point(69, 44);self.edtPassword.Name := ‘edtPassword’;self.edtPassword.PasswordChar := ‘*’;self.edtPassword.Size := new System.Drawing.Size(180, 21);self.edtPassword.TabIndex := 4;// // lblAccount// self.lblAccount.AutoSize := true;self.lblAccount.Location := new System.Drawing.Point(6, 20);self.lblAccount.Name := ‘lblAccount’;self.lblAccount.Size := new System.Drawing.Size(47, 12);self.lblAccount.TabIndex := 1;self.lblAccount.Text := ‘Accoumt’;// // lblPassword// self.lblPassword.AutoSize := true;self.lblPassword.Location := new System.Drawing.Point(6, 47);self.lblPassword.Name := ‘lblPassword’;self.lblPassword.Size := new System.Drawing.Size(53, 12);self.lblPassword.TabIndex := 2;self.lblPassword.Text := ‘Password’;// // gbLogin// self.gbLogin.Controls.Add(self.edtPassword);self.gbLogin.Controls.Add(self.edtUserID);self.gbLogin.Controls.Add(self.lblAccount);self.gbLogin.Controls.Add(self.lblPassword);self.gbLogin.Location := new System.Drawing.Point(11, 6);self.gbLogin.Name := ‘gbLogin’;self.gbLogin.Size := new System.Drawing.Size(255, 80);self.gbLogin.TabIndex := 7;self.gbLogin.TabStop := false;self.gbLogin.Text := ‘Login’;// // btnLogoff// self.btnLogoff.Location := new System.Drawing.Point(274, 41);self.btnLogoff.Name := ‘btnLogoff’;self.btnLogoff.Size := new System.Drawing.Size(75, 23);self.btnLogoff.TabIndex := 10;self.btnLogoff.Text := ‘Logoff’;self.btnLogoff.UseVisualStyleBackColor := true;self.btnLogoff.Click += new System.EventHandler(@self.btnLogoff_Click);// // gbFriendLst// self.gbFriendLst.Controls.Add(self.lstFriendLst);self.gbFriendLst.Location := new System.Drawing.Point(11, 92);self.gbFriendLst.Name := ‘gbFriendLst’;self.gbFriendLst.Size := new System.Drawing.Size(338, 100);self.gbFriendLst.TabIndex := 11;self.gbFriendLst.TabStop := false;self.gbFriendLst.Text := ‘Friend List’;// // lstFriendLst// self.lstFriendLst.FormattingEnabled := true;self.lstFriendLst.ItemHeight := 12;self.lstFriendLst.Location := new System.Drawing.Point(8, 18);self.lstFriendLst.Name := ‘lstFriendLst’;self.lstFriendLst.Size := new System.Drawing.Size(324, 76);self.lstFriendLst.TabIndex := 0;// // btnSendSelf// self.btnSendSelf.Location := new System.Drawing.Point(243, 435);self.btnSendSelf.Name := ‘btnSendSelf’;self.btnSendSelf.Size := new System.Drawing.Size(106, 23);self.btnSendSelf.TabIndex := 12;self.btnSendSelf.Text := ‘Send To Self’;self.btnSendSelf.UseVisualStyleBackColor := true;self.btnSendSelf.Click += new System.EventHandler(@self.btnSendSelf_Click);// // MainForm// self.ClientSize := new System.Drawing.Size(358, 488);self.Controls.Add(self.btnSendSelf);self.Controls.Add(self.gbFriendLst);self.Controls.Add(self.btnLogoff);self.Controls.Add(self.sbMain);self.Controls.Add(self.gbMsg);self.Controls.Add(self.btnLogin);self.Controls.Add(self.gbLogin);self.Icon := (resources.GetObject(‘$this.Icon’) as System.Drawing.Icon);self.Name := ‘MainForm’;self.Text := ‘Fetion’;self.Load += new System.EventHandler(@self.MainForm_Load);self.sbMain.ResumeLayout(false);self.sbMain.PerformLayout();self.gbMsg.ResumeLayout(false);self.gbMsg.PerformLayout();self.gbLogin.ResumeLayout(false);self.gbLogin.PerformLayout();self.gbFriendLst.ResumeLayout(false);self.ResumeLayout(false);self.PerformLayout();end;{$ENDREGION}method MainForm.MainForm_Load(sender: System.Object; e: System.EventArgs);beginsdk := new FetionSDK;bLogon := false;sdk.SDK_UserSatusChange += new FetionSDK.SDK_UserSatusChangedEventHandler(sdk_SDK_UserSatusChange);sdk.SDK_ReceiveMessage += new FetionSDK.SDK_ReceiveMessageEventHandler(sdk_SDK_ReceiveMessage);sdk.SDK_Error += new FetionSDK.SDK_ErrorEventHandler(sdk_SDK_Error);end;procedure MainForm.sdk_SDK_UserSatusChange(sender: Object; e:UserSatusChangedEventArgs);var currStat: string; i: Integer; lst : List<Contact>;begin currStat := e.NewStatus.ToString(); lblStatus.Text := currStat; case e.NewStatus of Imps.Client.UserAccountStatus.Logon: begin bLogon := true; lstFriendLst.Items.Clear(); lst := sdk.ContactControl.getAllContactList(); for i := 0 to lst.Count – 1 do begin lstFriendLst.Items.Add( string.Format("{0} [Fetion: {1} Mobile: {2}]", lst[i].DisplayName, lst[i].Uri.Id, IfThen(lst[i].PersonalInfo.MobileNo = string.Empty, "Not Published", lst[i].PersonalInfo.MobileNo))); end; end; else begin bLogon := false; lstFriendLst.Items.Clear(); end; { Imps.Client.UserAccountStatus.Disconnected: ; Imps.Client.UserAccountStatus.Initialized: ; Imps.Client.UserAccountStatus.Loginning: ; Imps.Client.UserAccountStatus.Logoff: ; Imps.Client.UserAccountStatus.Logouting: ; Imps.Client.UserAccountStatus.None: ; Imps.Client.UserAccountStatus.OfflineLogon: ; Imps.Client.UserAccountStatus.StandBy: ; Imps.Client.UserAccountStatus.WaitReconnect: ; } end; end;method MainForm.btnLogin_Click(sender: System.Object; e: System.EventArgs);begin if not bLogon then begin sdk.AccountManager.FillUserIdAndPassword(edtUserID.Text,edtPassword.Text,false); sdk.AccountManager.LoginOrLogout(); end;end;procedure MainForm.sdk_SDK_Error(sender: Object; e: SDK_ErrorEventArgs); begin lblError.Text := e.Message.Message;end;method MainForm.btnLogoff_Click(sender: System.Object; e: System.EventArgs);begin if bLogon then sdk.AccountManager.LoginOrLogout();end;function MainForm.IfThen(ABool: Boolean; AStr1, AStr2: String): String; begin if ABool then result := AStr1 else result := AStr2;end;method MainForm.btnSend_Click(sender: System.Object; e: System.EventArgs);begin sdk.ContactControl.SendIM.SendIM(edtPhoneNo.Text, edtSendMsg.Text); edtMsg.Text := edtMsg.Text + ‘Self: ‘ + edtSendMsg.Text + ‘\r\n’; end;procedure MainForm.sdk_SDK_ReceiveMessage(sender: Object; e:SDK_ReceiveMessageEventArgs);begin edtMsg.Text := edtMsg.Text + e.Contact.DisplayName + ‘: ‘+e.Message;end;method MainForm.btnSendSelf_Click(sender: System.Object; e: System.EventArgs);begin sdk.ContactControl.SendSMS.SendSMS(sdk.ContactControl.getMyself.Uri.Id,edtSendMsg.Text);end;end.
自己变得跟水晶一般透明，
