Форум: "Базы";
Текущий архив: 2005.03.27;
Скачать: [xml.tar.bz2];

Вниз

Нужен компонент наследник от TDataSet   Найти похожие ветки 

← →
Shuma ©   (2005-02-24 11:36) [0]

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

---

← →
Digitman ©   (2005-02-24 11:47) [1]

TClientDataSet

---

← →
Карелин Артем ©   (2005-02-24 11:48) [2]

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

---

← →
sniknik ©   (2005-02-24 12:01) [3]

TADODataSet

---

← →
KSergey ©   (2005-02-24 13:12) [4]

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

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

---

← →
sniknik ©   (2005-02-24 13:48) [5]

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

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;


---

← →
sniknik ©   (2005-02-24 13:52) [6]

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

---

Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2005.03.27;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.051 c