Скачать: CL | DM;

работа с 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);

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

---

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.034 c