Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

как открыть готовый word в Delphi [D7]


Дмитрий ©   (2013-04-23 16:49:00) 

Помогите пожалуйста еще разок.
я вписал код:  
procedure TForm1.RadioButton1Click(Sender: TObject);
  var Word: variant;
begin
if RadioButton1.Checked=True then
Word:=CreateOleObject('Word.Application');
Word.Documents.Open('L:\ДИПЛОМ\test.doc') ;
end;
а он при запуске выдает не может найти файл. не пойму в чем дело


Kilkennycat   (2013-04-29 02:28:00) [1]


> не может найти файл

в делфи существуют функция fileexists, которую неплохо было бы использовать до попытки открытия, а также есть диалоговые всякие фигни, типа TOpenDialog, которые позволяют выбрать файл, и автоматом генерят путь к нему.
да и вопрос Плохиша тож имеет смысл обдумать.


brother   (2013-04-27 10:15:00) [2]

> 'L:\ДИПЛОМ\test.doc'


> внешний жесткий\ДИПЛОМ\ Дипломный проект

ты не учел эту папку


Ega23   (2013-04-23 17:16:00) [3]



procedure DoOpenWordDoc(FileName: string);
var
 w: Variant;
begin
 w := CreateOleObject('Word.Application');  //  <- сюда бряк и смотреть, что в FN пришло
 w.Documents.Open(FileName) ;
end;

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
 if RadioButton1.Checked then
   with TOpenDialog.Create(nil) do
   try
     if Execute then
       DoOpenWordDoc(FileName);
   finally
     Free;
   end;
end;


Плохиш   (2013-04-23 17:12:00) [4]


> я не правильно адрес прописал? а как лучше?

Надо как правильно. А как правильно нам от сюда не видно.

Зачем оно тебе, это программирование?


Дмитрий   (2013-04-23 17:09:00) [5]

документ лежит: компьютер\внешний жесткий\ДИПЛОМ\Дипломный проект
я не правильно адрес прописал? а как лучше?


O'ShinW   (2013-04-23 17:00:00) [6]

либо его там нет
либо не

> L:

а \\computer\share


Наверх

Титульная страница Поиск, карта сайта Написать письмо