ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Работа с NestedTable
14 сообщений из 39, страница 2 из 2
  2  все
Работа с NestedTable
    #39882627
Фотография Кроик Семён
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кроик Семён
Участник
Леонов ЮрийТут походу тупик. Я использую Direct подключение, и мне ...

Oracle Instant Client устанавливаются простым копированием этих файлов в папку (если не ошибаюсь, около 120Мб DLLок) и пропиской eё в PATH. Если заливка данных происходит лишь на нескольких машинах, то почему бы и не поставить там?
...
Рейтинг: 0 / 0
29.10.2019, 11:34
| Ответить | Цитировать | Написать  
Работа с NestedTable
    #39882631
Фотография devart
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
devart
Участник
Пример работы с TOraNestedTable:
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
var
  i, j: Integer;
  NestTable: TOraNestTable;
  OSP: TOraStoredProc;
begin
  OraSession.Connect;
  NestTable := TOraNestTable.Create;
  try
    NestTable.AllocObject(OraSession.OCISvcCtx, 'table_of_MyItem');
    for i := 0 to 1 do begin
      j := NestTable.AppendItem;
      NestTable.ItemAsObject[j].AttrAsInteger['ID'] := 100 + i;
      NestTable.ItemAsObject[j].AttrAsString['MyValue'] := Format('MyValue %d', [i]);
    end;

    OSP := TOraStoredProc.Create(nil);
    try
      OSP.Session := OraSession;
      OSP.StoredProcName := StoredProcName;
      OSP.Prepare;
      OSP.ParamByName('TableType').DataType := ftObject;
      OSP.ParamByName('TableType').ParamType := ptInput;
      OSP.ParamByName('TableType').AsObject := NestTable;
      OSP.Execute;

      ShowMessage(OSP.ParamByName('RESULT').AsString);
    finally
      OSP.Free;
    end;
  finally
    NestTable.Free;
  end;
end;



Леонов ЮрийТут походу тупик. Я использую Direct подключение, и мне бьет ошибку "OCI function is not linked". Почитал на форуме Devart,
там пишут, что "Такие типы как OBJECT, ARRAY, REF, XML, BINARY_DOUBLE, BINARY_FLOAT не поддерживаются в Direct режиме. "
Все эти типы уже много лет поддерживаются в Direct режиме. Мы приносим извенения, за устаревшую информацию в хелпе (исправим в следующем релизе).
...
Рейтинг: 0 / 0
29.10.2019, 11:42
| Ответить | Цитировать | Написать  
Работа с NestedTable
    #39882632
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wadman
Участник
devartВсе эти типы уже много лет поддерживаются в Direct режиме.
По какой причине отказались?
...
Рейтинг: 0 / 0
29.10.2019, 11:44
| Ответить | Цитировать | Написать  
Работа с NestedTable
    #39882638
Фотография devart
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
devart
Участник
wadmandevartВсе эти типы уже много лет поддерживаются в Direct режиме.
По какой причине отказались?
От чего отказались? Приведеный выше пример работает в OCI и в Direct режиме.
Если при каких-то действиях возникает ошибка "OCI function is not linked", то дайте нам пример, когда возникает такая ошибка, и мы обязательно исправим.
...
Рейтинг: 0 / 0
29.10.2019, 11:48
| Ответить | Цитировать | Написать  
Работа с NestedTable
    #39882643
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wadman
Участник
devartОт чего отказались?
Прошу прощения.
"не" почудилось.
...
Рейтинг: 0 / 0
29.10.2019, 11:55
| Ответить | Цитировать | Написать  
Работа с NestedTable
    #39883063
Леонов Юрий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Леонов Юрий
Участник
devartПример работы с TOraNestedTable:
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
var
  i, j: Integer;
  NestTable: TOraNestTable;
  OSP: TOraStoredProc;
begin
  OraSession.Connect;
  NestTable := TOraNestTable.Create;
  try
    NestTable.AllocObject(OraSession.OCISvcCtx, 'table_of_MyItem');
    for i := 0 to 1 do begin
      j := NestTable.AppendItem;
      NestTable.ItemAsObject[j].AttrAsInteger['ID'] := 100 + i;
      NestTable.ItemAsObject[j].AttrAsString['MyValue'] := Format('MyValue %d', [i]);
    end;

    OSP := TOraStoredProc.Create(nil);
    try
      OSP.Session := OraSession;
      OSP.StoredProcName := StoredProcName;
      OSP.Prepare;
      OSP.ParamByName('TableType').DataType := ftObject;
      OSP.ParamByName('TableType').ParamType := ptInput;
      OSP.ParamByName('TableType').AsObject := NestTable;
      OSP.Execute;

      ShowMessage(OSP.ParamByName('RESULT').AsString);
    finally
      OSP.Free;
    end;
  finally
    NestTable.Free;
  end;
end;





Ваш код заработал. Но у меня проблема другого плана.
Гружу в базу небольшими блоками. После того как загрузилось, пытаюсь очистить NestTable.Clear;
Вот тут и вылетает ошибка "OCI function is not linked".
Каждый раз пересоздавать сам объект разве что...
Но хотелось бы понять, почему эта ошибка вылазит. Может забыли исправить?
...
Рейтинг: 0 / 0
30.10.2019, 13:05
| Ответить | Цитировать | Написать  
Работа с NestedTable
    #39883065
Леонов Юрий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Леонов Юрий
Участник
Кроик СемёнOracle Instant Client устанавливаются простым копированием этих файлов в папку (если не ошибаюсь, около 120Мб DLLок) и пропиской eё в PATH. Если заливка данных происходит лишь на нескольких машинах, то почему бы и не поставить там?

