| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Нужен компонент наследник от TDataSet [D7]

Shuma ©   (2005-02-24 11:36:00) 

Уважаемые мастера! Нужен компонент наследник от TDataSet который получает данные из потока (TMemoryStream и т.д.) или массива структур или списка. Может кто знает где найти такой компонент. (Уж очень нехочется самому его писать :(.)

---

sniknik   (2005-02-24 13:52:00) [1]

да, на случай если непонятно как использовать ;)
можно так
ADODataSet2.Recordset:= CopyRecordSet(ADODataSet1.Recordset);

---

sniknik   (2005-02-24 13:48:00) [2]

> А можно еще пару слов к этому?
мзвини в пару не уложусь ;о)
ложим в поток и копируем из него (практически копирование рекордсета)

function CopyRecordSet(RecordSet:_RecordSet):_RecordSet;
var
 adoStream: OleVariant;
begin
 adoStream:= CreateOLEObject('ADODB.Stream');
 Variant(RecordSet).Save(adoStream, adPersistADTG);
 Result:= CreateOLEObject('ADODB.RecordSet') as _RecordSet;
 Result.CursorLocation:= adUseClient;
 Result.Open(adoStream, EmptyParam, adOpenStatic, adLockOptimistic, adOptionUnspecified);
 adoStream:= UnAssigned;
end;


---

KSergey   (2005-02-24 13:12:00) [3]

> [3] sniknik ©   (24.02.05 12:01)
> TADODataSet

А можно еще пару слов к этому?

---

sniknik   (2005-02-24 12:01:00) [4]

TADODataSet

---

Карелин Артем   (2005-02-24 11:48:00) [5]

На torry.net есть пяток таких компонентов.

---

Digitman   (2005-02-24 11:47:00) [6]

TClientDataSet

---

Наверх