Nick’s Blog

February 6, 2008

An WCF Service Host in F#

Filed under: F#, WCF — Nick Holmes @ 6:03 pm

I had half an hour to fill while I waited for a large download, on my slow connection. I’d thought about re-implementing my C# WCF test host in F#. It didn’t look too complex, and indeed it wasn’t:

#I @"C:\Program Files\Reference Assemblies\Microsoft\Framework\v3.0\"
#r "System.ServiceModel.dll"
#r "Server.dll"
open System
open System.ServiceModel
open System.Diagnostics
open Coyote.FSWCFTest

let services = [ (typeof<TestWebService>, "http://localhost:8080/Test/FSWCFTest.svc") ]

let logException (msg, exn:Exception) =

let startHost (serviceType:Type, url) =
        let uri = [| new Uri(url) |]
        let host = new ServiceHost(serviceType, uri)
    | e -> logException ("Exception thrown starting service.", e)

let stopHost (host: ServiceHost option)  =
        match host with
        | None -> ()
        | Some(host) ->
            if host.State <> CommunicationState.Closed then
                Trace.WriteLine("Service Stopped")               
    | e -> logException ("Exception thrown stopping service.", e)

let showHostStatus (host: ServiceHost option) =
    match host with
    | Some(hst) ->
        let strdots = new String ( '.', 40 - hst.Description.Name.Length);
        Console.ForegroundColor <- match hst.State with
                                   | CommunicationState.Opened -> ConsoleColor.Green
                                   | _ -> ConsoleColor.Red       
        Console.WriteLine("{0} service{1}{2}", hst.Description.Name, strdots, hst.State.ToString())
    | None -> Console.ForegroundColor <- ConsoleColor.Red
              Console.WriteLine("Service failed to start.")

let main =
    Console.Title <- "Server Test Console"
    Console.BackgroundColor <- ConsoleColor.DarkBlue
    Console.WindowWidth <- 120
    Console.WriteLine("Server Test Console")
    Console.WriteLine("Copyright 2008 Coyote Software, GmbH.")
    let hosts = services |> startHost
    let mutable quit = false
    while not quit do
        let inp = Console.ReadLine()  
        let inpClean = inp.Trim().ToLower()
        match inpClean with
        | "exit"   -> quit <- true
        | "cls"    -> Console.Clear()
        | "status" -> let cc = Console.ForegroundColor
                      Console.WriteLine("Status at {0} is", DateTime.Now)
                      hosts |> List.iter showHostStatus
                      Console.ForegroundColor <- cc      
        | "stop"   -> hosts |> List.iter stopHost
        | _        -> Console.WriteLine("Unknown command {0}", inp)

This implementation is about half the size of the C# implementation, although the original has a couple of extra commands. I preferred Console.WriteLine to printfn, as I have used other Console methods, and I think the code is a little clearer.

One improvement to this app would be to have is use reflection to automatically find all  the services in the assembly (rather than require the list to be set up), but I’ve been using the C# version almost daily for over a year, and its good enough like this.


1 Comment »

  1. Having read this I believed it was extremely informative.
    I appreciate you finding the time and effort to put this article together.
    I once again find myself spending way too much time both reading
    and posting comments. But so what, it was still worthwhile!

    Comment by Marsha — June 6, 2013 @ 11:40 am

RSS feed for comments on this post. TrackBack URI

Leave a Reply

Fill in your details below or click an icon to log in: Logo

You are commenting using your account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

Create a free website or blog at

%d bloggers like this: