ＡＰＯＰを使用してサーバーへ接続する TKMP.DLL Tips

TKMP.DLL プログラミングTips

ＡＰＯＰを使用してサーバーへ接続する

　ＡＰＯＰでサーバーへ接続する手順は、通常の場合とほとんど違いはありません。 TKMP.Net.BasicPopLogonクラスの変わりにTKMP.Net.APopLogonクラスを使用しますが、 TKMP.Net.PopClientクラスのコンストラクタが要求するTKMP.Net.IPopLogonインターフェイスをどちらも実装しているので、インスタンスの作成後はTKMP.Net.IPopLogonとして扱うことが可能です。

C#.NET

//接続情報
string server = "mail.example.jp";
int port = 110;
string userid = "userid";
string pass = "pass";
bool apop = true; //falseにすると通常のログオン処理を行ないます

//サーバへの接続用クラスを作成する
System.Net.IPAddress address = System.Net.Dns.GetHostByName(server).AddressList[0];

TKMP.Net.IPopLogon logon;
if(apop)
{
    //APOPでログオンするためのクラスを作成します
    logon = new TKMP.Net.APopLogon(userid , pass);
}
else
{
    //通常のログオンをするためのクラスを作成します
    logon = new TKMP.Net.BasicPopLogon(userid , pass);
}
TKMP.Net.PopClient pop = new TKMP.Net.PopClient(logon , address , port);

//接続開始
if(pop.Connect())
{
    System.Windows.Forms.MessageBox.Show("接続失敗");
}
else
{
    System.Windows.Forms.MessageBox.Show("接続成功");
}

//切断
pop.Close();

VB.NET

'接続情報
Dim server As String = "mail.example.jp"
Dim port As Integer = 110
Dim userid As String = "userid"
Dim pass As String = "pass"
Dim apop As Boolean = True 'falseにすると通常のログオン処理を行ないます
'サーバへの接続用クラスを作成する
Dim address As System.Net.IPAddress = System.Net.Dns.GetHostByName(server).AddressList(0)

Dim logon As TKMP.Net.IPopLogon
If apop Then
   'APOPでログオンするためのクラスを作成します
   logon = New TKMP.Net.APopLogon(userid, pass)
Else
   '通常のログオンをするためのクラスを作成します
   logon = New TKMP.Net.BasicPopLogon(userid, pass)
End If
Dim pop As New TKMP.Net.PopClient(logon, address, port)

'接続開始
If pop.Connect() Then
   System.Windows.Forms.MessageBox.Show("接続成功")
Else
   System.Windows.Forms.MessageBox.Show("接続失敗")
End If

'切断
pop.Close()

VB.NETのコードはC#.NETを元に「C#.NET to VB.NET Translator」によって作成したものです