VPF::Открытие Word или Excel из Form1.IBQuery1.Fields

DmitrichJ

Дата 13.9.2005, 00:10 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 12.9.2005

Репутация: нет
Всего: нет

Суть:
Есть БД, где хранятся файлы Word и Excel, записанные следующим образом:
..

Код


var
  BlobF:AnsiString;
  S:TStringStream
..  
    assignFile(f,namef);
    reset(f);
    BlobF:='';
    while not eof(f) do begin
      read(f,c);
      BlobF:=Blobf+c;
    end;
    CloseFile(f);

    s:=TStringStream.Create(BlobF);

    Form1.IBQuery1.SQL.Text:='insert into table4_docs (np,docs) values ('
    +inttostr(ch)+',:T1)';

    Form1.IBQuery1.ParamByName('T1').ParamType:=ptInput;
    Form1.IBQuery1.ParamByName('T1').LoadFromStream(s,ftblob);
    Form1.IBQuery1.ExecSQL;
    Form1.IBTransaction1.Commit;
    S.Free;

Подскажите как можно открыть Word или Excel соответственно (не в своём приложении) и без сохранения на ЖД и загрузить туда данные из Form1.IBQuery1.Fields[1]?

И можно ли сделать всё это проще и подругому?
Заранее спасибо!

Это сообщение отредактировал(а) Girder - 13.9.2005, 08:36

<Spawn>

Дата 13.9.2005, 05:19 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: нет
Всего: 64

Проще? Воспользоваться TFileStream.
Открыть Word \ Excel можно используя позднее или раннее связывание - примеров по этому уйма в этом разделе. Используйте поиск. Скажу лишь, что для позднего связывания нужно использовать CreateOleObject, а для раннего использовать компоненты панели Servers.

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

DmitrichJ

Дата 13.9.2005, 11:43 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 12.9.2005

Репутация: нет
Всего: нет

Spawn, расскажите хотябы чуть подробнее. Я просмотрел абсолютно всё из этого раздела, но не смог найти то что мне нужно

DmitrichJ

Дата 13.9.2005, 12:07 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 12.9.2005

Репутация: нет
Всего: нет

Допустим есть
..
var
s:TFileStream;
..
s:=TFileStream.Create(filename,0);
..

Как открыть word или excel из потока S без сохранения на ЖД? Никак не могу найти... помогите разобраться... smile

DmitrichJ

Дата 14.9.2005, 14:44 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 12.9.2005

Репутация: нет
Всего: нет

Ну кто- нибудь напишите пару волшебных строк, для открытия документа из потока!!!

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »