Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.12.19;
Скачать: [xml.tar.bz2];

Вниз

Левой стороне не может быть ничего присвоено   Найти похожие ветки 

 
qwerty2   (2003-12-08 18:01) [0]

что за странная ошибка такая?
ругается на эту строчку:
VarArrayRedim(cls.OptionalProperties,vararrayhighBound(cls.OptionalProperties,1)+1);
тут и присваиваний нет никаких


 
Silver Alex   (2003-12-08 18:10) [1]


> тут и присваиваний нет никаких

а что же это, ты берешь массив cls.OptionalProperties и меняешь его размер на один больше "vararrayhighBound(cls.OptionalProperties,1)+1"


 
PVOzerski   (2003-12-08 18:21) [2]

2[1]:
Здесь-то утверждать, что делается что-то недопустимое, нельзя. Как и вообще нельзя ничего сказать. Ведь мы не знаем даже типы переменных в этом выражении.


 
qwerty2   (2003-12-09 10:22) [3]

Речь идет о том чтоб дополнить массив свойств данного объекта из ADS дополнительным свойством.

user:IADsUser;
cls : IADsClass;
...
ADsOpenObject("LDAP://Domain1/CN=Username1,OU=Otdel1,OU=Firma1,DC=ads,DC=xxx","Administrator","Pwd",ADS_SECURE_AUTHENTIC ATION,IADsUser,user);
s := user.Get_Schema;
AdsOpenObject(s,"Administrator","Pwd", ADS_SECURE_AUTHENTICATION,IADsClass, cls);
VarArrayRedim(cls.OptionalProperties,vararrayhighBound(cls.OptionalProperties,1)+1);//ошибка
cls.OptionalProperties[vararrayhighBound(cls.OptionalProperties,1)+1]:="temp";//та же ошибка

В интерфейсе IADsClass свойство OptionalProperties описано как свойство с доступом на чтение и на запись:

property OptionalProperties: OleVariant read Get_OptionalProperties write Set_OptionalProperties;
если был бы только доступ на чтение тогда такая ошибка была бы предсказуема. а так непонятно почему она вылазит.


 
Silver Alex   (2003-12-09 11:49) [4]

возможно нельзя передавать в функцию свойство обьекта, попробуй что-то типа этого

var
v: variant;
...
v:=cls.OptionalProperties;
VarArrayRedim(v,vararrayhighBound(cls.OptionalProperties,1)+1);
cls.OptionalProperties:=v;



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.12.19;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.011 c
6-62185
Dmitry V. Averuanov
2003-10-23 15:40
2003.12.19
Wake up on Lan


3-61939
Kraks
2003-11-19 08:27
2003.12.19
ADO, Access и защищённая база


1-62027
Донской
2003-12-05 19:54
2003.12.19
Canvas не позволяет рисовать - через 30 минут работы :-((


1-62121
Nata Kirhar
2003-12-08 11:23
2003.12.19
Просмоторщик для файлов word


14-62212
SkyRanger
2003-11-20 08:42
2003.12.19
Немного о политике...





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский