Общая переменная для нескольких экземпляров программы.

[Fabio]

Доброго времени суток.

Возник вопрос: как объявить\использовать переменную, к которой смогут обращаться несколько экземпляров программы

То есть любой экземпляр может считывать и изменять значение переменной и оно изменится для всех экземпляров программы.

Вот например как это делается в С++ :
#pragma data_seg("Shared")
volatile LONG x = 0;
#pragma data_seg()

Тогда X и будет такой переменной. Долго искал похожий аналог в делфи и не нашел.

Помогите, пожалуйста.
ЗЫ Вариант с сохранением значения переменной в файле не подойдет.

[KORN]

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

[NieL]

Если уже сильно извращаться, то можно писать в опциональный поток исполняемого файла. Вот накидал примерчик:

procedure SetInt(Val: Integer; OptionalName: string);
var
  P: PByte;
begin
  DeleteFile(OptionalName);
  with TFileStream.Create(OptionalName, fmCreate) do
  try
    P := @Val;
    Write(P^, SizeOf(Integer));
  finally
    Free;
  end;
end;

procedure GetInt(var Val: Integer; OptionalName: string);
var
  P: PByte;
begin
  with TFileStream.Create(OptionalName, fmOpenRead or fmShareDenyNone) do
  try
    P := @Val;
    Read(P^, SizeOf(Integer));
  finally
    Free;
  end;
end;

procedure Tfrm_Test.btn_SetClick(Sender: TObject);
begin
  SetInt(StrToInt(InputBox('', '', '')), 'Variable');
end;

procedure Tfrm_Test.btn_GetClick(Sender: TObject);
var
  v: Integer;
begin
  GetInt(v, 'Variable');
  ShowMessageFmt('%d', [v]);
end;

[Fabio]

Спасибо вам большое.

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

Есть ли директива компилятора, которая может поместить переменную в такую обл. памяти ?

[JTG]

CreateFileMapping/MapViewOfFile
(на *File* не обращай внимания, это только название такое)

http://www.delphisources.ru/pages/fa...lemapping.html

[Роман Радер]

Сообщение от NieL

Если уже сильно извращаться, то можно писать в опциональный поток исполняемого файла. Вот накидал примерчик:
...

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

[ZeitGeist7]

бля! ему ответили а на мою тему ноль внимания! http://programmersforum.ru/showthread.php?t=39273
который час сижу ответа жду. хоть бы кто нибудь. всё нахер! баньте! видеть вас не могу

[Fabio]

Спасибо всем кто откликнулся.

Сообщение от Роман Радер

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

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

В первом сообщении я указал код на С++, который оъявляет переменную x=0. Если, написать в проге функцию, которая будет увеличивать x при нажатии enter и выводить на печать, то работать будет так : запустим программу, нажмем enter 2 раза, на экране будет 0. 1. 2.
Запустим ещё раз программу, появится соответственно второе окно, в нем нажмем enter, появится цифра 3. И так далее, можно запустить 3-й экземпляр, нажать enter, появится 4, перейдем на первое, enter, 5....уф...
При этом переменная x едина и каждый экземпляр может её менять.

Извините, я немного сумбурно и на пальцах, но этот пример характеризует мою задачу очень хорошо.

[JTG]

Встроенных средств в делфи нет, но реализуется двумя строчками кода

hFile:=CreateFileMapping($FFFFFFFF, nil, PAGE_READWRITE, 0, 4, 'AnyName');
pData:=MapViewOfFile(hFile, FILE_MAP_WRITE, 0, 0, 0);

В результате данные по указателю pData (строка, число, запись...) доступны всем копиям программы, см. аттач и пост #5

[Fabio]

Всё, разобрался. CreateFileMapping оказалось то что нужно.
Спасибо большое всем кто отписался.