ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Caché, Ensemble, DeepSee, MiniM, IRIS, GT.M [игнор отключен] [закрыт для гостей] / Cache+Delphi5
46 сообщений из 46, показаны все 2 страниц
  все  
Cache+Delphi5
    #34948410
NewWorld
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NewWorld
Гость
Доброе время суток!! пoмогите пожалуйста решить проблемку...
Есть глобальная переменная в Cache' в которой храниться очень много данных (сам файл весит около 4-5гиг). Мне нужно перенести частично все данные из глобали Cache в файл любого формата и обратно. Эт все необходимо осуществить на Delphi. Помогите Пожалуйста!!!!
...
Рейтинг: 0 / 0
19.11.2007, 11:59
| Ответить | Цитировать | Написать  
Cache+Delphi5
    #34949027
Фотография krvsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
krvsa
Участник
Как вариант, напиши метод который скопирует нужные тебе узлы во временный глобал и запишет его в файл...
Как вызвать кащейский метод из Дельфи описано в OQS.
----------
Cache for Windows NT (Intel) 5.0.20 (Build 6305) Fri Sep 16 2005 11:54:10 EDT
...
Рейтинг: 0 / 0
19.11.2007, 14:40
| Ответить | Цитировать | Написать  
Cache+Delphi5
    #34949900
VadimF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VadimF
Участник
Если файл нужно получить на сервере, то да, а если на клиенте, наверное, через Delphi придется действовать.

Вот информация о вариантах взаимодействия с Delphi .

Вадим
...
Рейтинг: 0 / 0
19.11.2007, 18:05
| Ответить | Цитировать | Написать  
Cache+Delphi5
    #34951585
NewWorld
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NewWorld
Гость
krvsa Как вариант, напиши метод который скопирует нужные тебе узлы во временный глобал и запишет его в файл...
Как вызвать кащейский метод из Дельфи описано в OQS.
я еще плохо знаю программирование... как это правильно можно реализовать в коде? помогите пожалуйста...

Вадим Вот информация о вариантах взаимодействия с Delphi.
к сожелению, ссылка не работает...
...
Рейтинг: 0 / 0
20.11.2007, 12:55
| Ответить | Цитировать | Написать  
Cache+Delphi5
    #34952033
Фотография krvsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
krvsa
Участник
NewWorldкак это правильно можно реализовать в коде?
Нечто такое
Код: plaintext
1.
2.
3.
4.
5.
6.
 m ^tmp( 1 )=^Data( 1 )
 m ^tmp("Info")=^Data("Info")
 m ^tmp("Home","OOO NPC Air")=^Data("Home","OOO NPC Air")
...
 s file="c:\box\data.xml"
 s ok=$system.OBJ.Export("tmp.gbl",file)
...
...
Рейтинг: 0 / 0
20.11.2007, 14:28
| Ответить | Цитировать | Написать  
Cache+Delphi5
    #34952053
NoGot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NoGot
Участник
Толку то? Если человек даже ссылку поправить не в состоянии, думаешь он разберется в этом коде?
...
Рейтинг: 0 / 0
20.11.2007, 14:33
| Ответить | Цитировать | Написать  
Cache+Delphi5
    #34952184
VadimF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VadimF
Участник
Если со ссылкой не получилось в явном виде добавлю информацию о Cache' и Delphi:


Высылаю Вам материалы по Delphi.
Если Вы стартуете новый проект, советую убедиться, что Вы используете последнюю версию Cache' 2007.1.

Информация про Delphi:

