飞信SDK内容【转载】

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

2008-10-13 13:57

            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.