Форум: "Начинающим";
Текущий архив: 2005.10.09;
Скачать: [xml.tar.bz2];
Внизработа с 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 вся ветка
Форум: "Начинающим";
Текущий архив: 2005.10.09;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.071 c