Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Caché, Ensemble, DeepSee, MiniM, IRIS, GT.M [игнор отключен] [закрыт для гостей] / Как на Delphi выполнить импорт из xml файла? / 8 сообщений из 8, страница 1 из 1
29.05.2013, 11:09
    #38278076
krvsa
krvsa
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как на Delphi выполнить импорт из xml файла?
Как на Delphi выполнить импорт из xml файла?

Используем соединение

Код: pascal
1.
2.
3.
4.
cacheObj	:= CreateOleObject('CacheActiveX.Factory') ;
...
obj := cacheObj.Static('%SYSTEM.OBJ') ;
yes := obj.Load('tmp.xml','cf-d') ;



Но выдает сообщение (см.картинку)...

Как победить?
----------
Cache for Windows (x86-64) 2010.2.3 (Build 702) Tue Feb 15 2011 14:20:27 EST
Cache for Windows (x86-64) 2012.1.1 (Build 602) Wed Mar 7 2012 22:36:34 EST
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.05.2013, 12:23
    #38278232
servit
servit
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как на Delphi выполнить импорт из xml файла?
Оба примера работают одинаково без ошибок (Caché 2013.1):
Код: vbnet
1.
2.
3.
4.
5.
Set cacheObj = CreateObject("CacheActiveX.Factory")
cacheObj.Connect("cn_iptcp:127.0.0.1[1972]:SAMPLES:_SYSTEM:SYS")

Set obj = cacheObj.Static("%SYSTEM.OBJ")
WScript.Echo obj.Version() & vbNewLine & obj.Load("c:\tmp.xml","cf-d")

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
procedure Tfm.Button1Click(Sender: TObject);
var cacheObj,obj:Variant;
begin
  cacheObj:=CreateOleObject('CacheActiveX.Factory');
  cacheObj.Connect('cn_iptcp:127.0.0.1[1972]:SAMPLES:_SYSTEM:SYS');

  obj:=cacheObj.Static('%SYSTEM.OBJ');
  ShowMessage(obj.Version+#13#10+obj.Load('c:\tmp.xml','cf-d'));
end;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.05.2013, 12:48
    #38278277
krvsa
krvsa
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как на Delphi выполнить импорт из xml файла?
servit , ща потестим...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.05.2013, 13:25
    #38278353
krvsa
krvsa
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как на Delphi выполнить импорт из xml файла?
Попробовали...

Код: pascal
1.
2.
3.
4.
5.
 cacheObj:=CreateOleObject('CacheActiveX.Factory');
 cacheObj.Connect('cn_iptcp:127.0.0.1[1972]:TEST:_SYSTEM:SYS');

 obj:=cacheObj.Static('%SYSTEM.OBJ');
 ShowMessage(obj.Version + #13#10 + '[' + obj.Load('tmpsearch.xml','cf-d') + ']');



Результат на картинке...

В облати TEST нет ничего, что было в файле...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.05.2013, 13:26
    #38278356
krvsa
krvsa
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как на Delphi выполнить импорт из xml файла?
В файле проект, классы и глобалы...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.05.2013, 13:52
    #38278422
servit
servit
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как на Delphi выполнить импорт из xml файла?
krvsa ,

tmpsearch.xml находится там же, где и CACHE.DAT ?
Если вызвать из терминала, ошибки будут?

PS: интересно, почему уже не наблюдается ошибки ' Invalid argument ' с первого скриншота?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.05.2013, 13:56
    #38278428
krvsa
krvsa
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как на Delphi выполнить импорт из xml файла?
servit , спасибо, все заработало! Почему не работало ранее - х/з...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.05.2013, 13:59
    #38278430
krvsa
krvsa
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как на Delphi выполнить импорт из xml файла?
servit tmpsearch.xml находится там же, где и CACHE.DAT ?
Да.

servitЕсли вызвать из терминала, ошибки будут?
Ошибок нет.

servitPS: интересно, почему уже не наблюдается ошибки ' Invalid argument ' с первого скриншота?
Это так и осталось тайной для нас...

Но тебе все равно большее спасибо за участие и поддержку!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Caché, Ensemble, DeepSee, MiniM, IRIS, GT.M [игнор отключен] [закрыт для гостей] / Как на Delphi выполнить импорт из xml файла? / 8 сообщений из 8, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 511ms
Закрыть
start [/forum/topic.php?fid=39&mobile=1&tid=1557149]:
 0ms
get settings:
 8ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 173ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 44ms
get tp. blocked users:
 2ms
others: 252ms
total:  511ms
x
x
Закрыть


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