Тема: Регистрация 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.