| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Опять Excel и InterBase [D6, IB6.x]
bobr12 © (2002-09-10 13:03:00)Вопрос такой - есть у кого примеры включающие в себя:
1) Запись в поток (Stream) OLE-объекта (например Excel-файла)
2) SQL-запрос, записывающий в Blob-поле таблицы БД InterBase
содержимого потока.
3) SQL-запрос, извлекающий из Blob-поля таблицы БД InterBase в
поток.
4) Извлечение из потока OLE-объекта
Еще хотелось бы узнать правильно ли создаю таблицу в БД InterBase, содержащую Blob-поля, в которые можно было бы записывать OLE-Объект.
Create table OL
(OL BLOB(400,4));
Карелин Артем (2002-09-11 11:38:00) [1]Насчет передачии графика из екселя: у Chart есть чудный метод: CopyPicture. Так вот он копирует в буфер картинку. Но если Chart пустой, то будет ошибка.
Карелин Артем (2002-09-11 09:51:00) [2]Пример из рабочей проги на запись файла:
Query1.sql.Clear;
Query1.SQL.Append("insert into Videos (NAME, TRANSPARENT,NUMBER,PIC) values (:NAME, :TRANSPARENT,:NUMBER,:PIC)");
Query1.ParamByName("name").AsString:=CoolEdit2.Text;
Query1.ParamByName("TRANSPARENT").AsInteger:=integer(Image1.transparent);
Query1.ParamByName("NUMBER").AsInteger:=GetMaxFromTable(DM3.Database1.DatabaseName,"Videos","number")+1;
Query1.ParamByName("PIC").LoadFromFile(VideoForm2.OpenPictureDialog1.FileName,ftGraphic);
Query1.Prepare;
Query1.ExecSQL;
Запись на диск уже приведена:TBlobField(fieldbyname("field")).SaveToFile(file);
oss (2002-09-10 18:14:00) [3]ну блин, а форум почитать ?!
для любого файла:
выгрузить из базы
with table do
TBlobField(fieldbyname("field")).SaveToFile(file);
загрузить в базу
with table do
TBlobField(fieldbyname("field")).LoadFromFile(file)
на остально сам подумай
| |
