Начала работать в Delphi, так что буду мучить глупыми и неочень вопросами...
Может ли прога открыть и вывести на экран doc-файл со встроенными в него объектами (формулами)? Если может, то как? Расскажите пожалуйста, очень нужно.
И еще просьба, дайте ссылку на стандартные процедуры и функции в Дельфе. Заранее спасиибо!

DRKB -> Работа с MS Word

Но про импорт формул я там ничего не вижу, да и вообще как-то мне это маловозможным кажется ...



Экхм, купи себе учебник хороший В интете полно онлайн учебников. Ну или спрашивай конкретно функции для работы с чем тебя интересуют ?

через OLE-контейнер можно попробовать....
сейчас поэкспериментирую, если удастся - расскажу.

Можно не пробовать, ибо все работает... На Сурсах мы как-то эту тему на 5 страницах развивали, там чего только через OLE не делали с этими формулами... Надо найти ссылку...

Сорри за нарушение правил...
Но только что выяснила, как выглядит OLE-контейнер физически:
Нажмите для просмотра прикрепленного файла

М

Юля, кстати, а ты знаешь, что OLE (Object Linking and Embedding) переводится на русский, как ПиВО (Подключение и Внедрение Объектов)? volvo

Для работы с числами (целыми, вещественными), чтения и вывода чисел (из/в Edit)...

Нашла на диске про OLE, буду разбираться, но ссылку все равно жду с нетерпением...

Для чтения и вывода...
Дело в том, что свойство Edit'a Text - это строка. Соответственно, ее надо преобразовать в число.
Для этого можно использовать либо паскалевский val, либо такие конструкции, как StrToInt для целых и StrToFloat для вещественных. И то, и другое - функции, поэтому:

a: integer;
...
a:=StrToInt(Edit6.Text);

Для вывода - наоборот: FloatToStr и IntToStr (либо паскалевский Str)
Для ввода целых чисел иногда удобнее использовать SpinEdit (закладка Samples палитры компонентов), свойство Value - это целое число.

А что еще ты хочешь с числами делать?


Знаю, конечно Это, пожалуй, единственное, что нам рассказали про OLE на лекции.

Спасибо!)))))))

Размечталась, что есть еще функции и для возведения в степень и т.п... Наивная...
А на счет doc'a я так поняла, что файл надо будет открывать в OleContainer'e. Если нет, то где и как?
p.s. кстати OLE - это почти в честь меня...

Подключаешь модуль Math и радуешься жизни: Power, IntPower, ...

Благодарствую! А про OLE я правильно поняла?

Да, работай через OLEContainer...

Ураааааааа! Я это сделала! Спасибо всем!
А вот теперь думаю. Моя прога, как я раньше хотела, должна была по нажатию кнопки открыть doc-файл (их много), но может обойтись без файлов, так все загнать? Посоветуйте, пожалуйста.
И еще. В OLEContainer'e есть что-нибудь вроде прокрутки (я не нашла, а текст большой, неудобно), и кнопки и Edit'ы на нем помещать ведь можно?

Айра, смотри:
Нажмите для просмотра прикрепленного файла

А всего-то навсего, я добавил одну строку:

    OleContainer1.CreateObjectFromFile(OpenDialog1.FileName, False);
    OleContainer1.DoVerb(1); { <--- Вот эту ... }

Спасибо!!! Вы меня спасли!!!
p.s. Надеюсь большую часть до завтра сделаю, а тогда недельку мне еще выделят...

А что надо сделать, если не секрет? Какое глобальное задание?

Извиняюсь, но за моей дурной головой, всему покоя нет...
дает доступ к редактированию текста, а в прог-ме это лишнее.
В моей книжке написано про ScrollBars (ssVertical), но в OLE я его не нашла. Есть что-нибуть похожее с этой штукой (скроллер вроде называется, забыла).

Нет в TOleContainer-е полос прокрутки...

