![]() |
![]() |
MaximGr 30.09.2004 - 16:48 | сабж |
Неудачник 1 - 30.09.2004 - 17:02 |
myObject = CreateObject("AddIn.V7SysInfo") к кому стучался? не открывают? |
MaximGr 2 - 30.09.2004 - 17:07 | пример из Делфей в студию можн |
BigHarry 3 - 30.09.2004 - 17:12 | Неужели в Дельфах на родных компонентах не выехать? |
Неудачник 4 - 30.09.2004 - 17:15 |
2 в 1 пример из дельфей :) что сделать то хочешь? 3 скоро все программы будут работать использую модули, разработанные фирмой 1С. |
MaximGr 5 - 30.09.2004 - 17:15 | да мне надо из нее функции для XML парсера. Просто на 1С синхронизации надо из внешних баз выгрузку делать |
Неудачник 6 - 30.09.2004 - 17:27 |
5 что то в твоей задаче лишнее или 1С или Delphi, скореее всего второе :) посмотри http://chin.dataltd.ru/index2.php?id=1c_xml |
MaximGr 7 - 30.09.2004 - 17:32 | Делать нужно на делфях, поэтому я хотел использовать уже готовую библиотеку для работы с парсером, тем более загружать надо будет в 1С |
Гейтс 8 - 30.09.2004 - 17:43 |
типа этого uses ..., ActiveX, ComObj, ADDINLIB; procedure TForm1.Button1Click(Sender: TObject); var s : IInterface; l : ILanguageExtender; g : TGUID; w : olevariant; //результат функции p : PSafeArray; //массив параметров m : integer; begin g := ProgIDToClassID('AddIn.V7SysInfo'); s := CreateCOMObject(g); s._AddRef; s.QueryInterface(IID_ILanguageExtender,l); if l.FindMethod('СоздатьGUID',m) = S_OK then begin l.CallAsFunc(m,w,p); ShowMessage(w); end; s._Release; end; |
MaximGr 9 - 30.09.2004 - 17:45 | да что-то типа этого спасибо сейчас попробую |
Гейтс 10 - 30.09.2004 - 17:46 |
только нафиг это надо что в Delphi парсеров нету? по моему есть |
MaximGr 11 - 30.09.2004 - 17:54 | Да хочется единый стандарт сделать как для справочников из 1С так и для внешних |
Гейтс 12 - 30.09.2004 - 17:58 | не понятно, причем тут парсер, но бох помощь :) |
MaximGr 13 - 30.09.2004 - 18:02 | Спасибо всем за помощь буду |