Привет всем!

Вот такой вопрос:

DLL имеет внутреннюю переменную. При вызове одного из методов
переменная устанавливается в некоторое значение и возвращается
указатель на нее в основную программу.

А если несколько потоков одновременно вызывают эту функцию в DLL ??
Понятное дело, что в этом участке памяти будет каша.

Как синхронизировать потоки? Скажем в Java есть модификатор
synchronized который решает проблему.

Если в Delphi нет стандартных методов, то можно попытаться
решить проблему самому (выставлять флаги в методе, или как-то по другому),
но тогда возникает вопрос: как заставить второй поток подождать
пока не отработает первый ??

Заранее спасибо.

А как ты создаешь поток в Дельфе? При помощи наследника класса TThread или на API? Если наследником то у TThread есть метод Synchronize, иначе прийдется реализовывать все самому, например, используя критические секции.

Сорри что недостаточно ясно изложил суть проблемы.
Я сам не создаю TThread. На самом деле ситуация такая:

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

В моем (частном) случае метод может вызываться из
нескольких экземпляров приложения.

Т.е. синхронизация должна быть реализована в самой DLL.
А как я понял это придется делать самому.

А как "использовать критические секции"?
Типа try-except ?

На сколько я понял, тебе нужно, чтобы функции твоей ДЛЛ вызывались из разных копйи твоей проги, и чтобы в момент вызова функции, доступ к ее вызову из другого приложения блокировался? Тогда тебе нужно использолвать Мьютексы - см CreateMutex, OpenMutex, ReleaseMutex:

Для того чтобы понять как они работают можешь сделать следующий небольшой тест. Создаешь новый проект и пишешь этот код:

Код

unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls; type  TForm1 = class(TForm)    Button1: TButton;    Button2: TButton;    procedure Button1Click(Sender: TObject);    procedure Button2Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end; var  Form1: TForm1;  hMutex: THandle; implementation {$R *.dfm} function GetMutex(const MutexName: PAnsiChar): THandle; begin  Result := OpenMutex(MUTEX_ALL_ACCESS, False, MutexName);  if Result = 0 then    Result := CreateMutex(nil, False, MutexName);  if Result = 0 then    raise Exception.Create(SysErrorMessage(GetLastError)); end; procedure TForm1.Button1Click(Sender: TObject); begin  hMutex := GetMutex('MutexName');  WaitForSingleObject(hMutex, INFINITE); end; procedure TForm1.Button2Click(Sender: TObject); begin  ReleaseMutex(hMutex);  CloseHandle(hMutex); end; end.

После чего запусти 2 копии этого теста и нажми Button1 в одно, а потом в другом - увидишь, что второе окно не будет активно до тех пор, пока не нажмешь Button2 в первом окне.
Учти, что на каждый OpenMutex, должен быть сделан ReleaseMutex.

Шаман!
Спасибо!