forum.clarionlife.net

iBAH писал(а):

iBAH писал(а):

Andrew Myalin писал(а):если мне надо какая то глобальная ссылка, я её декларирую в .CLW реализации типового класса, в конструкторе которого делаю присвоение:

Код: Выделить всё

GloRef  &myClass
myClass.Constructor
   CODE
   GloRef &= SELF

в APP я декларирую такую переменную как

Код: Выделить всё

GloRef   &myClass,EXTERNAL

всё, работа с GloRef идёт на ура

Спасибо за ответ... все действительно идет на ура

Такая схема не работает в Clarion5... когда делаю в app MyRef &= new(MyClass) программа слетает что делать? clw-ху к проекту подключил... та же фигня

myClass.Kill   PROCEDURE
tmp   &SELF
  CODE
  tmp &= SELF
  DISPOSE(tmp)

Дед Пахом писал(а):А чем такая конструкция

Код: Выделить всё

myClass.Kill   PROCEDURE 
tmp   &SELF 
  CODE 
  tmp &= SELF 
  DISPOSE(tmp)

лучше/правильнее

Код: Выделить всё

myClass.Kill   PROCEDURE 
  CODE 
  DISPOSE(SELF)

Andrew Myalin писал(а):...
да, блин, ну зачем же так утверждать, у меня коммерческие продукты для C5, C55, C6.x, и во всех юзается одна схема глобальных указателей, и всё работает на ура, проблема в ручках

и вот такая конструкция мне очень нравится

Код: Выделить всё

myClass.Kill   PROCEDURE
tmp   &SELF
  CODE
  tmp &= SELF
  DISPOSE(tmp)

MyClass1.SomeMethod1 PROCEDURE()
 CODE
 self.RefMyClass2&=new(MyClass2)
 self.RefMyClass2.SomeMethod2 !здесь вылетает

 !вызов в app
 RefMyClass1.RefMyClass2.SomeMethod2! а здесь все ok

iBAH писал(а):

Andrew Myalin писал(а):...
да, блин, ну зачем же так утверждать, у меня коммерческие продукты для C5, C55, C6.x, и во всех юзается одна схема глобальных указателей, и всё работает на ура, проблема в ручках

и вот такая конструкция мне очень нравится

Код: Выделить всё

myClass.Kill   PROCEDURE
tmp   &SELF
  CODE
  tmp &= SELF
  DISPOSE(tmp)

Извиняюсь... Просто не в этой схеме дело... Проблема Clarion5 оказалась в другом: Если в качестве свойства класса1 использовать ссылку на класс2, то при вызове Метода класса2 из метода класса1 программа вылетает... т.е.

Код: Выделить всё

MyClass1.SomeMethod1 PROCEDURE()
 CODE
 self.RefMyClass2&=new(MyClass2)
 self.RefMyClass2.SomeMethod2 !здесь вылетает

классы описаны во внешнем модуле...
при этом, если вызывать тот же метод класса2 вне метода другого класса все ok

Код: Выделить всё

 !вызов в app
 RefMyClass1.RefMyClass2.SomeMethod2! а здесь все ok

А за схему еще раз спасибо: проверил на простом примере работает и в clarion5, а в C6 уже вовсю использую

Andrew Myalin писал(а): ну тут без примера трудно что сказать, одно могу сказать - это ручки, давай пример, покажу где ошибаешься

iBAH писал(а):

Andrew Myalin писал(а): ну тут без примера трудно что сказать, одно могу сказать - это ручки, давай пример, покажу где ошибаешься

сюда выложил пример (usemyclass.zip) ... http://slil.ru/22841410
запускал на Clarion5PE без патчей
Заранее спасибо

_ABCDllMode_  EQUATE(0)
_ABCLinkMode_ EQUATE(1)

_ABCDllMode_  EQUATE(0)
_ABCLinkMode_ EQUATE(1)

Andrew Myalin писал(а): ну как я и говорил, ошибка в ручках, почему в C5 вылетает, а в C6 нет, объясняю
есть волшебные EQUATE

Код: Выделить всё

_ABCDllMode_  EQUATE(0)
_ABCLinkMode_ EQUATE(1)

в C5 они декларируются в головносм .CLW проекта, в C6 в Project через Defines, в чём разница, в C5 эти EQUATE видны во всех модулях .CLW у которых MEMBER сылается на головной .CLW, в C6 - эти EQUATE видны во всех .CLW модулях, независимо от MEMBER

в твоём случае в xMyClass.clw, я после MEMBER вставил:

Код: Выделить всё

_ABCDllMode_  EQUATE(0)
_ABCLinkMode_ EQUATE(1)

и GPF пропал

Andrew Myalin писал(а): кстати, при использовании этих волшебных EQUATE надо бы и реализацию ABC классов было поглядеть, и сделать по образу и подобию, там именно так и сделано

Andrew Myalin писал(а):короче, удачи в написании своих классов

Andrew Myalin писал(а): есть волшебные EQUATE

Код: Выделить всё

_ABCDllMode_  EQUATE(0)
_ABCLinkMode_ EQUATE(1)

в C5 они декларируются в головносм .CLW проекта, в C6 в Project через Defines, в чём разница, в C5 эти EQUATE видны во всех модулях .CLW у которых MEMBER сылается на головной .CLW, в C6 - эти EQUATE видны во всех .CLW модулях, независимо от MEMBER

iBAH писал(а): Опять поимел проблему... по не знанию...
В мульти dll пытаюсь проделать ту же операцию... gpf-а нет, но не знаю куда приляпать ссылки на класс... оставил их лежать в clw с классом, ее же сделал MEMBER('головной clw'). Когда пытаюсь пользоваться ссылками(EXTERNAL) в app... выдает Unresolved External. Волшебные EQUATES объявляю перед INCLUDE'ом в головном app и остальных, где использую класс...
Вот пример:
http://slil.ru/22886261

 $СсылкаНаКласс  @?

Andrew Myalin писал(а): не хватет CSKEYS.CLW


чтобы любые объекты были видны в других DLL необходимо их проэкспортировать в той APP, где они не EXTERNAL, для этого в Global есть соответвующий Embed - Inside to export list туды втавь

Код: Выделить всё

 $СсылкаНаКласс  @?

iBAH писал(а): А что такое CSKEYS.CLW?