Опять Excel и InterBase

← →
bobr12 (2002-09-10 13:03) [0]

Вопрос такой - есть у кого примеры включающие в себя:
1) Запись в поток (Stream) OLE-объекта (например Excel-файла)
2) SQL-запрос, записывающий в Blob-поле таблицы БД InterBase
содержимого потока.
3) SQL-запрос, извлекающий из Blob-поля таблицы БД InterBase в
поток.
4) Извлечение из потока OLE-объекта
Еще хотелось бы узнать правильно ли создаю таблицу в БД InterBase, содержащую Blob-поля, в которые можно было бы записывать OLE-Объект.
Create table OL
(OL BLOB(400,4));

← →
oss (2002-09-10 18:14) [1]

ну блин, а форум почитать ?!
для любого файла:
выгрузить из базы
with table do
TBlobField(fieldbyname("field")).SaveToFile(file);
загрузить в базу
with table do
TBlobField(fieldbyname("field")).LoadFromFile(file)
на остально сам подумай

← →
Карелин Артем (2002-09-11 09:51) [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);

← →
Карелин Артем (2002-09-11 11:38) [3]

Насчет передачии графика из екселя: у Chart есть чудный метод: CopyPicture. Так вот он копирует в буфер картинку. Но если Chart пустой, то будет ошибка.

Опять Excel и InterBase Найти похожие ветки