[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?

[poli-smen]

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

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

Чтобы "функция keyctrl не присваивалась к классу главной формы" убери её объявление из класса Tmain и в описании убери "Tmain." перед именем.

[helgboy]

Сообщение от poli-smen

Чтобы "функция keyctrl не присваивалась к классу главной формы" убери её объявление из класса Tmain и в описании убери "Tmain." перед именем.

Да это все понятно если убирую keyctrl из класса Tmain то компиляция останавливается на строчке :

Nperemennoy();


и выдает ошибку
[Error] main.pas(165): Undeclared identifier: 'Nperemennoy'

[poli-smen]

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

Да это все понятно если убирую keyctrl из класса Tmain то компиляция останавливается на строчке :

Nperemennoy();


и выдает ошибку
[Error] main.pas(165): Undeclared identifier: 'Nperemennoy'

И правильно он ошибку выдаёт, потому что ты пытаешься вызывать метод "Tmain.Nperemennoy" как будто обычную процедуру "Nperemennoy".

[helgboy]

Сообщение от poli-smen

И правильно он ошибку выдаёт, потому что ты пытаешься вызывать метод "Tmain.Nperemennoy" как будто обычную процедуру "Nperemennoy".

Ну хорошо как же мне вызвать метод из обычной процедуры???? если сделать так:

Код:

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

то ругается так:
[Error] main.pas(166): This form of method call only allowed for class methods

[poli-smen]

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

Ну хорошо как же мне вызвать метод из обычной процедуры???? если сделать так:

Код:

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

то ругается так:
[Error] main.pas(166): This form of method call only allowed for class methods

Правильно ругается Если тебе нужно вызывать метод из класса (а не из объекта как обычно), то такой метод тебе нужно объявить как классовый. Только вот зачем ты оформил Nperemennoy как метод класса Tmain, а не как обычную процедуру?

[helgboy]

Сообщение от poli-smen

Правильно ругается Если тебе нужно вызывать метод из класса (а не из объекта как обычно), то такой метод тебе нужно объявить как классовый. Только вот зачем ты оформил Nperemennoy как метод класса Tmain, а не как обычную процедуру?

Потому что с ней завязано куча элементов который расположены на главной форме Combobox , label, и др.... Вообщем никак по другому. Nperemennoy() - должно быть объявлено как метод ... Другими словами моя злополучная библиотека отслеживает нажатия клавиш и в соответствии от этого меняются значения и свойства элементов расположенных на главной форме

Сообщение от poli-smen

метод тебе нужно объявить как классовый.

как это делается?

[poli-smen]

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

Потому что с ней завязано куча элементов который расположены на главной форме Combobox , label, и др.... Вообщем никак по другому. Nperemennoy() - должно быть объявлено как метод ... Другими словами моя злополучная библиотека отслеживает нажатия клавиш и в соответствии от этого меняются значения и свойства элементов расположенных на главной форме

Ты хочешь чтобы dll-ка вызывала метод класса Tmain который объявлен в exe-шнике? Так у тебя не получится.

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

как это делается?

Нужно поставить слово class перед словом procedure или function. Только это тебе не поможет, так как классовые методы не могут использовать поля объекта (потому что объекта никакого и нету).

[helgboy]

Этого я и боялся... а в обратном направлении тоесть из окна основной программы я могу передать значения каких-то переменных в dll ?
Я так и делаю (эти значения устанавливаются combobox расположенным на основной форме) далее запускается dll с ловушкой для отслеживается нажатия клавиатуры,при каждом нажатии клавиш dll записывает значение переменной присвоенной в основной форме(в combobox) в текстовый файл. Так вот когда я открываю текстовый файл а там одни нули.... хотя переменной я присваивал число 1 или любое другое