基于TwinCAT 3 PLC实现一个server连接多个client的TCP/IP通信代码

以下是基于TwinCAT 3 PLC实现一个server连接多个client的TCP/IP通信代码的示例：

PROGRAM MAIN
VAR
    ServerSocket: TCPIP.SERVER;
    ClientSockets: ARRAY[1..10] OF TCPIP.CLIENT;
    i: INT;
    Buffer: STRING[256];
    BytesReceived: INT;
    j: INT;
BEGIN
    // 初始化ServerSocket
    ServerSocket := TCPIP.CreateServer(1234);
    IF NOT ServerSocket.Valid THEN
        // 处理错误
    END_IF;

    // 初始化ClientSockets
    FOR i := 1 TO 10 DO
        ClientSockets[i] := TCPIP.CreateClient();
    END_FOR;

    WHILE TRUE DO
        // 等待连接请求
        IF TCPIP.WaitForConnection(ServerSocket, 1000) THEN
            // 接受连接并找到一个空闲的ClientSocket
            FOR j := 1 TO 10 DO
                IF NOT ClientSockets[j].Valid THEN
                    ClientSockets[j] := TCPIP.AcceptConnection(ServerSocket);
                    EXIT;
                END_IF;
            END_FOR;
        END_IF;

        // 处理已连接的ClientSocket
        FOR i := 1 TO 10 DO
            IF ClientSockets[i].Valid THEN
                BytesReceived := TCPIP.Receive(ClientSockets[i], BUFFER);
                IF BytesReceived > 0 THEN
                    // 处理接收到的数据
                    // ...
                    // 发送响应
                    TCPIP.Send(ClientSockets[i], "OK");
                END_IF;
            END_IF;
        END_FOR;
    END_WHILE;
END_PROGRAM

这个示例程序创建了一个TCP/IP server并等待连接请求。一旦有连接请求，它就会接受连接并将其分配给一个空闲的client socket。然后，它会循环处理所有已连接的client socket，接收来自它们的数据并发送响应。请注意，此示例仅仅是一个基本示例，并不包括任何错误处理或其他高级功能。