一個簡單的Delphi與go lang通訊的例子

這是一個建立於 的文章，其中的資訊可能已經有所發展或是發生改變。

服務端用go：（go 1.3）搭建一個tcp伺服器，用戶端用Delphi。通過socket與go進行通訊：

服務端代碼：

package mainimport ("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));}}}

用戶端代碼：

procedure TForm1.btn1Click(Sender: TObject);var  sa:TWSAData;  wstates:Integer;  add:sockaddr_in;begin  wstates:=WSAStartup($0202,sa);  if wstates<>0 then  begin    ShowMessage('socket 初始化出錯');    exit;  end;  st:=socket(PF_INET,SOCK_STREAM,IPPROTO_TCP);  if st=INVALID_SOCKET then  begin    ShowMessage('建立socket出錯');    WSACleanup;    Exit;  end;  add.sin_family:=PF_INET;  add.sin_port:=htons(1200);  add.sin_addr.S_addr:=inet_addr(PAnsiChar('127.0.0.1'));  wstates:=connect(st,add,SizeOf(add));  if wstates<>0 then  begin    ShowMessage('串連錯誤');    WSACleanup;    Exit;  end;end;procedure TForm1.btn2Click(Sender: TObject);var  sendLen :Integer;  mdata: TBytes;begin  if edt1.Text <> '' then  begin    mdata:=TEncoding.UTF8.GetBytes(mmo1.Text);   //此處要注意下。這麼寫的話會，傳送的字元後面會加上一個斷行符號換行傳到服務端。    sendLen := send(st,mdata[0],Length(mdata),0);    showmessage(inttostr(sendLen));    if sendLen < 0 then    begin      ShowMessage('發送出錯');      WSACleanup;      btn1.Enabled := False;      Exit;    end;  end;end;