Просто потому, что загрузка идет из АРМа и подключение к БД идет соответственно при его старте.
...
Рейтинг: 0 / 0
30.10.2019, 13:11
| Ответить | Цитировать | Написать  
Работа с NestedTable
    #39883128
Фотография devart
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
devart
Участник
Леонов ЮрийВаш код заработал. Но у меня проблема другого плана.
Гружу в базу небольшими блоками. После того как загрузилось, пытаюсь очистить NestTable.Clear;
Вот тут и вылетает ошибка "OCI function is not linked".
Каждый раз пересоздавать сам объект разве что...
Но хотелось бы понять, почему эта ошибка вылазит. Может забыли исправить?
Да, был такой баг с методом Clear, он уже исправлен, и исправление войдет в следующий билд/релиз. Вы можете или пересоздавать объект каждый раз, или написать нам в техподдержку https://www.devart.com/company/contactform.html и мы вышлем вам ночной билд с исправлением данного бага.
...
Рейтинг: 0 / 0
30.10.2019, 14:56
| Ответить | Цитировать | Написать  
Работа с NestedTable
    #39883132
Леонов Юрий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Леонов Юрий
Участник
devart, спасибо
...
Рейтинг: 0 / 0
30.10.2019, 15:01
| Ответить | Цитировать | Написать  
Работа с NestedTable
    #39883134
Леонов Юрий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Леонов Юрий
Участник
при пересоздании объекта первый раз TOraStoredProc отрабатывает нормально, на втором слетает с ошибкой
TOraType.Free RefCount = 0 (D:\Projects\Delphi\Dac\Common\Source\MemData.pas, line 8994
...
Рейтинг: 0 / 0
30.10.2019, 15:07
| Ответить | Цитировать | Написать  
Работа с NestedTable
    #39883174
Фотография devart
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
devart
Участник
Леонов Юрий,

вот пример с пересозданием TOraNestTable перед каждым выполнением:
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
var
  i, j: Integer;
  OraType: TOraType;
  NestTable: TOraNestTable;
  OSP: TOraStoredProc;
begin
  OraSession.Connect;

  OraType := TOraType.Create(OraSession.OCISvcCtx, 'table_of_MyItem');
  try
    OSP := TOraStoredProc.Create(nil);
    try
      OSP.Session := OraSession;
      OSP.StoredProcName := 'Get_table_of_MyItem_Info';
      OSP.Prepare;
      OSP.ParamByName('TableType').DataType := ftObject;
      OSP.ParamByName('TableType').ParamType := ptInput;

      NestTable := TOraNestTable.Create(OraType);
      try
        NestTable.AllocObject;
        for i := 0 to 1 do begin
          j := NestTable.AppendItem;
          NestTable.ItemAsObject[j].AttrAsInteger['ID'] := 100 + i;
          NestTable.ItemAsObject[j].AttrAsString['MyValue'] := Format('MyValue %d', [i]);
        end;
        OSP.ParamByName('TableType').AsObject := NestTable;
        OSP.Execute;
        ShowMessage(OSP.ParamByName('RESULT').AsString);
      finally
        NestTable.Free;
      end;

      NestTable := TOraNestTable.Create(OraType);
      try
        NestTable.AllocObject;
        for i := 0 to 1 do begin
          j := NestTable.AppendItem;
          NestTable.ItemAsObject[j].AttrAsInteger['ID'] := 100 + i;
          NestTable.ItemAsObject[j].AttrAsString['MyValue'] := Format('MyValue %d', [i]);
        end;
        OSP.ParamByName('TableType').AsObject := NestTable;
        OSP.Execute;
        ShowMessage(OSP.ParamByName('RESULT').AsString);
      finally
        NestTable.Free;
      end;
    finally
      OSP.Free;
    end;
  finally
    OraType.Free;
  end;
end;


Если вы делаете как-то по другому, то дайте пример кода. Без примеро тяжело дать какой-нибудь совет.
...
Рейтинг: 0 / 0
30.10.2019, 16:23
| Ответить | Цитировать | Написать  
Работа с NestedTable
    #39884959
Леонов Юрий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Леонов Юрий
Участник
devart,

извините, на несколько дней вылетел с температурой

у меня ошибка выскакивала при использовании FreeAndNil(NetsTable).
поменял на NetsTable.Free и все заработало, спасибо
...
Рейтинг: 0 / 0
04.11.2019, 14:38
| Ответить | Цитировать | Написать  
Работа с NestedTable
    #39884963
Фотография Квейд
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Квейд
Участник
Леонов Юрий
devart,

извините, на несколько дней вылетел с температурой

у меня ошибка выскакивала при использовании FreeAndNil(NetsTable).
поменял на NetsTable.Free и все заработало, спасибо


FreeAndNil не должен приводить к ошибкам. У вас ошибка в другом месте.
...
Рейтинг: 0 / 0
04.11.2019, 14:48
| Ответить | Цитировать | Написать  
Работа с NestedTable
    #39884978
Фотография makhaon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
makhaon
Участник
Леонов Юрий,

ищи ошибку в коде, ты ее всего лишь скрыл, оставив зомби-указатель в памяти. она гарантированно рано или поздно вылезет или у тебя или у пользователей.
...
Рейтинг: 0 / 0
04.11.2019, 15:29
| Ответить | Цитировать | Написать  
14 сообщений из 39, страница 2 из 2
  2  все
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Работа с NestedTable
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=39883174&tid=2038875]:
 0ms
get settings:
 8ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 137ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 56ms
get tp. blocked users:
 2ms
others: 222ms
total:  457ms
созд. / загр.: 457ms
x
x
Закрыть


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