飞信Fetion 开发资料及下载
http://hi.baidu.com/rarnu/blog/item/c365237f63b5db0e29388a31.html
Visual Basic 2005 飞信SDK开发短信收发程序
欢迎转载，本文转自[田草博客www.tiancao.net] 原文链接：http://www.tiancao.net/blogview.asp?logID=646
http://www.tiancao.net/blogview.asp?logID=646
我的第一个SDK作品：过年有空用SDK写了一个M8用的飞信，不过还不太好用，欢迎测试
http://bbs.meizu.com/thread-783641-1-1.html
.NET - C# - Delphi - 使用飞信SDK（FetionSDK）开发短信收发程序(飞信客户端开发)
利用飞信的协议可以在线收发消息，或是向手机发送消息。由此，可以自己来完成一个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 of
Imps.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: ;
else
end;
五、获取好友列表
var
lst : List<Contact>;
i: Integer;
begin
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;
六、发送消息
调用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;
interface
uses
System.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);
begin
if 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;
begin
var 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);
begin
sdk := 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.
附件 (2)