1

我正在用 C++ 编写一个应用程序，它将向用 Delphi 编写的应用程序发送一条消息。

这是我的接收器应用程序：

图片

单击按钮时，Edit1.Text将ShellExecute()作为命令行参数发送到发送方应用程序 (C++)。

发送方应用程序会将参数作为WM_COPYDATA消息发送回接收方应用程序，接收方应用程序将在Edit2文本框中显示该参数。

这是 Delphi 应用程序的代码（Delphi 10.3 Rio）：

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(0, 'open', 'deneme.exe', PWideChar(Edit1.Text), nil, SW_HIDE);
end;

procedure TForm1.MesajAl(var Mesaj: TMessage);
var
  Veri: PCopyDataStruct;
begin
  Veri := Pointer(Mesaj.LParam);
  Edit2.Text := PChar(Veri^.lpData);
end;

这是我的 C++ 应用程序的代码（Code::Blocks IDE）：

#include <iostream>
#include <windows.h>
#include <tchar.h>
using namespace std;

int main(int argc, char* argv[])
{
    if (argc < 2)
    {
        return 0;
    }
    else
    {
        HWND hwnd = FindWindow(NULL, "Form1");

        string alinanMesaj;

        LPCTSTR gonderilecekMesaj = alinanMesaj.c_str();

        COPYDATASTRUCT cds;
        cds.cbData = sizeof(TCHAR)*(_tcslen(gonderilecekMesaj) + 1);
        cds.dwData = 1;
        cds.lpData = (PVOID)gonderilecekMesaj;

        SendMessage(hwnd, WM_COPYDATA, (WPARAM)hwnd, (LPARAM)(LPVOID)&cds);

        return 0;
    }
}

问题是Edit2文本框什么也没显示。

顺便说一句，我在这个网站上对WM_COPYDATA. 但是，尽管存在这种情况，但我自己无法解决我的问题。

那么，我应该怎么做才能解决我的问题？

4

1 回答 1

0

我看到此代码存在三个问题：

  • 发件人正在发送空白数据，因为alinanMesaj未分配任何值。

  • 两个应用程序之间存在 ANSI/UNICODE 不匹配。Delphi 代码使用 Unicode 字符串，而 C++ 代码使用 ANSI 字符串。 WM_COPYDATA对字节而不是字符进行操作。你必须为你的字符串数据选择一个字节编码，并在两边保持一致。

  • VCLWM_COPYDATA在内部使用，因此发送方需要将cds.dwData字段设置为唯一值，例如 from RegisterWindowMessage()，接收方必须在解释cds.lpData数据之前验证该值。

用 at 说，试试这个：

var
  MY_CDS_ID: UINT;

procedure TForm1.FormCreate(Sender: TObject);
begin
  MY_CDS_ID := RegisterWindowMessage('MYCDSID'); // use whatever unique name you want
  if MY_CDS_ID = 0 then
    RaiseLastOSError;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  // you really should be using CreateProcess() instead...
  ShellExecute(0, nil, 'deneme.exe', PChar(AnsiQuotedStr(Edit1.Text, '"')), nil, SW_HIDE);
end;

procedure TForm1.MesajAl(var Mesaj: TMessage);
var
  Veri: PCopyDataStruct;
  s: UnicodeString;
begin
  Veri := Pointer(Mesaj.LParam);
  if Veri^.dwData = MY_CDS_ID then
  begin
    SetString(s, PWideChar(Veri^.lpData), Veri^.cbData div SizeOf(WideChar));
    Edit2.Text := s;
  end else
    inherited;
end;

#include <iostream>
#include <windows.h>
#include <string>

int main(int argc, char* argv[])
{
    if (argc < 2)
        return 0;

    HWND hwnd = FindWindow("TForm1", "Form1");
    if (!hwnd)
        return 0;

    UINT MY_CDS_ID = RegisterWindowMessage("MYCDSID"); // must match the named used by the Delphi code
    if (!MY_CDS_ID)
        return 0;

    std::wstring alinanMesaj;

    int arglen = lstrlenA(argv[1]);
    int wlen = MultiByteToWideChar(CP_ACP, 0, argv[1], arglen, NULL, 0);
    if (wlen > 0)
    {
        alinanMesaj.resize(wlen);
        MultiByteToWideChar(CP_ACP, 0, argv[1], arglen, &alinanMesaj[0], wlen);
    }

    COPYDATASTRUCT cds;
    cds.cbData = sizeof(wchar_t) * alinanMesaj.size();
    cds.dwData = MY_CDS_ID;
    cds.lpData = const_cast<wchar_t*>(alinanMesaj.c_str());

    SendMessage(hwnd, WM_COPYDATA, reinterpret_cast<WPARAM>(hwnd), reinterpret_cast<LPARAM>(&cds));

    return 0;
}
于 2019-01-08T17:32:31.367 回答