Текущий архив: 2003.06.02;
Скачать: CL | DM;

Вниз

Помогите разобраться с OpenFileMapping   Найти похожие ветки 

← →
Пубертанец   (2003-04-03 14:22) [0]

Есть такой код:

procedure TForm1.Button1Click(Sender: TObject);
var
FFileHandle: THandle;
FFileSize: integer;
FMapHandle: THandle;
FData: PByte;
PData: PChar;
begin
FFileHandle:=FileOpen("D:\

---

← →
MBo ©   (2003-04-03 14:26) [1]

Так ты же MMF в первой процедуре закрыл!

---

← →
Пубертанец   (2003-04-03 15:20) [2]

Пожалуйста, такой код тоже не работает:


procedure TForm1.Button1Click(Sender: TObject);
var
FFileHandle: THandle;
FFileSize: integer;
FMapHandle, ff: THandle;
FData, dd: PByte;
PData, pp: PChar;
begin
FFileHandle:=FileOpen("D:\

---

← →
Игорь Шевченко ©   (2003-04-03 15:41) [3]

Хоть бы одна проверка на ошибки...Нельзя так писать

---

← →
Morfein ©   (2003-04-03 20:36) [4]

У тебя файл открыт с доступом GENERIC_READ, а открыть mapping ты пытаешься с флагом на доступ PAGE_WRITECOPY...

---

Страницы: 1 вся ветка

Текущий архив: 2003.06.02;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.018 c