powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Caché, Ensemble, DeepSee, MiniM, IRIS, GT.M [игнор отключен] [закрыт для гостей] / ПРОБЛЕМА
15 сообщений из 15, страница 1 из 1
ПРОБЛЕМА
    #36198847
stroydog
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
доброго дня!

Подскажите пожалуйста как обратиться к методу класса из Дельфи.

Спасибо.
...
Рейтинг: 0 / 0
ПРОБЛЕМА
    #36199002
stroydog
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
собственно проблема в том как написать строчку которая будет запускать на сервере процедуру создания таблицы.

спасибо
...
Рейтинг: 0 / 0
ПРОБЛЕМА
    #36199122
NMN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NMN
Гость
var connect,obj: Variant;

connect:=createoleobject('cacheobject.factory');
connect.connect('cn_iptcp:127.0.0.1[1972]:WRK'); //куда присоединяемся
obj:=connect.Static('BUH.BillPos'); //класс
obj.GetNextID; //метод класса
obj := null;
connect.disconnect;
connect:=null;

Понятно что метод класса должен быть объявлен у кащея как ClassMethod
...
Рейтинг: 0 / 0
ПРОБЛЕМА
    #36199199
stroydog
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
NMN,


огромное спасибо, про объявление класса понятно
...
Рейтинг: 0 / 0
ПРОБЛЕМА
    #36199301
stroydog
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
NMN,

а это сообщение почему вылетает, и как это побороть?
...
Рейтинг: 0 / 0
ПРОБЛЕМА
    #36200337
MasteRus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
stroydog, советую почитать учебный курс по объектам Cache' Object QuickStart http://www.intersystems.ru/education/ObjectQS.zip , в котором есть и пример работы с Delphi. Также почитать вот это сообщение на форуме: http://www.sql.ru/forum/actualthread.aspx?tid=496282&hl=dataset#4939786
...
Рейтинг: 0 / 0
ПРОБЛЕМА
    #36200339
MasteRus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Блин, там уже он удален. Вот здесь можно найти: http://window.edu.ru/window_catalog/redir?id=24027&file=ObjectQS.pdf
...
Рейтинг: 0 / 0
ПРОБЛЕМА
    #36200487
stroydog
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
NMN,

obj:=connect.Static('BUH.BillPos'); в этой строчке кроме Static какие методы можно использовать?

Спасибо
...
Рейтинг: 0 / 0
ПРОБЛЕМА
    #36201064
VadimF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Документ ObjectQuickStart с примером по Delphi, который рекомендовали почитать находится на нашем сайте в разделе "Уголок разработчика" .

Там много и других полезных материалов.

Вадим
...
Рейтинг: 0 / 0
ПРОБЛЕМА
    #36201264
stroydog
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
VadimF,

спасибо большое за то что подсказали где поруть, почитать, я уже много своих вопросов решил благодоря этой литературе, НО:

Class TEST.NewClass1 Extends %Persistent [ ClassType = persistent, ProcedureBlock ]
{

ClassMethod NewMethod1() {

&SQL(
CREATE TABLE TEST.NEWTABLE (
ID_CUSTOMER INT NOT NULL,
NAME CHAR(20) NOT NULL,
FAM CHAR(20) NOT NULL
)
)
}

код который приведен выше не работает то есть ни чего не создается.

ВОПРОС:

что я делаю не так?

спасибо
...
Рейтинг: 0 / 0
ПРОБЛЕМА
    #36201278
stroydog
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
stroydogVadimF,

спасибо большое за то что подсказали где поруть, почитать, я уже много своих вопросов решил благодоря этой литературе, НО:

Class TEST.NewClass1 Extends %Persistent [ ClassType = persistent, ProcedureBlock ]
{

ClassMethod NewMethod1() {

&SQL(
CREATE TABLE TEST.NEWTABLE (
ID_CUSTOMER INT NOT NULL,
NAME CHAR(20) NOT NULL,
FAM CHAR(20) NOT NULL
)
)
}

код который приведен выше не работает то есть ни чего не создается.

ВОПРОС:

что я делаю не так?

спасибо

все остальные запросы работают, то есть можно вставлять данные, можно удалять таблицы и столбцы,
можно добовлять столбцы, можно делать выборку.

спасибо
...
Рейтинг: 0 / 0
ПРОБЛЕМА
    #36201563
newbie'
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
stroydogVadimF,

спасибо большое за то что подсказали где поруть, почитать, я уже много своих вопросов решил благодоря этой литературе, НО:

Class TEST.NewClass1 Extends %Persistent [ ClassType = persistent, ProcedureBlock ]
{

ClassMethod NewMethod1() {

&SQL(
CREATE TABLE TEST.NEWTABLE (
ID_CUSTOMER INT NOT NULL,
NAME CHAR(20) NOT NULL,
FAM CHAR(20) NOT NULL
)
)
}

код который приведен выше не работает то есть ни чего не создается.

ВОПРОС:

что я делаю не так?

спасибо


Зависит от версии Cache, в "последних", где включена "безопасность":
[Home] > [Configuration] > [SQL Settings] - параметр SQL Security Enabled
для команды CREATE TABLE необходима привелегия %CREATE_TABLE, поэтому перед созданием таблицы нужно залогиниться пользователем c соответствующими привилегиями.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
ClassMethod NewMethod1() {
	
           DO $SYSTEM.Security.Login("_SYSTEM","SYS")

            &SQL(
	        CREATE TABLE TEST.NEWTABLE (	
                     ID_CUSTOMER INT NOT NULL,
                     NAME CHAR( 20 ) NOT NULL,
                     FAM CHAR( 20 ) NOT NULL
                     )
   )	    
}
...
Рейтинг: 0 / 0
ПРОБЛЕМА
    #36201582
Guest(666)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
stroydog,

может NAME VAR CHAR(20) NOT NULL?
...
Рейтинг: 0 / 0
ПРОБЛЕМА
    #36201751
VadimF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Есть такое понятие во встроенном SQL как Host variables.
Очень советую прочитать про них в документации .
Через SQLCODE можно понять, какая происходит ошибка.

Вадим
...
Рейтинг: 0 / 0
ПРОБЛЕМА
    #36201954
stroydog
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
огромное всем спасибо
...
Рейтинг: 0 / 0
15 сообщений из 15, страница 1 из 1
Форумы / Caché, Ensemble, DeepSee, MiniM, IRIS, GT.M [игнор отключен] [закрыт для гостей] / ПРОБЛЕМА
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]