Delphi与Qt在Windows下使用共享内存进程间通信

Delphi部分

type

TGuardInfo=record

Lock: Integer;

end;

PGuardInfo = ^TGuardInfo;

TGuardShareMem=class

private

FHandle: THandle;

FGuardInfo: PGuardInfo;

public

constructor Create;

destructor Destroy; override;

function GetGuardInfo: PGuardInfo;

end;

{ TGuardShareMem }

constructor TGuardShareMem.Create;

begin

FHandle := CreateFileMapping(INVALID_HANDLE_VALUE, nil, PAGE_READWRITE, 0,

SizeOf(TGuardInfo), PChar('guardinfo_2013'));

FGuardInfo := MapViewOfFile(FHandle, FILE_MAP_WRITE or FILE_MAP_READ, 0, 0,

sizeof(TGuardInfo));

FGuardInfo.Lock := 0;

end;

destructor TGuardShareMem.Destroy;

begin

UnmapViewOfFile(FGuardInfo);

CloseHandle(FHandle);

inherited;

end;

Qt部分

struct GuardInfo

{

qint32 lock;

};

bool lock()

{

QSharedMemory sharedMemory;

sharedMemory.setNativeKey("guardinfo_2013");

if (!sharedMemory.attach())

{

qDebug()<<"atttach fail";

return false;

}

GuardInfo *p= (GuardInfo *)sharedMemory.constData();

qDebug()<<p->lock;

p->lock = 212;

return true;

}