• На форуме с 12 февраля 2016
  • Сообщений: 61

Тема: Регистрация CSDN.Dll для 64 битного приложения

Компилятор: Delphi XE-7
TCS v.5.7
Как зарегистрировать библиотеку для 64 битного приложения?

  • Откуда: Новосибирск
  • На форуме с 30 сентября 2003
  • Сообщений: 4,310

Re: Регистрация CSDN.Dll для 64 битного приложения

Никак. АПИ для x64 нет.  Можно использовать TCS_All.exe и TCS_Tpp.exe как com-server, тогда без разницы будет.

Либо компилить свое приложения как x32

  • На форуме с 12 февраля 2016
  • Сообщений: 61

Re: Регистрация CSDN.Dll для 64 битного приложения

А можете пример написать?

  • Откуда: Новосибирск
  • На форуме с 30 сентября 2003
  • Сообщений: 4,310

Re: Регистрация CSDN.Dll для 64 битного приложения

использование TCS-API (x32)

'Создание АПИ
Set TCSObj = CreateObject( "CSDN.TCS" )
Set TCS = TCSObj.Login


'Сам пример (код одинаковый)
If TCS.NMkClasses.RunModuleForSelect( "Выберите класс", False )>0 Then
  Set NMk = TCS.Nomenclatures( TCS.NMkClasses.Properties("ID").AsInteger )
  If Nmk.RunModuleForSelect( "Выберите номенклатуру", False )>0 Then
    Set Spec = Nmk.Properties("NmkSpecification").AsIDispatch
    i = Spec.ShowModal( "Спецификация" )
  End If
End If

Set TCS = Nothing
Set TCSObj = Nothing

Использование TCS- Comserver (x32-x64), имеет ряд ограничений, не все работает (в частности не работают контролы).

'Создание АПИ
Set TCSObj = CreateObject( "TCS.TCSApi" )
Set TCS = TCSObj.TCSApi

'Сам пример (код одинаковый)
If TCS.NMkClasses.RunModuleForSelect( "Выберите класс", False )>0 Then
  Set NMk = TCS.Nomenclatures( TCS.NMkClasses.Properties("ID").AsInteger )
  If Nmk.RunModuleForSelect( "Выберите номенклатуру", False )>0 Then
    Set Spec = Nmk.Properties("NmkSpecification").AsIDispatch
    i = Spec.ShowModal( "Спецификация" )
  End If
End If
Спасибо сказали: Андрей Солдатов1

  • На форуме с 12 февраля 2016
  • Сообщений: 61

Re: Регистрация CSDN.Dll для 64 битного приложения

Спасибо,работает,но теперь он всегда задает вопрос о подключении к com server?Можно ли убрать этот вопрос?


Олег Зырянов пишет:

использование TCS-API (x32)

'Создание АПИ
Set TCSObj = CreateObject( "CSDN.TCS" )
Set TCS = TCSObj.Login


'Сам пример (код одинаковый)
If TCS.NMkClasses.RunModuleForSelect( "Выберите класс", False )>0 Then
  Set NMk = TCS.Nomenclatures( TCS.NMkClasses.Properties("ID").AsInteger )
  If Nmk.RunModuleForSelect( "Выберите номенклатуру", False )>0 Then
    Set Spec = Nmk.Properties("NmkSpecification").AsIDispatch
    i = Spec.ShowModal( "Спецификация" )
  End If
End If

Set TCS = Nothing
Set TCSObj = Nothing

Использование TCS- Comserver (x32-x64), имеет ряд ограничений, не все работает (в частности не работают контролы).

'Создание АПИ
Set TCSObj = CreateObject( "TCS.TCSApi" )
Set TCS = TCSObj.TCSApi

'Сам пример (код одинаковый)
If TCS.NMkClasses.RunModuleForSelect( "Выберите класс", False )>0 Then
  Set NMk = TCS.Nomenclatures( TCS.NMkClasses.Properties("ID").AsInteger )
  If Nmk.RunModuleForSelect( "Выберите номенклатуру", False )>0 Then
    Set Spec = Nmk.Properties("NmkSpecification").AsIDispatch
    i = Spec.ShowModal( "Спецификация" )
  End If
End If

  • Откуда: Новосибирск
  • На форуме с 30 сентября 2003
  • Сообщений: 4,310

Re: Регистрация CSDN.Dll для 64 битного приложения

Нет

  • На форуме с 12 февраля 2016
  • Сообщений: 61

Re: Регистрация CSDN.Dll для 64 битного приложения

А для чего этот вопрос задается,если мы уже подключаемся к com server?

  • Откуда: Новосибирск
  • На форуме с 30 сентября 2003
  • Сообщений: 4,310

Re: Регистрация CSDN.Dll для 64 битного приложения

Разрешение на подключение к работающему TechnologiCS.

  • Анна
  • Участник
  • Неактивен
  • На форуме с 17 июля 2015
  • Сообщений: 16

Re: Регистрация CSDN.Dll для 64 битного приложения

Здравствуйте! Подскажите пожалуйста, при подключении через Set TCS = CreateObject("TCS.TCSApi")
Set TCSApp = TCS.TCSApi, почему не работает функция поиска документов в архиве, SingleDoc ?

  • Откуда: Новосибирск
  • На форуме с 30 сентября 2003
  • Сообщений: 4,310

Re: Регистрация CSDN.Dll для 64 битного приложения

Здравствуйте!
А подробнее можно? В чем это проявляется и где код по самому поиску документов?

  • Анна
  • Участник
  • Неактивен
  • На форуме с 17 июля 2015
  • Сообщений: 16

Re: Регистрация CSDN.Dll для 64 битного приложения

Олег Зырянов пишет:

Здравствуйте!
А подробнее можно? В чем это проявляется и где код по самому поиску документов?

Сегодня все заработало, видимо глюк программы был. Спасибо!