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

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

OleContainer [D5, IB7.0.1]

Ермек ©   (2004-01-26 02:48:00) 

Помогите разобраться с компонентом OleContainer
Пусть имеется 3 таблицы:
Master таблица - Rasdel
Detail таблица - Question
SubDetail таблица - Answer
Для этих таблиц создал Компоненты :
pFIBDataSetRasdel ,pFIBDataSetQUESTION, pFIBDataSetAnswer

Провожу вставку в таблицу - Answer blob-данные (вордовский текст)
Таким образом
При нажатии кнопки «Новый»:
procedure TFormDesignTest.Button38Click(Sender: TObject);
begin
pFIBDataSetAnswer.Append;
OleContainer2.DestroyObject;
OleContainer2.InsertObjectDialog;
OleContainer2.Enabled:=true;
end;
end;

При нажатии кнопки «Сохранить»
procedure TFormDesignTest.Button41Click(Sender: TObject);
Var s:Tstream;
begin
//Запись в базу данных
Try
S:=pFIBDataSetAnswer.CreateBlobStream(pFIBDataSetAnswer.FieldByName("NAMEANSWER"),bmReadWrite);
OleContainer2.SaveToStream(S);
pFIBDataSetAnswer.Post;
finally
S.Free;
//чтение из базы данных в OleContainer
if not(pFIBDataSetAnswer.FieldByName("NAMEANSWER").IsNull) then
Try
S:=pFIBDataSetANSWER.CreateBlobStream(pFIBDataSetANSWER.FieldByName
("NAMEANSWER"),bmRead);
OleContainer2.LoadFromStream(S);
finally
S.Free;
end;
OleContainer2.Enabled:=false;

pFIBDataSetAnswer.Transaction.Commit;
pFIBDataSetRasdel.Open;
end;

При нажатии кнопки «Удалить»

procedure TFormDesignTest.Button40Click(Sender: TObject);
begin
OleContainer2.Enabled:=true;
pFIBDataSetAnswer.delete;
OleContainer2.DestroyObject;
OleContainer2.InsertObjectDialog;
OleContainer2.Enabled:=false;
end;

Вопросы такие;
1. Что надо изменить в коде чтобы при длительной вставки данных
Не возникло сообщение «не хватки памяти»?
2. Что можно сделать чтобы не выходила окошко выбора объектов а загружала сразу вордоский документ по клику по OleContainerу?
3. Что можно сделать чтобы окошко OleContainer было не серым а например белым?
4. Где можно найти инфу, который рассматривает случай когда существует 1Detail таблица и несколько Master таблицы для компонента pFIBDataSet

---

ЮЮ   (2004-01-27 02:53:00) [1]

Кабы ещё знать, что ты прнимаешь под "длительной вставки данных".
А ещё лучше фрагмент кода

---

Ермек   (2004-01-27 01:31:00) [2]

Спасибо ЮЮ за ответ,
но все же Что надо изменить в коде чтобы при длительной вставки данных
Не возникло сообщение «не хватки памяти»?

---

ЮЮ   (2004-01-26 04:24:00) [3]

1) Где можно найти инфу, который рассматривает случай когда существует 1Detail таблица и несколько Master таблицы для компонента pFIBDataSet

Здавый смысл такого не допускает :-)
Если только Detail таблица - это запрос с несколькими параметрами, часть из которых определяется по Master1, а другая по Master2, то следует отказаться от прямого указания Master-Detail связей и организовать их программно, обратывая, например, AfterScroll Master1 и Master2, устанавливая нужные параметры и переоткрывая запрос.

---

Наверх