работа с Word

[arv]

Всем привет, такая вот задача, есть поле Blob в ней текст Word точнее даже формата RTF. Задача вывести его в Word, а если юзер сделал изменения то сохранить измененый документ обратно в Blob.
Спасибо.

[Stilet]

Вытаскивай из BLOB во временный файл и его уже в ворде открывай, ну и наоборот его содержимое запихивай в БЛОБ

[arv]

а как отследить что юзер его изменил?

[Stilet]

через FindFirstChangeNotification например
или сравнить дату изменения файла с предидущей.

[arv]

а как открыть Ворд, чтоб он был модален к моему приложению?

[Stilet]

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

[arv]

что-то я не понял.
я вешаю на кнопку открытия текста для редактирования следующее:
1. записываю содержание блоб поля в файл типа temp.rtf.
2. собственно вопрос: как мне открыть ворд чтоб после закрытия его я перешел к шагу 3, где я сравню дату изменения у файла temp.rtf и если она изменилась то запишу его назад в блоб. еще хотелось бы, чтоб у ворда была толька кнопка "сохранить", а кнопки "сохранить как" небыло.
4.И затем я делаю рефреш в базе данных и наблюдаю измененый документ.
все это я хочу повесить на событие клик кнопки, поэтому я так понимаю что ворд должен быть модальным к моему приложению....

[Stilet]

собственно вопрос:

Собственно ответы:
1 - через TWordApplication, открываеш документ, скрываеш форму, по срабатыванию WordApplication.OnQuit или WordApplication.OnDocumentBeforeClo se (сам выбереш) показываеш назад свою форму
Вот смотри:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ShellCtrls, Word2000, OleServer, ExtCtrls;

type
  TForm1 = class(TForm)
    WordApplication1: TWordApplication;
    WordDocument1: TWordDocument;
    ShellTreeView1: TShellTreeView;
    procedure ShellTreeView1Click(Sender: TObject);
    procedure WordApplication1Quit(Sender: TObject);
  private
    { Private declarations }
  public    cap:string;   Wordh,wordpar:hwnd;
    { Public declarations }
  end;

var           
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ShellTreeView1Click(Sender: TObject);
var fn, ro:OleVariant;
begin
ro:=true;
//*******IF********//
if LowerCase(ExtractFileExt(ShellTreeView1.Path))='.doc' then begin
 fn:=ShellTreeView1.Path;
 WordApplication1.Visible:=true;
 WordDocument1.Close;
  WordApplication1.Documents.Open(fn,EmptyParam,EmptyParam,ro,EmptyParam,
   EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
   EmptyParam);
  WordDocument1.ConnectTo(WordApplication1.ActiveDocument);
  cap:='kukureku#$$#$'+inttostr(random(1000));
  WordDocument1.ActiveWindow.Caption:=cap;
  hide;
end;
//*****End If*****// {}

end;

procedure TForm1.WordApplication1Quit(Sender: TObject);
begin
Application.ShowMainForm:=true;
Show;
BringToFront;
end;

end.

В C:\Temp положиш документ DOC, потом с RTF разберешся, и попробуй его открыть, прога исчезнет, а после закрытия ворда прога опять появится.

2 - Через CreateProcess...WaitForSingleObject ,

Если будет время напишу пример по второму пункту

[arv]

спасибо, попробую

[arv]

есть еще вопрос, каким образом можно организовать поиск подстроки в Blob-поле. База данных MS SQL, поле типа имадж. Или для этого надо сделать поле типа MEMO и там дублировать текст бес форматирования по которому и искать?