客户端放一个IdTCPClient.Port := 5000;IdTCPClient.Host := 服务器IP;IdTCPClient1.Connect;Mes := 收信人号码+分隔符+短信内容;IdTCPClient.IOHandler.WriteLn(Mes, enUTF8);(也可以改成结构体。。。。。)服务端IdTCPServer.DefaultPort = 5000;IdTCPServer.Active := True;procedure TForm.IdTCPServerExecute(AContext: TIdContext);begin Mes := AContext.Connection.IOHandler.ReadLn(enUTF8); //这里就是分析客户端发过来的内容了。end;