将数据从Delphi DLL传递到C++应用程序中

我有一个用Delphi编写的DLL，它应该确定一些值，然后将结果传递回调用DLL的C++应用程序。

要传递回C++应用程序的数据是一组四个整数值(但将来也可能有字符串值)。

为了做到这一点，我需要将这些整数值声明为在调用应用程序和DLL之间共享。

在C++应用程序端，我可以这样做(根据http://msdn.microsoft.com/en-us/library/h90dkhs0%28v=vs.80%29.aspx)：

#pragma data_seg(".SHARED")
int value1;
int value2;
// ...
int valueN;
#pragma data_seg()

我如何在Delphi2009中做同样的事情(声明值1-N将存储在共享内存中)？

更新，2012年9月18日：我决定使用命名管道来实现注入DLL和外部世界的通信。

但在使用命名管道之前，我需要解决以下问题。

目前，流程如下：

1) DLL被注入到遗留应用程序中。

2) DLL从遗留应用程序中提取一些数据。

3) DLL已卸载。

我需要修改它，使它像这样工作：

1) DLL被注入到遗留应用程序中。2) DLL启动一个类似的循环

bool running = true;
while (running)
{
command = receiveCommandFromInvokingApp();
if ("GET_COORDINATES".equals(command))
{
// Read coordinates of some cell in the grid
// Then communicate it via some channel to the outside world
}
else if ("READ_CELL_VALUE")
{
// Read value of some cell in the grid
// Then communicate it via some channel to the outside world
}
else if ("EXIT")
{
// Close the communication channel
// Perform cleanup work
running = false;
}
// Sleep for, say, 500 milliseconds in order to avoid 100 % CPU usage
}

receiveCommandFromInvokingApp读取调用应用程序发送的下一个命令(从命名管道或任何其他合适的通道)。

3) 当调用应用程序发送EXIT命令时，DLL会停止循环。

假设我有以下DLL代码：

procedure DllMain(reason: integer) ;
begin
if reason = DLL_PROCESS_DETACH then
OutputDebugString('DLL PROCESS DETACH')
else if reason = DLL_THREAD_ATTACH then
OutputDebugString('DLL THREAD ATTACH')
else if reason = DLL_THREAD_DETACH then
OutputDebugString('DLL THREAD DETACH')
else if reason = DLL_PROCESS_ATTACH then
OutputDebugString('DLL_PROCESS_ATTACH')
end;
end; (*DllMain*)

循环应该放在哪里(在哪个分支中)？

用它代替OutputDebugString('DLL THREAD ATTACH')明智吗？

更新19.09.2012:

我的系统设计发生了变化，现在我通过一个命名管道将数据从Delphi DLL发送到C#应用程序。

Delphi代码：

打开命名管道：

function OpenNamedPipe() : THandle;
var
hPipe : THandle;
name : string;
connectResult : LongBool;
begin
name := '\.pipedelphi-to-cpp';
hPipe := CreateNamedPipe(PChar(name),
PIPE_ACCESS_DUPLEX,
PIPE_TYPE_MESSAGE or PIPE_READMODE_MESSAGE  or PIPE_NOWAIT,
PIPE_UNLIMITED_INSTANCES,
4096 ,
4096 ,
4096 ,
NIL);
if (hPipe = INVALID_HANDLE_VALUE) then
begin
OutputDebugString(PChar('Invalid pipe handle: ' + IntToStr(GetLastError)));
OutputDebugString(PChar(SysErrorMessage(GetLastError)));
end;

OutputDebugString(PChar('OpenNamedPipe, 1'));
connectResult := ConnectNamedPipe(hPipe, NIL);
OutputDebugString(PChar('connectResult: ' + BoolToStr(connectResult)));
OutputDebugString(PChar(SysErrorMessage(GetLastError)));
OpenNamedPipe := hPipe;
end;

发送消息：

procedure SendMessageToNamedPipe(hPipe:THandle; msg:string);
var
dwWrite : DWORD;
lpNumberOfBytesWritten : LongBool;
MsgLength: DWORD;
MsgW : PWideChar;
begin
MsgW := PWideChar(msg);
MsgLength := lstrlenW(MsgW) * SizeOf(WideChar);
lpNumberOfBytesWritten := WriteFile(hPipe, MsgW, MsgLength, dwWrite, NIL);
if not lpNumberOfBytesWritten then
begin
OutputDebugString(PChar('Sending error: ' + SysErrorMessage(GetLastError)));
end
else
begin
OutputDebugString(PChar('Message sent, dwWrite: ' + IntToStr(dwWrite)));
end;
end;

C#代码，应该读取Delphi应用程序发送的数据：

NamedPipeClientStream pipeClient = new NamedPipeClientStream(".", "delphi-to-cpp",
PipeDirection.InOut);
new NamedPipeClientStream(".", "delphi-to-cpp",
PipeDirection.InOut);
Debug.WriteLine("Before pipeClient.Connect");
this.IsRunning = true;

pipeClient.Connect(5000);
StreamReader reader = new StreamReader(pipeClient, Encoding.Unicode);
while (this.IsRunning && pipeClient.IsConnected)
{
string message = reader.ReadLine();
Thread.Sleep(250);
}
reader.Close();

此代码不起作用-reader.ReadLine();不返回任何内容。

如果我尝试按字节将数据读取到char[]缓冲区中，则该缓冲区在读取结束时包含垃圾。

请注意，C#应用程序实际上正在接收一些内容，我只是不知道如何从流中提取文本。

我应该如何修改我的代码(Delphi、C#或两者)，以便Delphi应用程序发送的文本正确到达C#端？