Так как данные моей ДЛЛ-ки будут использоваться разными процессами, то пришлось сделать функции синхронизации:

Код

procedure LockData; stdcall; export; begin  hMutex:=CreateMutex(nil, False, MUTEX_NAME);  //Дождаться перехода мьютекса в сигнальное состояние  WaitForSingleObject(hMutex, INFINITE); end; procedure UnLockData; stdcall; export; begin  //Получить хендл мьютекса  hMutex:=CreateMutex(nil, False, MUTEX_NAME);  ReleaseMutex(hMutex);  CloseHandle(hMutex); end;

Вроде все нормально, но появился странный глюк - при получении данных из блока памяти (FileMapping), второй элемент массива содержит бредовые значения(В нутри тела функции это значение равно установленному, при получении же его программой оно искажается).

Код

function GetShareData(Index:integer): integer; stdcall; export; begin Result:=0; if Assigned(ShareData) then  if IsValidIndex(Index) then  begin    Result:=GetInt(Index)^;  end; end;

Причем, если убрать эти функции при получении данных, то все нормально. Но без синхронизации ни как нельзя. Может есть другой способ ее сделать?

Это сообщение отредактировал(а) <Spawn> - 20.10.2003, 21:05

Цитата

Код procedure LockData; stdcall; export; begin  hMutex:=CreateMutex(nil, False, MUTEX_NAME);  //Дождаться перехода мьютекса в сигнальное состояние  WaitForSingleObject(hMutex, INFINITE); end;

Создали хендл для именованного мутеха. Зашли, заблокировав остальных. Вышли из процедуры.

Код

procedure UnLockData; stdcall; export; begin  //Получить хендл мьютекса  hMutex:=CreateMutex(nil, False, MUTEX_NAME);  ReleaseMutex(hMutex);  CloseHandle(hMutex); end;

Создали хендл для именованного мутеха. Этим хэндлом затерли предыдищий, еще не закрытый...

Или что-то еще не оговорено?

Это сообщение отредактировал(а) Dmitry V.Abramov - 21.10.2003, 01:01

При вызове CreateMutex с именем уже существующего, возвращается хендл существующего мьютекса. По крайней мере, в одной книженции использован подобный подход из чего я сделал такой вывод.

Это сообщение отредактировал(а) <Spawn> - 21.10.2003, 04:19

Я так понимаю, что твоя прога ждет данных от dll загруженных в других процессах? Требуется: как-то информировать прогу о том, что данные поступили и на время обработки данных запретить модификацию другим процессам?

cully Совершенно верно. В ДЛЛ-ке реализованы различные функции для манипуляции данными, предоставленними CreateFileMapping+MapViewOfFile. Так как блок данных довольно большой и считывается блоками размером с integer то нужно делать блокировку на время получения данных. Вот как щас, но при этом совершенно мне непонятный глюк во втором элементе массива:

Код

try  LockData;  vCount:=GetValuesCount;  for i:=0 to vCount-1 do  begin    addr.S_addr:=GetShareData(i);    lbSharedIPList.Items.Add(inet_ntoa(addr));  end; finally  UnLockData; end;

Цитата

При вызове CreateMutex с именем уже существующего, возвращается хендл существующего мьютекса. По крайней мере, в одной книженции использован подобный подход из чего я сделал такой вывод.

В win32 такого не бывает. Если тебе дали handle - изволь отдать, когда станет не нужен. Система ведет счетчик и по последнему СloseHandle уничтожит его физически. По "книжке" же тогда получается, что возможно уничтожить handle чужого процесса.

В принципе, пару хэндлов можно и позабыть - они высвободятся при завершении приложения. Но у тебя, насколько я понял, идут интенсивные обращения к LockData и свободные хэндлы вполне могут закончиться. Тогда не откроется очередной мутех - а на handle=0 ты не проверяешь. Вполне возможный сценарий...

Вот и Win32.hlp говорит:
Use the CloseHandle function to close the handle. The system closes the handle automatically when the process terminates. The mutex object is destroyed when its last handle has been closed.

