Форум на Исходниках.RU

Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=149604&view=findpost&p=1195488 Fri, 28 Jul 2006 11:37:06 +0000 Перегнать динамический массив https://forum.sources.ru/index.php?showtopic=149604&view=findpost&p=1195488 SilverShield Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=149604&view=findpost&p=1195441 Fri, 28 Jul 2006 11:18:07 +0000 Перегнать динамический массив https://forum.sources.ru/index.php?showtopic=149604&view=findpost&p=1195441 В 1С небось? Там тоже элементарно доступ через ADO получить. Правда, в 8 версии они накосячили с СОМ, так что...]]> Romkin Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=149604&view=findpost&p=1195424 Fri, 28 Jul 2006 11:07:21 +0000 Перегнать динамический массив https://forum.sources.ru/index.php?showtopic=149604&view=findpost&p=1195424 Romkin, спасибо! Будет чем заняться в выходные :)

Цитата Romkin @ 28.07.06, 10:36

Кстати, а что, через ADO напрямую - никак?

Я с FireBird работаю, потому и пользую IBX, через ADO то да, можно просто _Recordset через тотже OleVariant передать.]]> SilverShield Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=149604&view=findpost&p=1195374 Fri, 28 Jul 2006 10:36:43 +0000 Перегнать динамический массив https://forum.sources.ru/index.php?showtopic=149604&view=findpost&p=1195374 И почему TDBGrid, неужели Fields датасета недостаточно?
Сделай проще: реализуй интерфейс IMyRecords как минимум с методами навигации и BOF/EOF, а из его проперти Fields возвращай другой интерфейс, коллекцию полей. А у него методы Count и ItemName(i) - BSTR (WideString), ItemValue(i) - здесь Variant возвращай. Достаточно будет. Понятно, берешь этот интерфейс, и когда у его владельца next вызвано - его методы возвращают значения полей другой записи. Вот так и перегонишь.
Кстати, а что, через ADO напрямую - никак? Там вообще ничего писать не надо, соединяешься - и вперед.]]> Romkin Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=149604&view=findpost&p=1195056 Fri, 28 Jul 2006 08:18:21 +0000 Перегнать динамический массив https://forum.sources.ru/index.php?showtopic=149604&view=findpost&p=1195056 Цитата Romkin @ 28.07.06, 06:28

А вот коллекцию делали, для передачи таблицы БД через интерфейс, там интерфейс доступа к коллекции интерфейсов

Romkin, можно здесь поподробней? Собственно это и есть изначальная задача: передать таблицу БД.
Технология какая получается: создаю коллекцию (TColumns компонент TDBGrid), заполняю ее данными из моего запроса. При помощи методов типа GetRec(i) интерфейса выбираю по очереди из нее все записи, заталкиваю их в заготовленный record (интерфейса). А на другой стороне разгребаю эти record ы интерфеса...]]> SilverShield Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=149604&view=findpost&p=1194842 Fri, 28 Jul 2006 06:28:18 +0000 Перегнать динамический массив https://forum.sources.ru/index.php?showtopic=149604&view=findpost&p=1194842 SilverShield Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=149604&view=findpost&p=1193875 Thu, 27 Jul 2006 11:57:34 +0000 Перегнать динамический массив https://forum.sources.ru/index.php?showtopic=149604&view=findpost&p=1193875 Цитата SilverShield @ 27.07.06, 11:02

По методу коллекции. На мой взгляд, строки так передавать удобнее. Объявляешь у себя в библиотеке типов record, и интерфейс с методами доступа к i-й записи (Минимум - в IEnumVariant, стандарт - см TCollection). Правда, с записями я не работал.
А вот коллекцию делали, для передачи таблицы БД через интерфейс, там интерфейс доступа к коллекции интерфейсов :)

Добавлено 27.07.06, 11:59
Просто надо понимать, что типы, объявленные в библиотеке типов, при ее использовании становятся известными. А там можно объявить и перечисление, и запись...]]> Romkin Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=149604&view=findpost&p=1193777 Thu, 27 Jul 2006 11:15:01 +0000 Перегнать динамический массив https://forum.sources.ru/index.php?showtopic=149604&view=findpost&p=1193777
Добавлено 27.07.06, 11:15