В Cache' реализована концепция Единой архитектуры данных. К одним и тем же данным, хранящимся под управлением сервера многомерных данных Cache' есть три способа доступа: прямой (на уровне многомерных массивов Cache'), объектный и реляционный.

Так как с реляционным доступом я думаю, Вы знакомы, стоит обратить внимание на поддержку объектов (рекомендую посмотреть на учебный курс по объектам Cache' Object QuickStart http://www.intersystems.ru/education/ObjectQS.zip, в котором есть и пример работы с Delphi, и на раздел Using Cache' Objects документации Cache') и работу с многомерными массивами Cache' (информацию можно найти в документации: Developing Applications with Cache' - Using Cache' Multi-Dimensional Storage).

При установке Cache' автоматически устанавливается документация. На сайте InterSystems есть ссылка на On-line версию документации (http://docs.intersystems.com/cache20071/csp/docbook/DocBook.UI.Page.cls).

Материалы про разные типы доступа к Cache' стоит просмотреть независимо от того, какой интерфейс Вы будете использовать при разработке.

Вы можете использовать объектные интерфейсы Cache'. ActiveX-интерфейc позволяет Вам работать из любого ActiveX-совместимого инструментального средства (в том числе и Delphi) непосредственно с классами Cache'. Примеры Вы сможете найти в курсе Object QuickStart на нашем сайте (http://www.intersystems.ru/education/ObjectQS.zip).

Есть еще интересный подход, когда экспортируют из Cache' ODL классов и используют раннее связывание, но это большая отдельная тема ...

И Cache', и Delphi поддерживают работу с Web-сервисами. Вы можете работать с классами Cache' из Delphi через SOAP-интерфейс.
Информацию о поддержке Web-сервисов в Cache' Вы можете найти в документации Cache' (Раздел Using SOAP and Web Services with Cache').

Вы можете использовать реляционные интерфейсы и работать с Cache' из Delphi через ODBC.
При этом, можно использовать как BDE, так и ADO компоненты. Кроме стандартных компонент Delphi, Вы можете использовать компоненты третих фирм. Например, DBExpress-компоненты компании EasySoft (www.easysoft.com).

Из программы на Delphi Вы можете обращаться непосредственно к многомерным массивам Cache' и запускать серверные программы с помощью компонента VisM (http://docs.intersystems.com/cache20071/csp/docbook/DocBook.UI.Page.cls?KEY=GCD_basics).

В файловых архивах почтовой конференции Cache_RU можно найти дополнительную информацию по взаимодействию Delphi и Cache':
- Пример на Delphi из учебного курса Pattaya (http://groups.yahoo.com/group/cache_ru/files/PattayaDelphi.zip).
- Cache' класс %XML.MyBaseDataSet, который позволяет на основе запроса Cache' получить Borland MyBase (DataSnap) XML DataSet (http://groups.yahoo.com/group/cache_ru/files/MyBaseDataSet.zip).

Вадим
...
Рейтинг: 0 / 0
20.11.2007, 15:02
| Ответить | Цитировать | Написать  
Cache+Delphi5
    #34952194
NewWorld
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NewWorld
Гость
с сылкой разобралась....
а вот код нужен не на каше а на делфи.... пожалуйста.
...
Рейтинг: 0 / 0
20.11.2007, 15:04
| Ответить | Цитировать | Написать  
Cache+Delphi5
    #34952333
Фотография krvsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
krvsa
Участник
NewWorldкод нужен не на каше а на делфи....
С этим извиняй... Дельфями у нас другой человек занивается. :) Я ему квикстарт дал почитать этого ему хватило.
...
Рейтинг: 0 / 0
20.11.2007, 15:26
| Ответить | Цитировать | Написать  
Cache+Delphi5
    #34952678
NewWorld
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NewWorld
Гость
а к кому можно обратиться?
...
Рейтинг: 0 / 0
20.11.2007, 16:36
| Ответить | Цитировать | Написать  
Cache+Delphi5
    #34953002
Игорь Сойников
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Сойников
Участник
Используй компоненту VisM примерно так:

procedure TForm1.Button1Click(Sender: TObject);
var la : integer;
a : string;
fD : TFileStream;
begin
a := '^AAA(1)';
la := Length(a);
VisM1.P1 := a;
while copy(VisM1.P1,1,la) = a do begin
VisM1.Execute('S P1=$Q(@P1),P2="" I P1''="" S P2=@P1');
fD.WriteLn(VisM1.P1+ #9 + VisM1.P2;)
end;
end;
...
Рейтинг: 0 / 0
20.11.2007, 17:52
| Ответить | Цитировать | Написать  
Cache+Delphi5
    #34953983
Фотография krvsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
krvsa
Участник
NewWorldа к кому можно обратиться?
Скачать таки этот ОбжектКвикСтарт и таки его прочитать... :)
...
Рейтинг: 0 / 0
21.11.2007, 09:01
| Ответить | Цитировать | Написать  
Cache+Delphi5
    #34954157
NewWorld
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NewWorld
Гость
Игорь СойниковИспользуй компоненту VisM примерно так:

procedure TForm1.Button1Click(Sender: TObject);
var la : integer;
a : string;
fD : TFileStream;
begin
a := '^AAA(1)';
la := Length(a);
VisM1.P1 := a;
while copy(VisM1.P1,1,la) = a do begin
VisM1.Execute('S P1=$Q(@P1),P2="" I P1''="" S P2=@P1');
fD.WriteLn(VisM1.P1+ #9 + VisM1.P2;)
end;
end;

подключение происходит, а затем ошибка : "I/O error 103" ...
у себя изменила только на свою функцию '^FP("Spr",PrName)'
и вместо "fD.WriteLn(VisM1.P1+ #9 + VisM1.P2;)" изменила на "WriteLn(VisM1.P1+ #9 + VisM1.P2);"
из-за чего может быть ошибка, из-за списка...?? ((
...
Рейтинг: 0 / 0
21.11.2007, 10:07
| Ответить | Цитировать | Написать  
Cache+Delphi5
    #34954415
Игорь Сойников
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Сойников
Участник
Писал в спешке у FileStream нет метода WriteLn только Write(буфер, размер буфера) см.Help
...
Рейтинг: 0 / 0
21.11.2007, 11:02
| Ответить | Цитировать | Написать  
Cache+Delphi5
    #34954740
NewWorld
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NewWorld
Гость
спасибо огромнеешее!!!!! запись в файл происходит!!! :)
а еще один вопросик тоже самое только наоборот т.е. запись из файла в переменную каше?
...
Рейтинг: 0 / 0
21.11.2007, 12:02
| Ответить | Цитировать | Написать  
Cache+Delphi5
    #34954886
NewWorld
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NewWorld
Гость
эээээээээх...не то оно делает....
в файл записывается строка "а" т.е. название переменной.
procedure TFmLoad.Button1Click(Sender: TObject);
var la : integer;
a : string;
F : TFileStream;
begin

if FileExists('test.dat')
then f:=TFileStream.Create('test.dat',fmOpenWrite+fmShareDenyNone)
else f:=TFileStream.Create('test.dat',fmCreate);

a := '^FP("Dt",PrName)';
la := Length(a);
VisM1.P1 := a;
while copy(VisM1.P1,1,la) = a do
begin
VisM1.Execute('SetSM^Ft');
F.Write(pchar(a)^,length(a));
end;
end;

в файл записывается " ^FP("Dt",PrName)^FP("Dt",PrName)^FP("Dt",PrName)^FP("Dt",PrName).. " и так весь файл... (((
...
Рейтинг: 0 / 0
21.11.2007, 12:32
| Ответить | Цитировать | Написать  
Cache+Delphi5
    #34955570
Игорь Сойников
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Сойников
Участник
естественно т.к. возвращаются переменные от P0 до P9.
по моему примеру желательно сделать так:
a - изменять нельзя

b := VisM1.P1; // это индекс (ссылка на глобаль)
c := VisM1.P2; // это содержимое
запись должна иметь формат (длина индекса)_индекс_(длина данных)_содержимое
var
lb : word;

lc : word;
...
Рейтинг: 0 / 0
21.11.2007, 15:02
| Ответить | Цитировать | Написать  
Cache+Delphi5
    #34955582
Игорь Сойников
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Сойников
Участник
var lb,lc : word; //
lb := length(b);
lc := length(c);

buf := lb + b + lc + c; /не забудте про преобразование;

write(buf, length(buf);
...
Рейтинг: 0 / 0
21.11.2007, 15:05
| Ответить | Цитировать | Написать  
Cache+Delphi5
    #34957299
NewWorld
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NewWorld
Гость
спасибо огромное, сейчас буду пробывать...
...
Рейтинг: 0 / 0
22.11.2007, 10:03
| Ответить | Цитировать | Написать  
Cache+Delphi5
    #34958069
NewWorld
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NewWorld
Гость
вот вызываю...

procedure TFmLoad.Button1Click(Sender: TObject);
var
la : integer;
lb,lc : word;
a,b,c: string;
F : TFileStream;
buf : PChar;
begin
if FileExists('test.dat')
then f:=TFileStream.Create('test.dat',fmOpenWrite+fmShareDenyNone)
else f:=TFileStream.Create('test.dat',fmCreate);

a := '^FP("MorionSpr",PrName)';
VisM1.P1:='^FP("Spr")';
b := VisM1.P1;
VisM1.P2:='PrName';
c := VisM1.P2;
la := Length(a);
lb := length(b);
lc := length(c);

VisM1.P1 := a;
while copy(VisM1.P1,1,la) = a do
begin
VisM1.Execute('SetSM^Ft');
buf := StrToPChar(IntToStr(lb) + b + IntToStr(lc) + c);
F.Write(buf, length(buf));
end;
ShowMessage('Çàïèñü äàííûõ â ôàéë çàâåðøåí.');
end;

а в файл записывается непонятно что...
аAЊ AЊ а@Њ hх ¬^B 8ЊBЊ AЊ а@Њ hх ¬^B 8dCЊ AЊ а@Њ hх ¬^B 8<DЊ AЊ а@Њ hх ¬^B 8EЊ AЊ а@Њ hх ¬^B 8мEЊ AЊ а@Њ hх ¬^B 8ДFЊ AЊ а@Њ hх ¬^B 8њGЊ AЊ а@Њ hх ¬^B 8tHЊ AЊ а@Њ hх ¬^B 8LIЊ AЊ а@Њ hх ¬^B 8$JЊ AЊ а@Њ hх ¬^B 8ьJЊ AЊ а@Њ hх ¬^B 8ФKЊ AЊ а@Њ hх ¬^B 8¬LЊ AЊ а@Њ hх ¬^B 8„MЊ AЊ а@Њ hх ¬^B 8\NЊ AЊ а@Њ hх ¬^B 84OЊ AЊ а@Њ hх ¬^B 8PЊ AЊ а@Њ hх ¬^B 8дPЊ
и.т.д.

че делать?? :((
...
Рейтинг: 0 / 0
22.11.2007, 13:20
| Ответить | Цитировать | Написать  
Cache+Delphi5
    #34958083
NewWorld
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NewWorld
Гость
или еще так....

мAЊ$AЊAЊа@Њ
hх¬^B˜BЊ$AЊAЊа@Њ
hх¬^BpCЊ$AЊAЊа@Њ
hх¬^BHDЊ$AЊAЊа@Њ
hх¬^B EЊ$AЊAЊа@Њ
hх¬^BшEЊ$AЊAЊа@Њ
hх¬^BРFЊ$AЊAЊа@Њ
hх¬^BЁGЊ$AЊAЊа@Њ
hх¬^BЂHЊ$AЊAЊа@Њ
hх¬^BXIЊ$AЊAЊа@Њ
hх¬^B0JЊ$AЊAЊа@Њ
hх¬^BKЊ$AЊAЊа@Њ
hх¬^BаKЊ$AЊAЊа@Њ
hх¬^BёLЊ$AЊAЊа@Њ
hх¬^BђMЊ$AЊAЊа@Њ
hх¬^BhNЊ$AЊAЊа@Њ
hх¬^B@OЊ$AЊAЊа@Њ
hх¬^BPЊ$AЊAЊа@Њ

(
...
Рейтинг: 0 / 0
22.11.2007, 13:23
| Ответить | Цитировать | Написать  
Cache+Delphi5
    #34958164
Игорь Сойников
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Сойников
Участник
У Вас случайно в Cache не Unicode?
...
Рейтинг: 0 / 0
22.11.2007, 13:43
| Ответить | Цитировать | Написать  
Cache+Delphi5
    #34958197
Игорь Сойников
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Сойников
Участник
Вы же как присвоили первоначальные значения для a и b так их и не изменяете после выполнения программы в Cache!!!
...
Рейтинг: 0 / 0
22.11.2007, 13:51
| Ответить | Цитировать | Написать  
Cache+Delphi5
    #34958284
NewWorld
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NewWorld
Гость
да... так а если их обратно из файла в глобаль... уже не получиться?
...
Рейтинг: 0 / 0
22.11.2007, 14:10
| Ответить | Цитировать | Написать  
Cache+Delphi5
    #34958488
Игорь Сойников
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Сойников
Участник
Очень даже получится.
...
Рейтинг: 0 / 0
22.11.2007, 14:51
| Ответить | Цитировать | Написать  
Cache+Delphi5
    #34958665
NewWorld
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NewWorld
Гость
обратно точно так же через copy()??
а как на счет unicode, он распознает?
еще вопросик: а вот если у меня есть глобальная переменная с данными, но она нигде в программе не используется и не вызывается (в ней просто хранятся данные). то данные хранящиеся в ней можно записать в файл не используя VisM1.Execute() ??
...
Рейтинг: 0 / 0
22.11.2007, 15:20
| Ответить | Цитировать | Написать  
Cache+Delphi5
    #34959399
Игорь Сойников
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Сойников
Участник
смотрите пример будет работать в любой кодировке.
если только не переносить в другую систему с другой кодировкой.
VisM1.Execute - выполняет любую строку языка и к программам не имеет ни какого отношения.
...
Рейтинг: 0 / 0
22.11.2007, 17:58
| Ответить | Цитировать | Написать  
Cache+Delphi5
    #34960204
NewWorld
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NewWorld
Гость
СПАСИБО ОГРОМНОЕ!!!! буду разбираться.... :)
...
Рейтинг: 0 / 0
23.11.2007, 09:45
| Ответить | Цитировать | Написать  
Cache+Delphi5
    #34961385
NewWorld
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NewWorld
Гость
а почему происходит зацикливание на while?

while copy(VisM1.P1,1,la) = a do begin
VisM1.P2 := null;
VisM1.Execute('I $D(@P1) S P2=@P1');
if VisM1.P2 <> null then begin
WriteStr(VisM1.P1);
WriteStr(VisM1.P2);
end;
VisM1.Execute('S P1=$Q(@P1)');
end;
...
Рейтинг: 0 / 0
23.11.2007, 14:30
| Ответить | Цитировать | Написать  
Cache+Delphi5
    #34961506
NewWorld
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NewWorld
Гость
и в файл ничего не записывается... почему? может я не то записываю в edit1 := '^FP("M",PrName)'
в глобальной переменной, такие данные:
---------------------------------------------
^FP("M",2)=<<"name2"_$C(9)_"INN">>
^FP("M",3)=<<"name3"_$C(9)_"INN">>
^FP("M",4)=<<"name4"_$C(9)_"INN">>
^FP("M",5)=<<"name5"_$C(9)_"INN">>
^FP("M",6)=<<"name6"_$C(9)_"INN">>
^FP("M",7)=<<"name7"_$C(9)_"INN">> и т.д....
---------------------------------------------
...
Рейтинг: 0 / 0
23.11.2007, 14:55
| Ответить | Цитировать | Написать  
Cache+Delphi5
    #34961548
NoGot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NoGot
Участник
Извините за вопрос:

имеет ли значение куда писать файл: на сервере или на клиенте?
...
Рейтинг: 0 / 0
23.11.2007, 15:04
| Ответить | Цитировать | Написать  
Cache+Delphi5
    #34961625
NewWorld
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NewWorld
Гость
данные из глобали сервера записать нужно в файл любого расширения. и обратно.
...
Рейтинг: 0 / 0
23.11.2007, 15:26
| Ответить | Цитировать | Написать  
Cache+Delphi5
    #34961772
NewWorld
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NewWorld
Гость
NoGotИзвините за вопрос:
имеет ли значение куда писать файл: на сервере или на клиенте?
ну главное что бы в файл данные записывались. а сам файл будет храниться в каталоге программы.
...
Рейтинг: 0 / 0
23.11.2007, 16:02
| Ответить | Цитировать | Написать  
Cache+Delphi5
    #34962115
Игорь Сойников
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Сойников
Участник
VisM - работает там где установлена клиентская часть Cache.
У Вас в ссылке находится неопределенная переменная .
Поэтому и не работает ссылка должна быть полностью определена:
^AAA("индекс1","индекс2")
...
Рейтинг: 0 / 0
23.11.2007, 17:45
| Ответить | Цитировать | Написать  
Cache+Delphi5
    #34962124
Игорь Сойников
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Сойников
Участник
и еще добавьте в проект SaveDialog и OpenDialog и пишите и восстанавливайте откуда угодно.
...
Рейтинг: 0 / 0
23.11.2007, 17:49
| Ответить | Цитировать | Написать  
Cache+Delphi5
    #34962196
New World
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
New World
Гость
спасибо за помощь!!!! буду пробывать :) !!!
...
Рейтинг: 0 / 0
23.11.2007, 18:14
| Ответить | Цитировать | Написать  
Cache+Delphi5
    #34964145
NoGot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NoGot
Участник
Спрашивал так, потому что такую задачу лучше было бы решать непосредственно в каше, один раз вызвав метод. То есть расположив цикл непосредственно в каше. К тому же визм не очень быстр как мне кажется...
...
Рейтинг: 0 / 0
26.11.2007, 07:38
| Ответить | Цитировать | Написать  
Cache+Delphi5
    #34964503
NewWorld
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NewWorld
Гость
не пойму почему данные не записываются...
от меня же требуется записать:
Код: plaintext
VisM1.NameSpace := 'LOCAL_UFT';
Код: plaintext
Edit1.Text:='^FP("MS",'')';
цикл проходит, но в VisM1.P2 показывает пусто.... соответственно в файл ничего не записывается...
что ж я не так делаю то?
...
Рейтинг: 0 / 0
26.11.2007, 11:15
| Ответить | Цитировать | Написать  
Cache+Delphi5
    #34964520
NewWorld
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NewWorld
Гость
NoGotСпрашивал так, потому что такую задачу лучше было бы решать непосредственно в каше, один раз вызвав метод. То есть расположив цикл непосредственно в каше. К тому же визм не очень быстр как мне кажется...

это что типа того как предлогал krvsa ??

krvsa
Код: plaintext
1.
2.
3.
4.
5.
6.
 m ^tmp( 1 )=^Data( 1 )
 m ^tmp("Info")=^Data("Info")
 m ^tmp("Home","OOO NPC Air")=^Data("Home","OOO NPC Air")
...
 s file="c:\box\data.xml"
 s ok=$system.OBJ.Export("tmp.gbl",file)
...


??
...
Рейтинг: 0 / 0
26.11.2007, 11:19
| Ответить | Цитировать | Написать  
Cache+Delphi5
    #34964530
Фотография krvsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
krvsa
Участник
В моем примере все делает Кащей.
----------
Cache for Windows NT (Intel) 5.0.20 (Build 6305) Fri Sep 16 2005 11:54:10 EDT
...
Рейтинг: 0 / 0
26.11.2007, 11:24
| Ответить | Цитировать | Написать  
Cache+Delphi5
    #34964567
Игорь Сойников
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Сойников
Участник
Потому, что метод в Cache выполнится на сервере, а не не клиенте. т.е. файл будет сохранятся исключительно на сервере, что с точки зрения безопасности системы не очень хорошо.
Поэтому и делается сохранение на клиенте.
...
Рейтинг: 0 / 0
26.11.2007, 11:34
| Ответить | Цитировать | Написать  
Cache+Delphi5
    #34964589
Игорь Сойников
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Сойников
Участник
Код: plaintext
VisM1.NameSpace := 'LOCAL_UFT';
Код: plaintext
Edit1.Text:='^FP("MS",'')';
Совершенно естественно т.к. следующий индекс на запись будет иметь вид
^FP("MS","индекс"), что при условии завершения ^FP("MS","" '= ^FP("MS","индекс"

надо задавать ^FP("MS") - сохраняется все поддерево "MS"
или конкретное значение второго индекса для сохранения, поддерева второго индекса
...
Рейтинг: 0 / 0
26.11.2007, 11:39
| Ответить | Цитировать | Написать  
Cache+Delphi5
    #34964708
NoGot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NoGot
Участник
Обьясните пожалуйста про безопасность, я не совсем понял...
Учитывая, что данных очень много (в условии задачи), то таким внешним циклом тягать данные вы будете очень долго...
...
Рейтинг: 0 / 0
26.11.2007, 12:16
| Ответить | Цитировать | Написать  
Cache+Delphi5
    #34964726
NewWorld
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NewWorld
Гость
все, получилось!!!! нужно было мне еще вместо P2:=null записать P2:='1' и все получилось как надо:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
... 
while copy(VisM1.P1, 1 ,la) = a do
  begin
VisM1.P2 := '1';
    VisM1.Execute('I $D(@P1) S P2=@P1');
    if VisM1.P2 <> '' then
...
ВСЕМ ОГРОМНЕЕШЕЕ СПАСИБО ЗА ВНИМАНИЕ, ЗА ПОМОЩЬ, а главное ЗА ТЕРПЕНИЕ !!!!!!! :)
...
Рейтинг: 0 / 0
26.11.2007, 12:23
| Ответить | Цитировать | Написать  
Cache+Delphi5
    #34964753
Игорь Сойников
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Сойников
Участник
Про безопасность: имеем выделенный сервер Cache. Доступ к файловой системе пользователям закрыт.

теперь выполняем метод на сервере. В итоге: пользователь выполняющий метод с доступом к файловой системе имеет доступ к файловой системе сервера и делает там, несанкционированные действия.
Да и к результатам работы метода, тоже не будет иметь доступа.
...
Рейтинг: 0 / 0
26.11.2007, 12:30
| Ответить | Цитировать | Написать  
Cache+Delphi5
    #34964805
NoGot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NoGot
Участник
Ну для этого я и задавал самый первый вопрос (см. выше), а затем обьяснил почему я задал его...
...
Рейтинг: 0 / 0
26.11.2007, 12:39
| Ответить | Цитировать | Написать  
46 сообщений из 46, показаны все 2 страниц
  все  
Форумы / Caché, Ensemble, DeepSee, MiniM, IRIS, GT.M [игнор отключен] [закрыт для гостей] / Cache+Delphi5
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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