编写TCP程序，使得服务端可以自由控制客户端的下载速度。在服务端，控制每次从文件中读取数据块的大小和相邻两次发送数据之间的时间间隔，从而实现对下载速度的控制。

以下是一个简单的示例，展示了如何在服务端控制客户端的下载速度。

服务端代码：

import socket
import time

# 读取文件块大小
BLOCK_SIZE = 1024

# 发送数据之间的时间间隔，单位为秒
INTERVAL = 0.1

# 服务器地址和端口号
SERVER_ADDRESS = ('localhost', 8000)

def send_file(conn, file_path):
    with open(file_path, 'rb') as file:
        while True:
            # 读取文件块
            data = file.read(BLOCK_SIZE)
            if not data:
                break

            # 发送数据
            conn.sendall(data)

            # 控制发送数据之间的时间间隔
            time.sleep(INTERVAL)

if __name__ == '__main__':
    # 创建TCP服务器
    server_socket = socket.socket(socket.AF_INET, socket.SOCK_STREAM)
    server_socket.bind(SERVER_ADDRESS)
    server_socket.listen(1)

    print('Waiting for client connection...')

    # 接受客户端连接并启动文件传输
    conn, addr = server_socket.accept()
    print('Client connected:', addr)

    send_file(conn, 'file.txt')

    # 关闭连接
    conn.close()
    server_socket.close()

客户端代码：

import socket

# 服务器地址和端口号
SERVER_ADDRESS = ('localhost', 8000)

# 接收数据的缓冲区大小
BUFFER_SIZE = 1024

if __name__ == '__main__':
    # 创建TCP客户端
    client_socket = socket.socket(socket.AF_INET, socket.SOCK_STREAM)

    # 连接服务器
    client_socket.connect(SERVER_ADDRESS)

    # 接收数据并写入文件
    with open('file.txt', 'wb') as file:
        while True:
            data = client_socket.recv(BUFFER_SIZE)
            if not data:
                break

            file.write(data)

    # 关闭连接
    client_socket.close()

在服务端代码中，我们定义了两个常量：`BLOCK_SIZE`和`INTERVAL`。`BLOCK_SIZE`表示每次从文件中读取的数据块的大小，`INTERVAL`表示相邻两次发送数据之间的时间间隔。在文件传输过程中，我们读取一定大小的数据块，然后使用`conn.sendall()`函数将数据块发送给客户端，并通过`time.sleep()`函数控制发送数据之间的时间间隔。

在客户端代码中，我们连接服务器并接收数据，将接收到的数据写入文件中。