OpemFileMapping & MapViewOfFile gehen nicht

[sk0r]

Hi,

ich versuche hinzubekommen dass zwei Programme sich "unterhalten"

dies versuche ich mit FileMapping. Leider will die datei, die
das file map öffnet und lesen soll einfach net funktionieren.

Datei1

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  szFileMapping: string = 'Czybik';
  CONST_SIEBEN: PCHAR = 'sieben';
  hMap: Cardinal;
  hInfo: PCHAR;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  hmap := CreateFileMapping($FFFFFFFF, nil, PAGE_EXECUTE_READWRITE, 0, $1000, PChar(szFileMapping));
  hInfo := MapViewOfFile(hMap, FILE_MAP_ALL_ACCESS, 0, 0, 0);
  showmessage(syserrormessage(getlasterror));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  hInfo := PCHAR(INPUTBOX('WERT', 'LQL', 'Q'));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  showmessage(inttostr(integer(hInfo^)));
  //hInfo^ := CONST_ACHT;
end;

end.

Datei2

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  szFileMapping: String = 'Czybik';
  CONST_SIEBEN: PCHAR = 'sieben';
  hMap: Cardinal;
  hInfo: Pchar;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage(hInfo^);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  hMap := OpenFileMapping(FILE_MAP_ALL_ACCESS, false, PChar(szFileMapping));
  hInfo := MapViewOfFile(hMap, FILE_MAP_ALL_ACCESS, 0, 0, 0);
  showmessage(syserrormessage(getlasterror));
end;

end.

Bitte dringend um Hilfe!!

[Luckie]

Zitat von sk0r:

einfach net funktionieren.

Das ist eine unzureichende Fehlerbeschreibung. Ansonsten: http://www.michael-puff.de/Developer...tiges/MMF.html

[SirThornberry]

du solltest das ganze ordentlich machen und unter anderem hmap prüfen bevor du damit weiter arbeitest.

[sk0r]

Der Fehler bei Datei2 ist "Das handle ist ungültig". Das kommt, wenn ich
die Datei vor der ersten starte.

Wenn ich sie danach starte, also es schon erstellt ist kommt "Das Fenster hat keine Bildlaufleisten"

Ich weiß einfach nicht was ich falsch mache, denn ich sehe nirgendswo einen Fehler!

Edit: Wenn ich CreateFileMapping nur zum lesen benutzen will dann kommt der fehler dass er das file map nicht erstellen kann weil es ja schon existiert. komischer bug:

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  szFileMapping: String = 'Czybik';
  CONST_SIEBEN: PCHAR = 'sieben';
  hMap: Cardinal;
  hInfo: Pchar;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage(hInfo^);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  hMap := CreateFileMapping(INVALID_HANDLE_VALUE, nil, PAGE_READONLY, 0, sizeof(szFileMapping), PChar(szFileMapping));
  if hMap <> 0 then
  begin
    hInfo := MapViewOfFile(hMap, FILE_MAP_READ, 0, 0, 0);
  end;
  showmessage(syserrormessage(getlasterror));
end;

end.

Wenn ich anstatt CreateFileMapping OpenFileMapping use dann kommt Zugriff verweigert

Code:

hMap := OpenFileMapping(PAGE_READONLY, false, Pchar(szFileMapping));