一个简单的Delphi与go lang通讯的例子

服务端用go：（go 1.3）搭建一个tcp服务器，客户端用Delphi。通过socket与go进行通讯：

服务端代码：

package main

import (
	"fmt"
	"net"
	"time"
	"strings"
	"net/http"
)


func main() {
	service := ":1200"
	tcpAddr, err := net.ResolveTCPAddr("tcp4", service)
	checkError(err)
	listener, err := net.ListenTCP("tcp", tcpAddr)
	checkError(err)
	for {
		conn, err := listener.Accept()
		if err != nil {
			continue
		}
		go handleClient(conn)
	}
}

func handleClient(conn net.Conn) {
	request := make([]byte, 1024)
	defer conn.Close() 
	for {
		read_len, err := conn.Read(request)
		if err != nil {
			fmt.Println(err)
			break
		}
		fmt.Println(read_len)
		if read_len == 0 {
			fmt.Println("Notings get!!")
			break
		}else{
			v_kss:=request[0:read_len];
			fmt.Println(string(v_kss));
		}
	}
}

客户端代码：

<