F# ネットワークプログラミング

はじめに

では、ネットワークプログラミングの手始めとして、最小のサーバーとクライアントのサンプルプログラムを作成してみます。

最小のサーバー

open System.Net
open System.Net.Sockets

let ip = IPAddress.Parse("127.0.0.1")
let port = 50000

let server = new TcpListener( ip, port )
server.Start()

printfn "waiting..."    
let client = server.AcceptTcpClient()
printfn "connected"

client.Close()
server.Stop()

最小のクライアント

open System.Net
open System.Net.Sockets

let client = new TcpClient( "127.0.0.1", 50000 )
printfn "connected"
client.Close()

実行結果

・サーバーを起動。クライアントからの接続を待機。

出力(サーバー側）

waiting...

・クライアントを起動。サーバーと接続成功。

出力(クライアント側）

connected

・サーバー側も、クライアントと接続。

出力(サーバー側)

waiting...
connected