CloseInterface(0) не закрывает интерфейс

[RAJAH]

Доброго времени суток!
Кто-нибудь сталкивался? Когда началось - не знаю, недавно патчи декабрьские поставили, может, из-за них. А как теперь закрывать?

[RAJAH]

Народ, помогите, горю! Не закрывает даже простейшие фейсы, например:

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

interface vrem
create view as select * from grnal;
browse www
  fields
    grnal.nrec;
end;

handleevent
  cminit:
  {
     closeinterface(0);
  }
end;
end.

[Алексей]

Хм. не замечал, у меня вроде всё закрывает...
а если попробовать
CloseInterface(cmDefault);

[RAJAH]

Да по-разному пробовал: и CmOK, и CmDefault, и CmCancel... Тут покопался и нашёл http://www.tyumbit.ru/gal_forum/viewtop ... 759bdc4428 - только так закрывается. А почему по-старому не идёт - не знаю. Может, глюк какой...

[RAJAH]

Теперь другая проблема - необработанное исключение и ошибка загрузки объекта:

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

#define ComponentVersion
#include AdrFunc.vih
#include AdrFunc.var

interface AdresPoluchit, AlwaysReturn
var
  iaddress: AddressFunc;
  adres: string;
  persnrec: comp;

create view as select * from grnal;

parameters
  adres, persnrec;

browse www
  fields
    grnal.nrec;
end;

handleevent
  cminit:
  {
     adres:=iaddress.GetFullAddressInd(persnrec);
     closeinterface(0);
     abort;
     exit;
  }
end;

#undef ComponentVersion
end.

Раньше такое при отсутствии #define выскакивало. А теперь что?

[Алексей]

Сделайте переменную типа VipInterface и после неё напишите new - это автоинициализирует ее.

[RAJAH]

Сделал , как научили. Ошибка не выскакивает, но переменная adres всё равно пустая!

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

#define ComponentVersion
#include AdrFunc.vih
#include AdrFunc.var

vipInterface iAdresPoluchit;

interface AdresPoluchit, AlwaysReturn
var
  myFace: iAdresPoluchit;
  iaddress: AddressFunc;
  adres: string;
  persnrec: comp;

create view as select * from grnal;

parameters
  adres, persnrec;

browse www
  fields
    grnal.nrec;
end;

handleevent
  cminit:
  {
     myFace:=new(iAdresPoluchit);
     adres:=iaddress.GetFullAddressInd(persnrec);
     closeinterface(0);
     abort;
     exit;
  }
end;

#undef ComponentVersion
end.

Почему?

[edward_K]

в GetFullAddressInd наверное все таки нужно бы запихивать addressn.nrec

[RAJAH]

Я запихивал persons.liveaddr. Название переменной просто старое осталось. Раньше-то работало, вот что непонятно!..

[RAJAH]

Какие ещё мысли будут?

[Ged]

закоменте броуз

[RAJAH]

Закомментил. Ругнулся при компиляции, что GRNAL нигде не используется, но в adres ничего не закинулось.

[Ged]

так по closeinterface(0) окно же начало закрываться?
а по поводу не вывода см.

в GetFullAddressInd наверное все таки нужно бы запихивать addressn.nrec

вот примерчик:

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

#include AdrFunc.vih

interface AdresPoluchit , AlwaysReturn
var
  sAdres: string;
  cAddrNrec: comp;

#include AdrFunc.var

parameters
   sAdres
 , cAddrNrec;

handleevent
  cmInit:
  {
   sAdres:=iAdrFunc.GetFullAddressInd(cAddrNrec);
   CloseInterface(cmOk);
  }
end;
end.
/// протестируем ардэхой
.Form AAA
.Ard
.Var
 sTmp:String;
.EndVar
.Create view vPers
As Select * from Persons
;
.{table 'vPers.Persons'
.Begin
  sTmp:='';
  RunInterface(AdresPoluchit,sTmp,Persons.LIVEADDR);
End.
.Fields
 Persons.Tabnmb
 Persons.Fio
 sTmp
.EndFields
@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ^
.}
.EndForm

[RAJAH]

Не получилось! Переменная sTmp - пустая. А разве persons.liveaddr не на addressn.nrec ссылается? А с CloseInterface мне alwaysreturn и abort-exit уже помогли...

[Ged]

Persons.LiveAddr ссылается на AddressN
в ардэхе вывидите для полноты картины Persons.LIVEADDR
скопируйте не нулевое значение, найдите в AddressN эту запись.
Может у вас просто ссылки не валидные.

alwaysreturn вообщето нужна когда фейс прекращает работу по abort