Платные хостинги     Раскрутка сайта     Книги по программированию

Позднее связывание, Динамически вызывать методы...

- Друзья! помогите плз. весь запутался...1. создаю обьект:Код var Srv: Variant;begin  Srv := CreateOleObject('xApp.Server');highlightSyntax('delphiYwZTJi','delphi');2. надо узнать значение свойства этого оъекта, если имя этого свойства, ну скажем, в переменной xName: String;

- Ну и делаешь тогда такой вызов(если я тебя правильно понял):Код ShowMessage(Srv.xName)highlightSyntax('delphi5NWI1M','delphi'); Это сообщение отредактировал <Spawn> - 5.11.2003, 15:24

- xName - это не свойство Srv, это просто переменная.xName := 'Caption';мне надо ShowMessage(Srv.[Имя свойства])[Имя свойства] = xName

- бестолково наверно вопрос задал. жаль что никто не подсказал.напишу что нарыл, вдруг кому понадобится... (принципиально, без оптимизации и украшений)Код var  xParam: PString;  xCallDesc: PCallDesc;begin  Srv := CreateOleObject('xApp.Server');  New(xParam);  xParam^ := edtServerName.Text; // параметр  xCallDesc := GetMemory(SizeOf(TCallDesc));  with xCallDesc^ do  begin    ArgCount := 1; // кол-во параметров    CallType := 1;    NamedArgCount := 0;    ArgTypes[0] := ord('H'); //имя процедуры    ArgTypes[1] := ord('C');    ArgTypes[2] := ord('O');    ArgTypes[3] := ord('N');    ArgTypes[4] := ord('N');    ArgTypes[5] := ord('E');    ArgTypes[6] := ord('C');    ArgTypes[7] := ord('T');    ArgTypes[8] := 0;  end;  VarDispProc(nil {если нужно возвращаемое значение (PVariant)}, Srv, xCallDesc, xParam);end;highlightSyntax('delphiNTNmOW','delphi');всеравно спасибо

Интернет казино     Онлайн игры     Увеличение члена     Купить DVD