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

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

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

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

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

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

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

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

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

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

Нет

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

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

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

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

9

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

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

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

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

11

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

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

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

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