работа с Word

← →
magnus (2005-08-26 12:26) [0]

Подскажите, пожалуйста, как правильно организовать следующую вещь: есть БД с полем memo. При вводе новой записи в БД необходимо переходить в word по кнопке, набирать в нем текст, а затем при выходе из word набранный текст сохраняется в базе. Код показываю ниже:
//обработчик нажатия на кнопку для соединения с word
procedure TForm10.Button2Click(Sender: TObject);
begin
WordApplication1.Connect;
WordApplication1.Documents.Add(EmptyParam, EmptyParam, EmptyParam, EmptyParam);
WordDocument1.ConnectTo(WordApplication1.ActiveDocument);
WordDocument1.Range.Font.Name:="Times New Roman";
WordDocument1.Range.Font.Size:=14;
WordApplication1.Visible:=true;
WordApplication1.Disconnect;
end;
//выход из word
procedure TForm10.WordDocument1Close(Sender: TObject);
var a,b:olevariant;
str:tfilestream;
begin
a:="C:\Program Files\Borland\Delphi7\Bin\podrostki\base2\1.txt";
b:=wdFormatDOSText;
WordDocument1.SaveAs(a,b);
str.Create(a,fmopenread);
(form10.Table1.FieldByName("PROT") as TBlobField).LoadFromFile(a);
form10.Table1.Post;
form10.Table1.ApplyUpdates;
end;
при попытке загрузки файла в базу, возникает ошибка доступа к файлу : Файл занят другим процессом. Что не так делаю?

← →
Плохиш © (2005-08-26 13:21) [1]

> str.Create(a,fmopenread);

Вот это на фига?

Хм, http://delphimaster.net/view/1-1124428832/
спамим, однако :-(

работа с Word Найти похожие ветки