使用飞信SDK开发短信收发程序

最新推荐文章于 2023-02-15 17:05:21 发布

aroc_lo

最新推荐文章于 2023-02-15 17:05:21 发布

阅读量1.8k

点赞数

分类专栏：编程技术加密与解密 DELPHI编程文章标签： object components delphi 手机 login mobile

DELPHI编程同时被 3 个专栏收录

379 篇文章

订阅专栏

编程技术

152 篇文章

订阅专栏

加密与解密

14 篇文章

订阅专栏

利用飞信的协议可以在线收发消息，或是向手机发送消息。由此，可以自己来完成一个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.

 
  
 
  
转自：http://hi.baidu.com/rarnu/blog/item/c365237f63b5db0e29388a31.html 
  
 
 