Delphi使用消息队列与python通讯

Delphi和Python之间通讯可以使用消息队列来实现，具体步骤如下：

1. 在Delphi中创建一个消息队列用于接收Python发来的消息。

2. 在Python中使用消息队列模块创建一个消息队列，并将需要发送的消息放入队列中。

3. Delphi中通过轮询消息队列来获取Python发送的消息，并根据消息内容进行相应的处理。

4. Python中可以通过轮询消息队列来获取Delphi发送的消息，并根据消息内容进行相应的处理。

下面是一个简单的示例代码：

在Delphi中：

uses
  Windows, Messages;

const
  WM_PYTHON_MSG = WM_USER + 1; // 定义Python消息ID

type
  TForm1 = class(TForm)
  private
    { Private declarations }
    procedure HandlePythonMsg(var Msg: TMessage); message WM_PYTHON_MSG;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.HandlePythonMsg(var Msg: TMessage);
var
  strMsg: string;
begin
  strMsg := PChar(Msg.LParam); // 获取Python发送的消息
  // 根据消息内容进行相应的处理
  ShowMessage(strMsg);
end;

在Python中：

import win32api
import win32con
import win32event
import win32file
import struct

WM_PYTHON_MSG = win32con.WM_USER + 1 # 定义Python消息ID

def send_msg_to_delphi(msg):
    hwnd = win32gui.FindWindow(None, "DelphiForm") # 获取Delphi窗口句柄
    if hwnd:
        win32api.PostMessage(hwnd, WM_PYTHON_MSG, 0, msg) # 发送消息到Delphi
    else:
        print("Can't find Delphi window")

def recv_msg_from_delphi():
    handle = win32event.CreateEvent(None, 0, 0, None) # 创建事件
    overlapped = win32file.OVERLAPPED()
    overlapped.hEvent = handle
    buf = struct.pack("L", WM_PYTHON_MSG) # 构造消息格式
    (err, msg) = win32file.ReadFile(handle, buf, overlapped) # 从消息队列中获取消息
    if err == win32file.ERROR_IO_PENDING:
        win32event.WaitForSingleObject(handle, 1000) # 等待事件
        (err, msg) = win32file.GetOverlappedResult(handle, overlapped, True)
    if err == 0:
        print("Error reading from message queue")
    else:
        return msg.decode("utf-8")

上述示例代码中，Delphi中的 HandlePythonMsg 过程用于处理接收到的Python消息，Python中的 send_msg_to_delphi 函数用于将消息发送给Delphi，recv_msg_from_delphi 函数用于从Delphi接收消息。注意，Delphi中的消息ID和Python中的消息ID必须一致。