| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
работа с Word
magnus © (2005-08-26 12:26:00)Подскажите, пожалуйста, как правильно организовать следующую вещь: есть БД с полем 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:32:00) [1]Хм, http://www.delphimaster.ru/cgi-bin/forum.pl?id=1124428832&n=0
спамим, однако :-(
Плохиш (2005-08-26 13:21:00) [2]
> str.Create(a,fmopenread);
Вот это на фига?
| |
