1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:

function TMemoryMappedFile.CreateMMF : Boolean;
Begin
  Result := False;
  try
    aMMFHandle := CreateFileMapping($FFFFFFFF, nil,PAGE_READWRITE, 0, sizeOf(TExchangeData), Pchar('MedavisFileMapping'));
    // Sicherheitsprüfung
    if aMMFHandle = 0 then
      raise Exception.Create('CreateFileMapping-Error!');
  finally
  end;
  Result := True;
end;
{-------------------------------------------------------------------------------
 - WriteToMMF
 -------------------------------------------------------------------------------
 - Schreibt in die Memory Mapped file
 ------------------------------------------------------------------------------}
Function TMemoryMappedFile.WriteToMMF(pData : pExchangeData) : Boolean;
Begin
  Result := False;
  try
   aMMFHandle := OpenFileMapping(FILE_MAP_WRITE,False,pchar('MedavisFileMapping'));
    // Sicherheitsprüfung
    if aMMFHandle = 0 then
      exit;
    pViewData := MapViewOfFile(aMMFHandle, FILE_MAP_WRITE,0, 0, 0);
    CopyMemory(pViewData,pdata,SizeOf(texchangeData));
  finally
  end;
  Result := True;
end;
{-------------------------------------------------------------------------------
 - readFromMMF
 -------------------------------------------------------------------------------
 - Liest aus der Memory Mapped file
 ------------------------------------------------------------------------------}
Function TMemoryMappedFile.ReadFromMMF(var pData : pExchangeData) : boolean;
begin
  Result := False;
  try
    aMMFHandle := OpenFileMapping(FILE_MAP_READ,False,pchar('MedavisFileMapping'));
    // Sicherheitsprüfung
    if aMMFHandle = 0 then
      exit;

    pViewData := MapViewOfFile(aMMFHandle, FILE_MAP_READ, 0, 0, 0);
    CopyMemory(pData,pViewdata,SizeOf(texchangeData));
  finally
  end
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

Type
   TExchangeData = record
   sName : array [0..99] of Char;
   sTime : String[100];
   end;

   PExchangeData = ^TExchangeData;
   pViewData = ^TExchangeData;
//   pData : pExchangeData;   ???

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Timer1: TTimer;
    cb_Timer: TCheckBox;
    CREATE1: TButton;
    Create2: TCheckBox;
    Write2: TCheckBox;
    Read2: TCheckBox;
    CREATE3: TLabel;
    WRITE1: TButton;
    READ1: TButton;
    WRITE3: TLabel;
    READ3: TLabel;
    READ4: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure cb_TimerClick(Sender: TObject);
    procedure CREATE1Click(Sender: TObject);
    procedure WRITE1Click(Sender: TObject);
    procedure READ1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  ExchangeData : PExchangeData;
  ViewData  : pViewData; //PExchangeData;

implementation

{$R *.dfm}


procedure TForm1.cb_TimerClick(Sender: TObject);
begin
if cb_Timer.Checked  then TIMER1.Enabled:=true else TIMER1.enabled:=false;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin  //
   Label1.caption:='TEST';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
WRITE2.Checked:=false;
READ2.Checked:=false;
Label1.Caption:= DateTimeToStr(now);//IntToStr(Timer1.Tag);
Timer1.Tag:= Timer1.Tag +1;
if Timer1.Tag=1 then WRITE1Click(self);
if Timer1.Tag=2 then
  BEGIN
    READ1Click(self);
    Timer1.Tag:=0;
  END;
end;

function CreateMMF : Boolean;
var aMMFHandle : Integer;
Begin
  Result := False;
  try
    aMMFHandle :=
    CreateFileMapping($FFFFFFFF, nil,PAGE_READWRITE, 0, sizeOf(TExchangeData),
Pchar('MedavisFileMapping'));
    if aMMFHandle = 0 then
      raise Exception.Create('CreateFileMapping-Error!');
  finally
  end;
  Result := True;
end;

function ReadInfo : Boolean;
var myHandle : Integer;
begin
  myHandle :=  OpenFileMapping(FILE_MAP_READ, False, 'MedavisFileMapping');
  if myHandle > 0 then
  begin
    ExchangeData := MapViewOfFile(myHandle, FILE_MAP_READ, 0, 0, 0);
    Result := True;
  end else result := false;
  CloseHandle(myHandle);
end;

procedure TForm1.CREATE1Click(Sender: TObject);
begin
CREATE2.checked:= CreateMMF; CREATE3.caption:='CREATE';
end;

procedure TForm1.WRITE1Click(Sender: TObject); //WRITE
var myHandle : Integer;
begin
WRITE2.checked:=false;
  myHandle :=  OpenFileMapping(FILE_MAP_ALL_ACCESS, False, 'MedavisFileMapping');
  if myHandle > 0 then
  BEGIN
    ExchangeData := MapViewOfFile(myHandle, FILE_MAP_ALL_ACCESS, 0, 0, 0);

    with ExchangeData^ do
    BEGIN
    sName:= 'OK';
    sTime:= DateTimeToStr(now);
    END;

  CloseHandle(myHandle);
  WRITE3.Caption:='OK'; WRITE2.checked:=true;
  END;
end;


procedure TForm1.READ1Click(Sender: TObject);
begin  //READ
// READ2.checked:=false;
 //if ReadInfo=True then //muss entfallen wegen Speicherleck
// BEGIN
 READ2.checked:=true;
 READ3.caption:= ExchangeData.sName;
 READ4.caption:= ExchangeData.sTime;
// END;
end;

end.					

1:
2:
3:
4:

uses DateUtils; 
{Formvariable:}
var LetzterDateiaustausch:TDateTime;
    FilePfadUndName:String					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

procedure TFormWieAuchImmerDuSieNennst.OnCreate(Sender: TObject);
begin
FileName:='WieAuchImmerDuDieDateiNennstEvtlMitPfadVorausWennSieNichtImSelbenVerzeichnisStehenDarf.Endung'
end;


procedure TFormWieAuchImmerDuSieNennst.TimerDateiaustauschOnTimer(Sender: TObject);
var VergangeneZeit:
begin
if FileExists(FilePfadUndName) then  
  begin  
  VergangeneZeit:=now-LetzterDateiaustausch;  
  HoursRemaining:=Trunc(VergangeneZeit * 24);  
  MinutesRemaining:=Trunc((VergangeneZeit*24-HoursRemaining)*60);  
  SecondsRemaining:=Trunc(((VergangeneZeit*24-HoursRemaining)*60-MinutesRemaining)*60);  
  Edit1.Text:=Format('%d:%d:%d',[HoursRemaining,MinutesRemaining,SecondsRemaining]);  

    FileDate := FileAge(FileName);  
    DateTime := FileDateToDateTime(FileDate);
    if SecondsBetween(LetzterDateiaustausch, DateTime) > 30 then  
    begin  
      // Datei ist älter als 30 Sekunden, also Dateiaustausch und
      FileClose(filecreate(FileName)); 
      if deletefile(FileName)
      LetzterDateiaustausch:=DateTime;
    end;  
  end;  
end;					

1:
2:

   sName : array [0..99] of Char; //funktioniert auch, wenn das sendende Programm nit C++ compiliert worden ist
   sTime : String[100]; //funktioniert nicht, wenn das sendende Programm nit C++ compiliert worden ist					

1:
2:
3:
4:

struct {
    unsigned char len;
    char string[100];
} deinString;