Просмоторщик для файлов word

← →
Nata Kirhar (2003-12-08 11:23) [0]

Здравствуйте снова!
Что-то не нашла свой старый топик, ладно.
Вот посмотрела FAQ о Оле контейнерах, написала программу,
но насколько я понимаю она работает только там где стоит офис?
Если да то как можно решить проблему, чтобы просматривать
файлы без установленного офиса.
И еще бывает после нескольких раз запуска приложения вылитает
ошибка что нехватает памяти для загрузки шрифта.

И еще один вопрос по поводу перехвата клавиш в нутри преложенния
при помощи события OnMessage for Apllication. Не чего не понятно
как и что может набросаите примерчик, а то FAQ нет ничего об этом.

var V: variant;

procedure TMainForm.mnOpenWordClick(Sender: TObject);
begin

OpenDialog1.DefaultExt := "*.doc;*.rtf";
OpenDialog1.Filter := "Word Files (*.doc;*.rtf)";
OpenDialog1.FileName := OpenDialog1.DefaultExt;

if OpenDialog1.Execute and (OpenDialog1.FileName <> "") then
begin
try
OleContainer1.CreateObjectFromFile(OpenDialog1.FileName,False);
except
EOleError.Create("Somting Error...")
end;
if OleContainer1.State <> osEmpty then
begin
OleContainer1.DoVerb(ovShow);
V:= OleContainer1.OleObject.Application.WordBasic
end;
end;
end;

procedure TMainForm.mnCloseWordFileClick(Sender: TObject);
begin
if OleContainer1.State <> osEmpty then
begin
OleContainer1.Free;
end;
end;

← →
Shirson © (2003-12-08 12:05) [1]

>Nata Kirhar (08.12.03 11:23)
Здравствуйте снова!
Что-то не нашла свой старый топик, ладно.
Вот посмотрела FAQ о Оле контейнерах, написала программу,
но насколько я понимаю она работает только там где стоит офис?
Если да то как можно решить проблему, чтобы просматривать
файлы без установленного офиса.

Это называется "Мама, роди меня обратно.". Если нужно грузить именно .doc файлы, даже браться не стоит.

Просмоторщик для файлов word Найти похожие ветки