以下は、TCP/IPサーバアプリケーションのための完全なソースコードです。

サーバソースコード[complete_server_code.lzh]

/*
 * file:complete_server_code.c
 * 完全なるサーバコード
 * 参照 http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winsock/winsock/complete_server_code.asp
 */
#define _WIN32_WINNT 0x0501
#include <winsock2.h>
#include <ws2tcpip.h>
#include <stdlib.h>
#include <stdio.h>

#define DEFAULT_BUFLEN 512
#define DEFAULT_PORT "27015"

int main(void)
{
    WSADATA wsaData;
    SOCKET ListenSocket = INVALID_SOCKET,
           ClientSocket = INVALID_SOCKET;
    struct addrinfo *result = NULL,
                    hints;
    char recvbuf[DEFAULT_BUFLEN];
    char sendbuf[DEFAULT_BUFLEN];
    int  iResult,
         recvbuflen = DEFAULT_BUFLEN,
         sendbuflen = DEFAULT_BUFLEN;

    /*
     * Winsockを初期化
     */
    iResult = WSAStartup(MAKEWORD(2,2), &wsaData);
    if (iResult != 0)
    {
        printf("WSAStartup failed: %d\n", iResult);
        return 1;
    }

    ZeroMemory(&hints, sizeof(hints));
    hints.ai_family = AF_INET;
    hints.ai_socktype = SOCK_STREAM;
    hints.ai_protocol = IPPROTO_TCP;
    hints.ai_flags = AI_PASSIVE;

    /*
     * サーバアドレスとポートを分解
     */
    iResult = getaddrinfo(NULL, DEFAULT_PORT, &hints, &result);
    if (iResult != 0)
    {
        printf("getaddrinfo failed: %d\n", iResult);
        WSACleanup();
        return 1;
    }

    /*
     * サーバへの接続するためにSOCKETを作成
     */
    ListenSocket = socket(result->ai_family, result->ai_socktype
            , result->ai_protocol);
    if (ListenSocket == INVALID_SOCKET)
    {
        printf("socket failed: %ld\n", WSAGetLastError());
        freeaddrinfo(result);
        WSACleanup();
        return 1;
    }

    /*
     * TCP聞き取りソケットをセットアップ
     */
    iResult = bind(ListenSocket, result->ai_addr, (int)result->ai_addrlen);
    if (iResult == SOCKET_ERROR)
    {
        printf("bind failed: %d\n", WSAGetLastError());
        freeaddrinfo(result);
        closesocket(ListenSocket);
        WSACleanup();
        return 1;
    }

    freeaddrinfo(result);

    iResult = listen(ListenSocket, SOMAXCONN);
    if (iResult == SOCKET_ERROR)
    {
        printf("listen failed: %d\n", WSAGetLastError());
        closesocket(ListenSocket);
        WSACleanup();
        return 1;
    }

    /*
     * クライアントソケットを受け入れ
     */
    ClientSocket = accept(ListenSocket, NULL, NULL);
    if (ClientSocket == INVALID_SOCKET)
    {
        printf("accept failed: %d\n", WSAGetLastError());
        closesocket(ListenSocket);
        WSACleanup();
        return 1;
    }

    /*
     * 不要になったサーバソケット
     */
    closesocket(ListenSocket);

    /*
     * 接続元が接続をシャットダウンするまで繰り返し受信を続ける
     */
    do
    {
        ZeroMemory(recvbuf, recvbuflen);
        iResult = recv(ClientSocket, recvbuf, recvbuflen, 0);
        if (0 < iResult)
        {
            printf("Bytes received: %d\n", iResult);
            printf("received data: [%s]\n", recvbuf);
            ZeroMemory(sendbuf, sendbuflen);
            memcpy(sendbuf, recvbuf, iResult);
        }
        else if (iResult == 0)
        {
            printf("Connection closing...\n");
        }
        else
        {
            printf("recv failed: %d\n", WSAGetLastError());
            closesocket(ClientSocket);
            WSACleanup();
            return 1;
        }

    } while (0 < iResult);

    /*
     * 送信元にバッファと同じ内容をエコーする
     */
    printf("send data: [%s]\n", sendbuf);
    iResult = send(ClientSocket, sendbuf, (int)strlen(sendbuf), 0);
    if (iResult == SOCKET_ERROR)
    {
        printf("send failed: %d\n", WSAGetLastError());
        closesocket(ClientSocket);
        WSACleanup();
        return 1;
    }

    printf("Bytes Sent: %ld\n", iResult);

    /*
     * サービスが終了したら接続をシャットダウンする
     */
    iResult = shutdown(ClientSocket, SD_SEND);
    if (iResult == SOCKET_ERROR)
    {
        printf("shutdown failed: %d\n", WSAGetLastError());
        closesocket(ClientSocket);
        WSACleanup();
        return 1;
    }

    /*
     * クリーンアップ
     */
    closesocket(ClientSocket);
    WSACleanup();

    return 0;
}