| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

CGI - System Error. Code: 5. Отказано в доступе [D6, Win2k]

AlexLumpov ©   (2002-07-31 13:02:00) 

Уважаемые мастера! Если кто сталкивался.
Пишу cgi и тестирую его под Win2k Server. Хочу из cgi передавать запросы основной программе используя общую память (Sharem Memory). На вызов CreateFileMapping($FFFFFFFF, nil, PAGE_READWRITE, 0, RealSize, PChar(Name)) из Cgi ругается:
System Error. Code: 5. Отказано в доступе.
Если остановить основную программу то ругается по другому:
System Error. Code: 2. Не удается найти указанный файл.
Что делать?

---

Набережных С.   (2002-07-31 22:11:00) [1]

Ты создаешь файд с дескриптором безопасности основной программы и у CGI не хватает прав на его открытие. Нужно создать дескриптор с такими DACL, чтобы у CGI хватило прав. Тема очень большая и далеко не самая простая. Вот так можно создать дескриптор с нулевым даклом, разрешающим неограниченный доступ к объекту:

var
FSD : TSecurityDescriptor;
FPSD : PSecurityDescriptor;

if
InitializeSecurityDescriptor(@FSD,SECURITY_DESCRIPTOR_REVISION)
and
SetSecurityDescriptorDacl(@FSD,true,nil,false)
then
FPSD:=@FSD
else
RaiseLastWin32Error;

var
SA : TSecurityAttributes;
PSA : PSecurityAttributes;

if FPSD <> nil then
begin
ZeroMemory(@SA,SizeOf(SA));
SA.nLength:=SizeOf(SA);
SA.lpSecurityDescriptor:=FPSD;
SA.bInheritHandle:=true;
PSA:=@SA;
end
else
PSA:=nil;

Этот код выдернут из двух разных мест и поэтому выглядет несколько избыточным.
Подставь PSA вместо нил в CreateFileMapping и все должно заработать. Но учти, что такой объект совершенно не защищен.
Если хочешь разобраться, ищи в мсдн тему "creating security descriptor for new objec" или типа того.

---

AlexLumpov   (2002-07-31 13:05:00) [2]

поправка

из cgi делается вызов
OpenFileMapping(FILE_MAP_WRITE, true, PChar(Name))

а тот вызов, который указан в 1-ом сообщении делается из основной программы

---

Наверх