Как обьявить шарэ переменную?

← →
Vadim M (2006-01-06 13:26) [0]

Передача данных через длл,
динамически загружаю длл в проге 1 и проге2
в проге 1 - пишу значение Write1(100);
в проге 2 - читаю значение,должнобыть 100,а не 0 .
var ss:cardinal;ss:=Read1;

library dog;

uses sysUtils,Classes;

{$R *.RES}

var
info:cardinal; // share ???

procedure Write1(a:cardinal);
begin
info:=a;
end;

function Read1:cardinal;
begin
Result:=info;
end;

info:cardinal - пример ,там будет свой тип стоять

← →
Fay © (2006-01-06 13:44) [1]

2 Vadim M (06.01.06 13:26)
File mapping в помощь. На сайте есть статейка по этому поводу.

← →
Vadim M (2006-01-06 16:36) [2]

не хотелось бы мапить ,и выдирать real массивы,
тут как то в обьявлении переменной и она видна всем,что-то
типа

var share info:cardinal ,

но синтаксис не помню,а в учебниках(для чайников) такого нет

:(

← →
Vadim M (2006-01-06 21:25) [3]

как пoхерить?

← →
Джо © (2006-01-06 21:32) [4]

> [3] Vadim M (06.01.06 21:25)
> как пoхерить?

x

Вы все, которые:
пытаются ставить глобальные хуки;
организовать межпросессорный обмен;
и т. д. и т. п. - просто ЛОХИ!

Надо же было всего-то объявить var share!
:-)))

Германн © (07.01.06 1:55) [5]
Действительно, раз уж в Borland догадались сделать threadvar, то про sharevar они уж никак не могли забыть :)

Как обьявить шарэ переменную? Найти похожие ветки