[helgboy]

Доброго времени суток! Я новичек в использовании библиотек dll . Вот суть проблемы:
Есть основная программа main.dpr в ней объявлена процедура

Код:

procedure keyctrl();
begin
writedata;   // обявлено в другом модуле  mod.pas 
writeln(ft,' x='+inttostr(x)+' writedata'); // 
end;

есть библиотека
libr.dll в ней создана ловушка для перехвата сообщений с клавиатуры, в определенный момент с библиотеки вызывается процедура keyctrl();
так вот почему то в этой вызванной процедуре выполняются все действия кроме writedata; // обявлено в другом модуле mod.pas

Во время выполнения программы никаких ошибок не возникает ... просто проходит мимо этого действия и все...

[poli-smen]

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

так вот почему то в этой вызванной процедуре выполняются все действия кроме writedata; // обявлено в другом модуле mod.pas

А вот меня интересует как Delphi у тебя смог скомпилировать модуль с таким именем? У меня наотрез отказывается так как mod это зарезервированное слово.
Ты на 100% уверен, что вызываешь writedata именно из модуля mod.pas, а не из какого-то другого?

[helgboy]

нет, прошу прощения называется он tmod.pas и процедура writedata успешно вызывается из любого места программы кроме библиотеки

[poli-smen]

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

нет, прошу прощения называется он tmod.pas и процедура writedata успешно вызывается из любого места программы кроме библиотеки

Т.е. в процедуре keyctrl вызывается writeln, но не вызывается writedata? Не верю.

[helgboy]

какой-то полтергейст, вчера никак не хотело работать, сегодня после десятка манипуляций, открытий сохранений перезагрузок, функция writedata стала выполнятся, правда с кое-каками мат. ошибками. И вот попутная проблема.
Чтоб все было совсем хорошо надо объявить процедуру не после var а в type и дальше в программе описать ее так:

Код:

procedure Tmain.keyctrl();
begin
writedata;   // обявлено в другом модуле  mod.pas
writeln(ft,' x='+inttostr(x)); //
Nperemennoy();// Необходим вызов этой функции... как сделать правильно?
end;

procedure Tmain.Nperemennoy();
begin
...
end;

Так вот теперь уже проблема вызвать keyctrl() из библиотеки пишет что не может найти такую процедуру, а
если обьявляю так:

Код:

procedure keyctrl();
begin
writedata;   // обявлено в другом модуле  mod.pas
writeln(ft,' x='+inttostr(x)); //
Nperemennoy();// Необходим вызов этой функции... как сделать правильно?
end;

то процедура вызывается из библиотеки но тогда не вызвается Nperemennoy(); Как сделать чтоб все вызывалось?

[helgboy]

Тут сказывается мое плохое понимание для работы с классами

Код:

type
  Tmain = class(TForm)
procedure keyctrl();
procedure Nperemennoy();
end;

var
....
implementation

begin
procedure Tmain.keyctrl();
begin
writedata;   // обявлено в другом модуле  mod.pas
writeln(ft,' x='+inttostr(x)); //
Nperemennoy();// Необходим вызов этой функции... как сделать правильно?
end;
 
procedure Tmain.Nperemennoy();
begin
...
end;
.....
end.

Вот нужно переделать походу чтоб функция keyctrl не присваивалась к классу главной формы и тем не менее могла сама вызывать Nperemennoy();
а также без проблем вызываться из библиотеки.

[poli-smen]

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

Так вот теперь уже проблема вызвать keyctrl() из библиотеки пишет что не может найти такую процедуру,

Ну компилятор врать не будет. Возможно ты пытаешься вызвать метод как процедуру?

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

а
если обьявляю так:

Код:

procedure keyctrl();
begin
writedata;   // обявлено в другом модуле  mod.pas
writeln(ft,' x='+inttostr(x)); //
Nperemennoy();// Необходим вызов этой функции... как сделать правильно?
end;

то процедура вызывается из библиотеки но тогда не вызвается Nperemennoy(); Как сделать чтоб все вызывалось?

А каким образом ты определяешь, что Nperemennoy не вызывается? Поставь внутри процедуры Nperemennoy в самом начале MessageBeep(0); (только модуль Windows подключи) - слышно звук при вызове процедуры keyctrl?