Но твою проблему можно решить - попробуй сделать так:

procedure TForm1.Button1Click(Sender: TObject);
var ev: variant;
begin
  if OpenDialog1.Execute then begin
    OleContainer1.CreateObjectFromFile(OpenDialog1.FileName, False);
    OleContainer1.DoVerb(ovShow);
    ev := 2;
    OleContainer1.OleObject.Protect(ev); { <--- !!! }
  end;
end;

и отредактировать текст

Я хочу посмотреть, как это у тебя получится... Однако, прокрутка по-преднему работает...

Можно еще поотключать всякие ненужные менюшки/кнопочки, если надо - скажи, какие именно, я покажу как они отключаются...

Помнишь я просила натолкнуть на мысль по т/в - это сюда же. Вобщем должно получиться что-то вроде программы-учебника, в которой помимо теории и практики есть "мини-приложения", где можно ввести свои цифры, что-то посчитать и т.п.
А я (впрочем как и многие другие) начала все делать почти в последний момент...

Спасибо, volvo!
Сейчас начну, как что-то сделаю выложу, но не суди строго...

Вчера ночью (сегодня почти утром ) начала отвечать, но предательски закончилась карточка.
Вот что у меня получилось:

Большая часть кнопок не работает, но если опять попытаться открыть файл (еще раз надовить на кнопку), а потом нажать отмена, то картина получится следующей:

Нажмите для просмотра прикрепленного файла

Потом помучалась еще над своей прогой ('работают' только первые 4 раздела), получилось следующее (у меня скроллер на форме появлялся сам, когда запускала ее):
Нажмите для просмотра прикрепленного файла
Нажмите для просмотра прикрепленного файла
Нажмите для просмотра прикрепленного файла
Нажмите для просмотра прикрепленного файла
Вроде работает, но я особо над ней не издевалась... Жду различных отзывов...

p.s. если как-то неправильно вставила файлы (или не те, что не исключено), то научите?...

А можно весь проект заархивировать, и выложить (без EXE и DCU-файлов)? Чтобы можно было откомпилировать и посмотреть именно то, что есть у тебя ... Желательно с DOC-файлами ...

Можно:
Нажмите для просмотра прикрепленного файла
На текст особо не обращай внимания, он еще не доделан...

То есть, тебе не надо иметь возможности редактирования файлов?

1. На каждой форме ставишь у TOleContainer-а свойство AutoActivate -> aaManual, это запретит открывать файл для редактирования (вернее, открыть-то можно будет, только для того, чтобы это сделать надо будет выполнить DoVerb(ovPrimary), например, по нажатию кнопки)

2. Popup меню по клику правой кнопкой на TOleContainer-е тоже убираем: AutoVerbMenu -> False

Попробуй внести пока эти изменения...

Да

Спасибо!! Я об этом как раз спросить собиралась. Изменения успешно внесены))))
А так программа нормальная (всмысле работать будет нормально)?

Возникла проблема. Если doc занимает больше одной страницы, то в Ole выводится только первая.
Объясните, пожалуйста, почему и как это исправить?

Тебе уже предлагали вариант с Protect-ом... Ты от него почему-то отказалась... Если тебя все-таки заинтересует этот метод, посмотри вот этот проект:
Нажмите для просмотра прикрепленного файла

(там в папке Files только один исправленный файл, двухстраничный - запускай проект, сразу же жми на кнопку - это файл "Введение", и там, наверху, выше OleContainer-а, увидишь новую кнопочку... После нажатия на эту кнопку будет возможность листать содержимое файла, но никаких доп. панелек уже не будет - я их отключила)

Единственный недостаток этого метода - если пользователь откроет во время работы твоей программы Word, то он тоже будет безо всех тулбаров... Если тебя это не пугает - продолжай идти в этом направлении