Цитата

При вызове CreateMutex с именем уже существующего, возвращается хендл существующего мьютекса.

Текст, действительно, двояко толкуется. Правильней звучало бы:

При вызове CreateMuytex система возвращает хэндл для одноименного мутеха если он уже существует, или создает новый...

Dmitry V.Abramov Все окей с мьютексами. Можно было бы обойтись и без CreateMutex, но в ДЛЛ-ке, используемая мною переменная hMutex, содержащая хендл мьютекса, равна 0 при обращении к UnLockData. Я кстати не раз встречал уже подобный случай в ДЛЛ. Может кто обьяснит мне из за чего происходит инициализация переменных заново? Но не в этом дело то, а втом что при их использовании появляются совсем неясные глюки со вторым элементом массива.

Это сообщение отредактировал(а) <Spawn> - 22.10.2003, 05:23

<Spawn> ... Не вижу ничего окейного. Не вижу также где и как объявлена hMutex. Без понятия как используется DLL... Пока все что вижу - это ошибку чреватую переполнением таблицы хэндлов. Если в остальном коде такая же окейность, то... ничего кроме удачи пожелать не смогу.

Да какое переполнение млин, цитата 1 из книги "Системное программирование в Windows 2000" из главы "Синхронизация", автор Ал Вильямс: "Если поток пытается создать объект, который уже существует, вызов создания объекта сработает как вызов открытия объекта ".

Цитата 2 оттуда же: "Create Mutex - создает новый обьект или открывает уже существующий "


Часть ДЛЛ:

Код

library DLLShare; uses  SysUtils,  Classes,  Windows,  Dialogs; var  ShareData: Pointer; // shared  hMapFile: THandle=0;  CurrentDataCount:integer=0;  [B]hMutex:THandle;[/B] const  VirtualFileName = 'ShareDllData';  DataSize = sizeof (Integer);  MUTEX_NAME='DLLMutex'; {$R *.res} function IsValidIndex(Index:Integer):Boolean; begin  Result:=(Index>-1) and (Index<CurrentDataCount); end; function GetInt(Index:integer):PInteger; var i:integer; begin  Result:=nil;  if Assigned(ShareData) then  begin    Result:=PInteger(DWORD(@ShareData)+DataSize*Index)  end; end; function GetShareData(Index:integer): integer; stdcall; export; begin Result:=0; if Assigned(ShareData) then  if IsValidIndex(Index) then  begin    Result:=GetInt(Index)^;  end; end; function GetValuesCount:integer; stdcall; export; begin Result:=CurrentDataCount; end; procedure LockData; stdcall; export; begin  hMutex:=CreateMutex(nil, False, MUTEX_NAME);  WaitForSingleObject(hMutex, INFINITE); end; procedure UnLockData; stdcall; export; begin  hMutex:=CreateMutex(nil, False, MUTEX_NAME);  ReleaseMutex(hMutex);  CloseHandle(hMutex); end; exports  AddShareData,  SetShareData,  GetShareData,  DeleteByValue,  GetValuesCount,  LockData,  UnLockData;

При попытке использовать hMutex в UnLockData он равен 0, поэтому приходится его получать при помощи CreateMutex, которая вернет хендл уже существующего мьютекса с таким именем.

Даже если бы это было переполнение таблицы хендлов, как такое моглобы произойти при первом обращении к LockData??? Это просто невозможно.
Пример тестирования. Первый элемент массива равен 1, второй 10, третий 100.
Результат первой попытки получения данных(кодом, который я привел выше, без использования inet_ntoa, т.е. вывод данных при помощи получения их функцией GetShareData):

Код

1 268 100

Второй :

Код

1 256 100

Третий:

Код

1 240 100

Если же убрать вызовы LockData и UnLockData, то результат такой, какой был указан сначала.

Это сообщение отредактировал(а) <Spawn> - 22.10.2003, 07:20

Цитата

