I need to share memory between applications and wanted to know if FPC has this implemented. Today I use the windows "CreateFileMapping" function, but this is windows specific.

Another thing: To synchronize the shared memory I use a mutex which can be initialized be name on each application. Can this be done with FPC mutexes?

Regards,
Andreas

2008/5/20 Andreas Berger :

on unix systems you can use mmap and semaphores to accomplish the same thing. in fpc there's simpleipc for one-way communication.

henry

I need to share memory between applications and wanted to know if FPC has this implemented. Today I use the windows "CreateFileMapping" function, but this is windows specific.

Here is a parcel of a program where I use sheared memory on Linux

Regards

Carsten

-------------------------

uses
   spstatus;
begin
  if not InitShaerdMemory('./udp2ser4') then
  begin
    WriteLn('Error at InitShaerdMemory');
    exit;
  end;
  spstatus.TcpSerData^.udp2ser2_terminate:=false;
end.

-----------------------------

Unit spstatus;
Interface
function InitShaerdMemory(filename:shortstring):boolean;
Type
  TcpSerData_typ=record
    Sio_Tcp_used:boolean;
    udp2ser2_terminate:boolean;
  end;
Var
  TcpSerData:^TcpSerData_typ;
Implementation
Uses ipc,BaseUnix;
function InitShaerdMemory(filename:shortstring):boolean;
var
  id,key:cInt;
  pc:array[0..255] of char;
Begin
  InitShaerdMemory:=false;
  fillchar(pc,256,0);
  pc:=filename;
  key:=ftok(pc,1);
  if key=-1 then
    exit;
  id:=shmget(key,sizeof(TcpSerData_typ),IPC_CREAT);
  if id=-1 then
    exit;
  TcpSerData:=shmat(id,nil,IPC_CREAT);
  if LongInt(TcpSerData)=-1 then
    exit;
  InitShaerdMemory:=true;
end;
End.

Thanks Carsten,

I didn't understand it all since I am weak in Linux. But I'll study it and try to make a function that works for windows and linux.