(495) 925-0049, ITShop интернет-магазин 229-0436, Учебный Центр 925-0049
  Главная страница Карта сайта Контакты
Поиск
Вход
Регистрация
Рассылки сайта
 
 
 
 

Конференция "Gupta/Centura (Gupta Technologies)"

Обсуждение вопросов, связанных с компанией Unify/Gupta (Gupta Technologies), ее продуктами Team Developer, SQLBase и др.

 
 
Добавить сообщение »

Тема: COM сервер

Автор:  Serge Дата: 14.04.2003 14:15
Dmitriy пишет 24.03:
>Привет!
>
>Имеется СОМ сервер написанный на Дельфи, все преклрасно работает.
>
>Задача написать клиента на Centura 2.1
>
>код вызова.
>
>If (dfLogin != '' and dfPassword != '')
> Set LoginUser = dfLogin
> Set bOk = vName.SetString( LoginUser )
> Set PasswordUser = dfPassword
> Set bOk = vPassword.SetString( PasswordUser )
> Set host = 'dmitriy'
> Call ServerDM.CreateEx(host)
> If IServerDM.LoginDB(vName, vPassword, vUserId)
> ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ = False
>
> Call SalMessageBox('Yes','',MB_Ok)
> Else
> Call SalMessageBox('No','',MB_Ok)
> Set bOk = vUserId.GetString( sUserId )
> Call SalMessageBox( sUserId, '', MB_Ok )
> Call ServerDM.Release()
>
>Почему, ведь vName и vPassword содержат данные типа вариант, что здесь не так?
>
>Function: LoginDB
> Description:
> Returns
> Boolean:
> Parameters
> FunctionalVar: Name
> Class: Variant
> FunctionalVar: Password
> Class: Variant
> FunctionalVar: returnValue
> Class: Variant
> Static Variables
> Local variables
> Boolean: tmpret
> Actions
> Call PushVariant(Name)
> Call PushVariant(Password)
> Set tmpret = Invoke("LoginDB", INVOKE_FUNCTION)
> Call PopVariant(-1, returnValue)
> Call FlushArgs()
> Return tmpret
>

По-моему все правильно. Для работы с переменными
типа Variant , дла передачи их в качестве параметра
используется метод SetString. Что не работает,
в чем собственно вопрос и проблема?
Сергей Алексеевич
Ответить на сообщение »
 
Автор:  Dmitriy Дата: 24.03.2003 17:20
Привет!

Имеется СОМ сервер написанный на Дельфи, все преклрасно работает.

Задача написать клиента на Centura 2.1

код вызова.

If (dfLogin != '' and dfPassword != '')
Set LoginUser = dfLogin
Set bOk = vName.SetString( LoginUser )
Set PasswordUser = dfPassword
Set bOk = vPassword.SetString( PasswordUser )
Set host = 'dmitriy'
Call ServerDM.CreateEx(host)
If IServerDM.LoginDB(vName, vPassword, vUserId)
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ = False

Call SalMessageBox('Yes','',MB_Ok)
Else
Call SalMessageBox('No','',MB_Ok)
Set bOk = vUserId.GetString( sUserId )
Call SalMessageBox( sUserId, '', MB_Ok )
Call ServerDM.Release()

Почему, ведь vName и vPassword содержат данные типа вариант, что здесь не так?

Function: LoginDB
Description:
Returns
Boolean:
Parameters
FunctionalVar: Name
Class: Variant
FunctionalVar: Password
Class: Variant
FunctionalVar: returnValue
Class: Variant
Static Variables
Local variables
Boolean: tmpret
Actions
Call PushVariant(Name)
Call PushVariant(Password)
Set tmpret = Invoke("LoginDB", INVOKE_FUNCTION)
Call PopVariant(-1, returnValue)
Call FlushArgs()
Return tmpret
Ответить на сообщение »
 

Добавить сообщение »

 Распечатать »
 Правила публикации »
   
 Рекомендовать »  
 

Магазин программного обеспечения   WWW.ITSHOP.RU
Q 1.0 for Windows Single User
SmartBear TestComplete Platform - Node-Locked License - (Includes 1 year Maintenance)
IBM Domino Enterprise Server Processor Value Unit (PVU) License + SW Subscription & Support 12 Months
dbForge Studio for MySQL Professional license
ESET NOD32 Smart Security - лицензия на 1 год на 3ПК или продление на 20 месяцев, Ключ
 
Другие предложения...
 
Курсы обучения   WWW.ITSHOP.RU
 
Другие предложения...
 
Магазин сертификационных экзаменов   WWW.ITSHOP.RU
 
Другие предложения...
 
3D Принтеры | 3D Печать   WWW.ITSHOP.RU
 
Другие предложения...
 
Новости по теме
 
Рассылки Subscribe.ru
Информационные технологии: CASE, RAD, ERP, OLAP
Новости ITShop.ru - ПО, книги, документация, курсы обучения
Программирование на Microsoft Access
CASE-технологии
СУБД Oracle "с нуля"
Утиль - лучший бесплатный софт для Windows
Мастерская программиста
 
Статьи по теме
 
Новинки каталога Download
 
Исходники
 
Документация
 
Обсуждения в форумах
ODBC: dBase CREATE TABLE... (9)
Есть проблема Из программы на CTD 2.0 PTF3 подключаемся к DBF-файлам Set SqlDatabase='Файлы...
 
TD 6.2 SP4 Ошибка при установке (5)
Добрый день! Кто-нибудь устанавливал TD 6.2 SP4 на Win7? В конце процесса установке выдаётся...
 
PMC (4)
Подскажите как формируется Product Media Code или ключик к SqlWindows 510 ( CTD510)
 
Работа клиента Сеntura с клиентами Оракл 10, тонким клиентом, net client (3)
Есть клиент, написанный на Centura, исходников нет Работает только с клиентами Оракл 8 и 9 Ни...
 
подключение к Centura SQLBase server 6.1.2 (3)
есть приложение (клиент-банк) с вышеуказанной базой. В приложении для подключения к базе...
 
 
 



    
rambler's top100 Rambler's Top100