Да какое переполнение млин, цитата 1 из книги "Системное программирование в Windows 2000" из главы "Синхронизация", автор Ал Вильямс: "Если поток пытается создать объект, который уже существует, вызов создания объекта сработает как вызов открытия объекта ". Цитата 2 оттуда же: "Create Mutex - создает новый обьект или открывает уже существующий "

Мндасссс...

"Открывает существующий...". А дальше, наверное, что-то типа "Можете плевать на открытые хэндлы - система сама их закроет при завершении процесса" ? Или нет? Если нет, то с чего ты взял, что это тот-же самый хэндл? Может все-таки "хэндл для существующего уже объекта"? Не приходилось открывать один файл двумя программами одновременно? Тоже были одинаковые хэндлы?

Если бы ты читал эту книжку как положено - с начала, то не пропустил бы то место, где рассказывается о ресурсах Windows и о хэндлах в частности. Я же привык объяснять прописные истины лишь тем, кто слушает, а не размахивает наугад раскрытой книжкой...

Запусти вот эту "упрощенную" версию твоей же программы:

Код

{$APPTYPE CONSOLE} program tstmtx; uses  Windows; var  hMutex:THandle; const  MUTEX_NAME='DLLMutex'; procedure LockData; begin  hMutex:=CreateMutex(nil, False, MUTEX_NAME);  WaitForSingleObject(hMutex, INFINITE); end; procedure UnLockData; begin  hMutex:=CreateMutex(nil, False, MUTEX_NAME);  ReleaseMutex(hMutex);  CloseHandle(hMutex); end; begin  repeat    LockData;    write(hMutex, ' ');    UnlockData;    write(hMutex, ' ');  until false; end.

Выход по Ctrl+C. Во время ее работы сходи в TaskManager и посмотри на строчку Handles:...

Про нулевой hMutex - тоже стало понятно при наличии текста. Но, боюсь, пускаться в объяснения - как бы не пристукнули умной книжной...

Да блин не в этом суть то. Проблема все равно не решиться! Я кажется совсем про другое вопрос задавал!
Да хоть такой код сделать:

Код

try LockData; vCount:=GetValuesCount; for i:=0 to vCount-1 do begin   addr.S_addr:=GetShareData(i);   lbSharedIPList.Items.Add(inet_ntoa(addr)); end; finally //Намерено убрали UnLockData end;

Все равно тот же бред со вторым элементом массива.

Короче вопрос закрыт я нашел решение

Как мне кажется немного не верно используется мьютексы. Надо бы так:

1. При страте потока\процесса создается\открывается мьютекс.
2. Когда потоку\приложению требуется захватить ресурс он производит это при помощи WaitForSingleObject.
3. Когда ресурс больше не нужен делается ReleaseMutex, т.е. отпускаем ресурс.
4. При завершении потока\процесса делается CloseHandle, хотя для процессов это вроде и не надо, т.к. это за нас делает ОС.

Суммируя все вышесказанное:

Код

library Project2; uses  Windows; const  MUTEX_NAME = 'zzz'; var // или threadvar для потоков  hMutex: Cardinal; var  SavedProc: TDLLProc; procedure StartDLL; begin  hMutex := CreateMutex(nil, False, MUTEX_NAME); end; procedure StopDLL; begin  ReleaseMutex(hMutex); // на всякий случай, плохого все равно ни чего из этого не получится  CloseHandle(hMutex); end; procedure LibraryProc(Reason: Integer); begin  case Reason of    DLL_PROCESS_DETACH: StopDLL;    { если нужно для потоков    DLL_THREAD_ATTACH: StartDLL;    DLL_THREAD_DETACH: StopDLL;    }  end;  if Assigned(SavedProc) then    SavedProc(Reason); end; procedure LockData; stdcall; begin  WaitForSingleObject(hMutex, INFINITE); end; procedure UnLockData; stdcall; begin  ReleaseMutex(hMutex); end; exports  LockData,  UnLockData; begin  SavedProc := DllProc;  DllProc := LibraryProc;  StartDLL; end.

попробуй сделать так, может поможет.

Цитата

Короче вопрос закрыт я нашел решение

ай, млин, не успел но уж попробуй, плиз... ;)