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

rznice

于 2014-09-08 16:58:14 发布

阅读量2.6k

点赞数

分类专栏： go delphi

本文链接：https://blog.youkuaiyun.com/rznice/article/details/39137325

版权

本文展示了如何使用Go语言搭建TCP服务器，并通过Delphi客户端进行通信的示例。服务端采用Go 1.3版本，客户端利用Delphi进行Socket连接，实现两者间的通讯交互。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

服务端用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));
		}
	}
}

客户端代码：