Страница 1 из 1
Кто хорошо разбирается в Delphi, нужна помощь
Добавлено: 21 мар 2010, 17:02
mau89
В общем задача вот такая, нужно написать приложение которое сможет, открывать файл MS Visio и делать разбор этой диаграммы, т.е брать допустим каждую стрелочку считывать что написанно в ней заносить потом это все в файл MS Word. Кто сможет помочь подсказать или что нибудь посоветовать?

т.к я один не смогу это написать, а если не напишу то мне

Нужно это для курсовой по специальности на 4 курс в ИМиКН

Добавлено: 21 мар 2010, 19:35
slart
сочувствую. насколько знаю, мсворд закрытый формат. про визио щас позырим
Добавлено спустя 2 минуты 18 секунд:
а так-то нехилые заданьица стали давать.
Добавлено: 21 мар 2010, 19:41
mau89
Вот и я о том же да

мне надо просто как отчет создать с полученными данными, это же можно сделать через макрос если не ошибаюсь, просто выгрузить инфу в ворд
Добавлено: 21 мар 2010, 19:42
windym
попробуй подключиться из своей программы к Visio
дальше записывай макросы в visio и совершай те действия, которые должна выполнять программа, и смотри что за код в них записывается
Добавлено спустя 1 минуту 38 секунд:
а в ворд не проблема выгрузить, у делфи есть компоненты для работы с вордом
Добавлено: 21 мар 2010, 19:52
mau89
Проблема что я только начал это делать, и кроме тех задания у меня ничего нет, как начать я не в курсе поэтому и спрашиваю здесь, может кто нибудь помочь. А если я не ошибаюсь то макрос же пишет определенные действия которые сделал, следовательно другую диаграмму он не разберет, а мне нужно чтоб он разные разбирал

Добавлено: 21 мар 2010, 20:07
windym
я именно с Visio не работал
но могу подсказать первые шаги
1 в главный var где у тебя записанно Form1:Form; добавь строчку Visio: Variant;
2 но кнопку повесь событие OnClick
3 вставь в него следующие строчки:
Visio := CreateOleObject('Visio.Application');
Viso.Workbooks.Open[Edit1.Text] ; - в эдите у тебя будет записан полный адрес файла который ты открываешь
Visio.Visible:=true;
P.s. пишу по памяти, с делфи уже давно не работал
этот код должен открыть visio файл
Добавлено: 21 мар 2010, 22:21
slart
да.. через комобъекты придется.