Delphi 支持共享内存的概念，可以通过 TSharedMemory 类来实现两个程序之间的共享内存。

qq_33577118

于 2023-03-16 17:51:22 发布

阅读量832

点赞数 1

分类专栏： delphi自带函数文章标签： jvm delphi

本文链接：https://blog.csdn.net/qq_33577118/article/details/129593771

版权

delphi自带函数专栏收录该内容

26 篇文章 1 订阅

订阅专栏

该示例展示了如何在Delphi中通过TSharedMemory类创建一个名为MySharedMemory的1024字节共享内存块，写入数据Hello,world!，然后读取并显示该数据。两个程序需使用相同名称访问共享内存。

摘要由CSDN通过智能技术生成

Delphi 支持共享内存的概念，可以通过 TSharedMemory 类来实现两个程序之间的共享内存。

以下是一个简单的示例，展示如何创建和读取共享内存：

var
  SharedMem: TSharedMemory;
  Data: Pointer; 
begin
  // 创建一个 1024 字节大小的共享内存
  SharedMem := TSharedMemory.Create('MySharedMemory', 1024);

  // 锁定共享内存，并返回指向内存块的指针
  Data := SharedMem.Lock;

  // 在共享内存中写入数据
  StrCopy(Data, 'Hello, world!');

  // 解锁共享内存
  SharedMem.UnLock;

  // ...

  // 重新锁定共享内存
  Data := SharedMem.Lock;

  // 从共享内存中读取数据
  ShowMessage(PChar(Data));

  // 解锁共享内存
  SharedMem.UnLock;

  // 释放共享内存对象
  SharedMem.Free;
end;

请注意，两个程序必须使用相同的共享内存名称来访问同一个共享内存块。在上面的示例中，我们使用了“MySharedMemory”作为共享内存名称。确保在两个程序中都使用相同的名称才能使它们共享相同的内存块。