А вообще-то, я бы попробовала создавать не несколько форм (по одной для каждого документа), а вообще одну, и ней создавать в TOleContainer-е нужный файл через OleContainer.CreateObjectFromFile... Тогда при изменении (тобой, НЕ программой) содержимого файлов не надо будет переприсоединять их к Контейнеру, не понадобится даже перекомпилировать проект, изменения вступят в силу сразу же...

Признаюсь честно, для меня это оказалось сложнова-то... да и инет тогда отрубился - пришлось делать как умею

Мне эту работу надо будет сдать на конференцию (районная сессия МАН). Ваши идеи - замечательные, большое за них спасибо, но если я сделаю так, мне скорее всего просто не поверят (да и совесть меня замучает - профи все сделали, а я просто тупо списала код)... Так что пусть лучше будет не очень хорошо, но зато свое.

Т.е. форма одна, а Unit'ов несколько? Я правильно поняла?
А тогда будет возможность открыть сразу несколько тем в разных окнах?

Я сейчас попробовала вставить в Ole "введения" edit , но во время выполнения он не двигается вместе с текстом, а в моем варианте двигался (но думаю и это дело попровимое?..).

Ну а все-таки есть другой способ исправить мою ошибку со страницами?

Не думаю, что тебе удастся неактивный (а у тебя он именно неактивный, активизируется OLE-Object вызовом DoVerb) TOLEContainer передвинуть на другую страницу...

А как его сделать активным или остается только Protect?

Боюсь тебя огорчить, но для того, чтобы сделать то, что тебе нужно с использованием Word-а тебе придется именно делать Protect с отключением всех тулбаров ...

Ну раз это единственный выход, то буду учиться)))
Что можете сказать на счет этого:
?

p.s. Можете, если не трудно, объяснить мне, что здесь делается (раз уж надо делать так, то надо понять это):


p.s. Как обычно в последние моменты на меня сходит озарение))) Зачем мне помещать edit'ы и кнопки в OleContainer'е, если это можно сделать под ним!? Так что вопрос отпадает...

Можем... Смотри:

procedure TForm2.Button1Click(Sender: TObject);
var
  ev: olevariant;
  i: integer;
const
  wdNumberOfPagesInDocument = 4; { <--- Это - лишняя строка ... }
begin
    OleContainer1.DoVerb(ovShow); { Активизируем OLE объект, причем методом Show }
    ev := 2; { <--- степень защиты OLE - объекта, "только чтение" }

    // А вот тут - проходим по всем тулбарам связанного с контейнером приложения
    // и устанавливаем всем невидимость, чтоб не мешали ...
    for i:=1 to OleContainer1.OleObject.CommandBars.Count do
      if OleContainer1.OleObject.CommandBars.Item[i].Visible then
        OleContainer1.OleObject.CommandBars.Item[i].Visible:=False;

    // Ну, и наконец - устанавливаем желаемый уровень защиты
    OleContainer1.OleObject.Protect(ev);
end;

Кстати, я не отвечал потому, что сделал тебе еще один альтернативный вариант: использование TWebBrowser-а (да, да, именно его ) и в нем - открытие того же самого файла, только сохраненного Word-ом в формат MHT - Web Archive... Посмотри, как это может выглядеть:

С процедурой я разобралась, спасибо)))

