Галактика в вопросах и ответах

это собственный фейс... Сделал из реса при помощи AtlIDL сделал файл FULL.idl // // // import "unknwn.idl", "oaidl.idl"; // // // [ object, uuid(CA477FE3-A426-4F3E-949E-8EDF6725F4EB), version (1.0), pointer_default(unique) ] interface IUsers : IUnknown { HRESULT SendMessageToActi...

Подскажите вчем может проблема имею unit Gal_COM; {$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. {$WARN SYMBOL_PLATFORM OFF} {$WRITEABLECONST ON} {$VARPROPSETTER ON} interface uses activeX,Windows, Messages, SysUtils, Variants, Classes, StdVCL, Graphics, Controls, Forms,...

да нет, дело вовсе не в этом. передавать имя компаненты я тоже пробовал. только дело не доходит до анализа содержимого в переданном параметре так как система отказывается принимать этот параметр со словами COMException "несовпадение типов" это очень плохо придется городить огород 1. созда...

А что конкретно интересует по этому вопросу?

Нет, у меня этот кусок выброшен, без него всё нормально работает. VIH от 2006 года, L_MCU может, не самый последний, но один из последних. Дело, скорее всего, в директивах компиляции. Для поиска причины предлагаю поэтапно упрощать текст, выкидывать все #doc/#ifdef/#ifndef и оставлять только полезны...

Там много #ifdef и #ifndef встречается, м. б. из-за них какой-нибудь нужный кусок выпадает (или наоборот, ненужный компилируется). Особенно обратите внимание на #ifdef GAL7_1 . Да с этим все понятно единственный кусок который там не компилирую это #ifdef ComponentVersionInDict #include iKatMC.vih #...

Из дока ObjInterface L_MCU::oObjMC_Obj1 Объектный интерфейс описывает методы создания МЦ Методы Function KatMC_Default (var _wMC : TKatMC_p; isMessErr : Boolean) : Boolean; Создает новый буфер KatMC Function KatMC_Insert (var _wMC : TKatMC_p; isSetBarKod : Boolean; isMessErr : Boolean) : Comp; Добав...

у меня март 2008

У кого есть свежий ASDK пришлите пожалуйста!
evchic @ mail . ru

Все спасибо функции не нужны разобрался сам!
Спасибо за пример

Max_Fin
можно пример функции myxml_GetNode(xmlDocID, 'ALGDATASET') и GetValueFld(xmlRowID_Alg_SubNodes)

пример посмотрю

// Xml_Func.pas function XML_New : longint; external 'G_ExpImp.dll'; function XML_LoadDoc (longint, string) : boolean; external 'G_ExpImp.dll'; function XML_FindFirstDoc (longint, longint, comp, comp) : longint; external 'G_ExpImp.dll'; function XML_FindNextDoc (longint, longint, comp, comp) : long...

У кого-нибудь есть пример VIP как получить данные из файла xml...

вотв чем проблема

в доке Iface As Variant а нужно Object