Цитата Testudo @ 27.07.06, 11:08

есть ведь раздел для OLE/COM...

олей тут слабо пахнет...]]> jack128 Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=149604&view=findpost&p=1193766 Thu, 27 Jul 2006 11:10:50 +0000 Перегнать динамический массив https://forum.sources.ru/index.php?showtopic=149604&view=findpost&p=1193766 если нет, то использовать ShortString или String[Х] и передавать просто массив байт]]> Shaggy Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=149604&view=findpost&p=1193761 Thu, 27 Jul 2006 11:08:31 +0000 Перегнать динамический массив https://forum.sources.ru/index.php?showtopic=149604&view=findpost&p=1193761 Testudo Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=149604&view=findpost&p=1193748 Thu, 27 Jul 2006 11:02:43 +0000 Перегнать динамический массив https://forum.sources.ru/index.php?showtopic=149604&view=findpost&p=1193748 Цитата Romkin @ 27.07.06, 10:42

Почему бы тебе не сделать отдельный интерфейс для передачи коллекции?

имеешь в виду сделать отдельный инерфейс с той структурой, что у меня сейчас в record? Но я ведь все равно не смогу передавать массив, только элементы по отдельности... Или я неправильно понял?]]> SilverShield Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=149604&view=findpost&p=1193697 Thu, 27 Jul 2006 10:42:28 +0000 Перегнать динамический массив https://forum.sources.ru/index.php?showtopic=149604&view=findpost&p=1193697 2. Через VarArrayCreate делаешь в нем нужный массив
3. Делаешь VarArrayLock - копируешь память - Делаешь VarArrayUnlock (в finally конечно)
3а Или просто пользуешься этим массивом :)

Добавлено 27.07.06, 10:47
А в случае, когда у тебя запись - увы, не так все просто. В варианте только простые типы есть, там SafeArray. Почему бы тебе не сделать отдельный интерфейс для передачи коллекции?]]> Romkin Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=149604&view=findpost&p=1193663 Thu, 27 Jul 2006 10:30:23 +0000 Перегнать динамический массив https://forum.sources.ru/index.php?showtopic=149604&view=findpost&p=1193663 SilverShield Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=149604&view=findpost&p=1193643 Thu, 27 Jul 2006 10:26:36 +0000 Перегнать динамический массив https://forum.sources.ru/index.php?showtopic=149604&view=findpost&p=1193643 Testudo Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=149604&view=findpost&p=1193609 Thu, 27 Jul 2006 10:06:46 +0000 Перегнать динамический массив https://forum.sources.ru/index.php?showtopic=149604&view=findpost&p=1193609

type

TUserList=record

uid, compname, uname, cstat, utype: string;

end;

TULMas=array of TUserList;

Сделать это видимо прийдется через OleVariant (обычный variant в библиотеке типов задать не получается). Делаю в 2 этапа: 1. Преобразовать массив к варианту. 2. преобразовать Variant к OleVariant.
Проблема уже на первом этапе - не получается ни в какую преобразовать динамический массив к варианту!
Делал так:

aa: Variant;

ULMas: TULMas;

.....

DynArrayToVariant(aa, ULMas, inf);

Выдает ошибку "invalid variant type conversion".
Пробовал создать массив варианта и потом поэлементно перегнать в него мой динамический массив:

Aa := VarArrayCreate([0, length(ULMas)-1], varVariant);

for i:= 0 to length(ULMas)-1 do

begin

aa[i]:= ULMas[i];

end;

Тогда просто говорит, что не совместимые типы variant и TUserList.
Как тут быть? Заранее спасибо!

PS: поиском я пользовался и ничего подходящего не нашел. Если вопрос уже обсуждался, буду очень признателен за ссылку или за ключевые слова для поиска.]]> SilverShield Delphi: Общие вопросы