Попробовала открыть и выполнить project1.dpr, но мне вылезло 'class TWebBrowser not found' и SHDocVw.dcu тоже не найден((( Где можно их взять?

Значит, у тебя в Дельфи они не установлены... Странно. В Delphi 6 Enterprise это все уже есть... Какая версия у тебя?

Сейчас еще больше удивишься, у меня как раз Delphi 6 Enterprise
Когда я открывала project1.dpr мне вылезло вот что:
Нажмите для просмотра прикрепленного файла
Я нажимала и 'пропуск', и 'отмена' результат одинаковый(((
А при выполнении это:
Нажмите для просмотра прикрепленного файла

У тебя что, вот этого файла нет?

Нет((( А можно его сюда выложить?
Кстати, у меня в Source вообще только Rtl, Samples и Vcl!? Может у меня версия неполная...

Слишком много выкладывать придется... Если бы это было так просто Все сложнее, значит у тебя не установлены Packages... Зайди в меню Component -> Install Packages, и проверь, есть ли у тебя "Internet Explorer Components" (это файл {Delphi Path}\Bin\dclie60.bpl)

Если нет - то придется тебе искать этот Package (если он нужен, конечно...)

Нет
Ну что ж, попробую поикать.
А можно посмотреть, как оно должно было работать (на картинке)

Вот так:

Да. Выглядит отлично)))


Ищу, но пока не выходит (надо было хорошо учить английский)

Не могу найти
Как правильно назвать в поиске?




добавлено: нашла HTML Utils 1.0, не оно?

Я вышлю тебе этот файл, но если вдруг он потребует еще чего-то, то...

Распакуй BPL в папку BIN, зайди туда, куда я написал выше, и попробуй добавить компонент, выбери этот файл... Может и получится...

А, нет... Не получится... У тебя же исходников нету...

Пишет, что vclie60.bpl а потом и dclie60.bpl (странно) не найдены.

Sorry, слишком долго отвечала...
Вобщем пишу что нашла, что-нибудь подходит?

RichView (Delphi version) 1.9.24 - Пакет компонентов для Delphi, позволяющих просматривать, редактировать ... гипертекстовые документы ... экспорт в HTML, импорт ...

TextToHTML 1.0 - Компонент позволяющий конвертировать обычные строки в HTML-код для правильного визуального восприятия в соответсвии с маркировкой языка HTML. Например, &(&), <(<)

NewPas III 1 - в нем более 20 компонентов, среди которых есть BrowseExecutor.

исходники HTMLCoolEdit`а 1.261 - HTMLCoolEdit - это тэговый HTML-редактор с исходниками (Delphi5), позволяющий работать над текстом в стиле 1st Page 2000, HomeSite, AceExpert и др.

PowerPack for FastReport2.47 2.47 - Импорт из MS Word ... Экспорт в RTF, XLS, HTM...




p.s. чувствую себя идиоткой...)))

Больше ничего толкового не нашла, но завтра днем должны принести, вроде как, полную Delphi 5 или 6. Буду ждать... А пока, не объясните эту процедуру?))

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(ExtractFileDir(ParamStr(0)) + '\part_2.mht');
  WebBrowser1.Navigate(ExtractFileDir(ParamStr(0)) + '\part_2.mht');
end;

Ну, первая строка опять же тестовая, ее можно и убрать... Я сначала проверяю, правильно ли конструируется путь к файлу, и только потом пытаюсь его загрузить в TWebBrowser (Navigate работает не только с URL-ами, а и с любыми локальными файлами, которые в принципе открываются Internet Expolorer-ом)

Понятно, спасибо!

Принесли мне Delphi5, не на родном диске, а так, папку с компа загнали, вообщем сама по себе она не работает, но нужные файлы есть. Я все чего у меня не было перенесла в 6-ю и вышеописанные проблемы исчезли, но... когда компилируешь проект получается следующее (курсор на месте ошибки):
Нажмите для просмотра прикрепленного файла
Это можно исправить? Или это глюк симбиоза 5-й и 6-й версий)))

Попробуй вот этот файл (это из шестой версии):


Добавлено через 1 мин. 57 сек.
Если тоже не сработает - значит, глюк

Заменила свой файл.
А вот дальше, может это и бред, но я удалила из uses'a SHDocVw и все заработало
Буду переделывать программу.
Большое спасибо!!!




p.s. если не получится, ждите еще партию вопросов)))

Переделала первые 4 пункта "Главного меню".

p.s. Какой еще вопрос по программе может задать девушка))) => где мне взять такой же скроллер (красивый) как был на твоем примере (на прошлой странице), а то у меня все под Windows98?