0

我一直在寻找从 Microsoft Visual C++ 向另一个在 Delphi 中创建的应用程序发送消息 2 小时。

在 delphi 中，我知道如何读取数据。但我不知道如何在 MVC++ 中发送消息

我希望你能给我一个代码。

因此，对于下一个代码，我想要在 Microsoft Visual Studio C++ 2010 中进行翻译，我的项目是一个控制台项目。

const 
  MY_MESSAGE = WM_USER + 4242; 

type 
  TForm1 = class(TForm) 
    Button1: TButton; 

procedure Button1Click(Sender: TObject); 

  end; 
var 
  Form1: TForm1; 
implementation 
{$R *.DFM} 

procedure TForm1.Button1Click(Sender: TObject); 
var 
  txt: string; 
begin 
  txt := 'Hello World'; 
  SendMessage(Form1.Handle, MY_MESSAGE, 0, DWORD(PChar(txt))); 
end; 


end.

使用此代码，我应该读取数据。我也想兼容。

const 
  MY_MESSAGE = WM_USER + 4242; 

type 
  TForm1 = class(TForm) 

    // Handler that receive the Message 

procedure MessageReceiver(var msg: TMessage); message MY_MESSAGE; 
  end; 
var 
  Form1: TForm1; 
implementation 
{$R *.DFM} 


procedure TForm1.MessageReceiver(var msg: TMessage); 
var 
  txt: PChar; 
begin 
  txt := PChar(msg.lParam); 
  msg.Result := 1; 
  ShowMessage(txt); 
end; 
end.

所以我的应用程序包含两个部分：一个在 Microsoft Visual Studio 中，我使用 opencv，我想向第二个应用程序发送消息，它是在 Delphi 中创建的。

4

2 回答 2

1

您可以使用WM_GETTEXTorWM_COPYDATA消息在应用程序之间来回发送数据缓冲区。我曾经寻找过一种方法来发送缓冲区WM_GETTEXT，只是使用不同的消息。原始代码可以在这里找到：

http://www.nldelphi.com/forum/showthread.php?p=275167#post275167

我不知道一切是否仍然有效（从那以后就没有使用过），但当时确实如此。

// The order (first Buffer, then BufferLength) seems more sensible, although with
// WM_SETTEXT they are actually the other way around.
function SendTextMessage(Handle: THandle; Msg: Integer; Buffer: Pointer; BufferLength: Integer): Cardinal;
var
  ProcessHandle: THandle;
  ProcessId: Cardinal;
  VirtualBuffer: Pointer;
begin
  // Get the id of process to which the handle belongs.
  GetWindowThreadProcessID(Handle, @ProcessId);
  ProcessHandle := OpenProcess(PROCESS_ALL_ACCESS, False, ProcessId);

  if ProcessHandle = 0 then
    RaiseLastWin32Error;

  // Allocate a virtual buffer in the process
  VirtualBuffer := VirtualAllocEx(ProcessHandle, nil, BufferLength,
                           MEM_COMMIT, PAGE_READWRITE);
  if VirtualBuffer = nil then
    RaiseLastWin32Error;

  try
    // Send a message to the handle, passing the virtual pointer as a buffer
    Result := SendMessage(Handle, Msg, BufferLength, Integer(VirtualBuffer));

    // Read the resulting value from the virtual buffer into the given buffer
    if not ReadProcessMemory(ProcessHandle, VirtualBuffer, Buffer, Result, Result) then
      RaiseLastWin32Error;

  finally
    VirtualFreeEx(ProcessHandle, VirtualBuffer, BufferLength, MEM_RELEASE);
  end;

end;

并这样称呼它：

var
  h: THandle;
  b: array[0..1024] of Char;
begin
  h := Cardinal(StrToInt(Edit1.Text));
  // Not like this
  //SendMessage(h, WM_GETTEXT, 1024, Integer(@b));

  // But like this
  SendTextMessage(h, WM_USER+1, @b, 1024 * SizeOf(Char));
  ShowMessage(b);

阅读这样的消息：

procedure WM_USERPLUS1(var Msg: TWMGetText); message WM_USER+1;


procedure TForm2.WM_USERPLUS1(var Msg: TWMGetText);
begin
  with Msg do
    Result := StrLen(StrLCopy(PChar(Text), PChar('Hallo wereld'), TextMax - 1)) * SizeOf(Char);
end;

不过，它可能同样易于使用WM_COPYDATA。:D

于 2012-04-12T15:24:13.743 回答
1

我不知道如何使用管道，但我之前使用过以下方案：

使用WM_COPYDATA消息使用SendMessage(). 这是一个参考

http://msdn.microsoft.com/en-us/library/windows/desktop/ms649011(v=vs.85).aspx

和例子

http://msdn.microsoft.com/en-us/library/windows/desktop/ms649009(v=vs.85).aspx

您将需要使用FindWindow来获取要将消息发送到的应用程序的句柄。

于 2012-04-12T15:15:04.313 回答