Обычный текст -> RTF

Clarion, Clarion 7

Модератор: Дед Пахом

Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
Аватара пользователя
finsoftrz
✯ Ветеран ✯
Сообщения: 4553
Зарегистрирован: 06 Ноябрь 2014, 12:48
Благодарил (а): 6 раз
Поблагодарили: 34 раза

Обычный текст -> RTF

Сообщение finsoftrz »

Кто просил сохранение wmf в rtf - прикрепил классик.
Вложения
fsWmfToRtf.clw
(9.28 КБ) 339 скачиваний
FsWmfToRtf.inc
(1.18 КБ) 322 скачивания
C6/C11, ШВС, tps/btrieve.
Аватара пользователя
Игорь Столяров
Ветеран движения
Сообщения: 7324
Зарегистрирован: 07 Июль 2005, 10:19
Откуда: г. Ростов-на-ДоМу
Благодарил (а): 13 раз
Поблагодарили: 48 раз

Обычный текст -> RTF

Сообщение Игорь Столяров »

Моя просила ! Спасибо, буду разбираться … :)
А в чём проявляется проблема совместимости у RTF с OpenOffice Writer ?
За теми кто отстал - не возвращаться. (С) Кодекс
Yufil
Ветеран движения
Сообщения: 1277
Зарегистрирован: 16 Май 2006, 14:34
Контактная информация:

Обычный текст -> RTF

Сообщение Yufil »

у меня отчёты в RTF, сгенерированные List & Label, нормально отображаются в MS Writer,MS Word, Kingsoft/WPS Writer. А в OpenOffice выводится каша вместо таблиц. Правда, давно не смотрел, мож и допилили...
Аватара пользователя
finsoftrz
✯ Ветеран ✯
Сообщения: 4553
Зарегистрирован: 06 Ноябрь 2014, 12:48
Благодарил (а): 6 раз
Поблагодарили: 34 раза

Обычный текст -> RTF

Сообщение finsoftrz »

Игорь Столяров писал(а): 19 Сентябрь 2018, 13:48Моя просила ! Спасибо, буду разбираться … :)
А в чём проявляется проблема совместимости у RTF с OpenOffice Writer ?
Например, погрешность при преобразовании единиц измерения по горизонтали. В ОО не поддерживаются некоторые конструкции, которые используются в МС.
C6/C11, ШВС, tps/btrieve.
Аватара пользователя
Игорь Столяров
Ветеран движения
Сообщения: 7324
Зарегистрирован: 07 Июль 2005, 10:19
Откуда: г. Ростов-на-ДоМу
Благодарил (а): 13 раз
Поблагодарили: 48 раз

Обычный текст -> RTF

Сообщение Игорь Столяров »

Спасибо, понял на что обратить внимание … Заюзать RTF для отчётов Clarion - это очень хорошая идея.
И очень здорово, что Вы сумели это реализовать, я вот пару лет назад пробовал и не смог. :(

Потому что, что ставить на планшет офисный пакет или предлагать пользователям купить подписку
на майкрософаг офис - не очень плодородная мысль в наше экономически смутное время. :)
Yufil писал(а): 19 Сентябрь 2018, 14:29сгенерированные List & Label
Понятно, что там крутяк. Но дорого, нет сейчас таких задач. А снова, что-то тырить уже не охота … :)
За теми кто отстал - не возвращаться. (С) Кодекс
BOB
Ветеран
Сообщения: 336
Зарегистрирован: 17 Июль 2005, 5:43

Обычный текст -> RTF

Сообщение BOB »

Нет не кларионские и даже не нетовские, по моему из kernel32.dll что-то импортировалось , я уже не помню , давно перешел на html.
Попробуйте распечатать мой ртф так чтобы текст печатался на полную страницу .
Вложения
Документ20180920.rar
(3.66 КБ) 79 скачиваний
kreator
✯ Ветеран ✯
Сообщения: 4960
Зарегистрирован: 28 Май 2009, 15:54
Откуда: Москва
Благодарил (а): 6 раз
Поблагодарили: 19 раз

Обычный текст -> RTF

Сообщение kreator »

Игорь Столяров писал(а): 19 Сентябрь 2018, 16:44 Потому что, что ставить на планшет офисный пакет или предлагать пользователям купить подписку
на майкрософаг офис - не очень плодородная мысль в наше экономически смутное время. :)
Боюсь спросить, какой такой планшет? По-хорошему, лайт-клиентам нужно ставить веб-версию. Надеюсь, там wmf конвертиться в html. Дальше куда сами хотят. Кстати, и стандартный отчёт нормально экспортируется в html. Этот html-файл, конечно, своеобразный, но снаружи всё путём.
We are hard at work… for you. :)
Аватара пользователя
Игорь Столяров
Ветеран движения
Сообщения: 7324
Зарегистрирован: 07 Июль 2005, 10:19
Откуда: г. Ростов-на-ДоМу
Благодарил (а): 13 раз
Поблагодарили: 48 раз

Обычный текст -> RTF

Сообщение Игорь Столяров »

kreator писал(а): 19 Сентябрь 2018, 17:52Кстати, и стандартный отчёт нормально экспортируется в html
Вот здесь правда, да не вся ...
1. Абсолютно нет проблем создать из Clarion Report -> HTML страницу.
2. Для отправки отчёта по e-mail (например счёт) - это не подходит.
3. И главное - не путём. :(
С недавнего времени WMF графика в EDGE (штатный броузер Win10) - уже не показывается ...
За теми кто отстал - не возвращаться. (С) Кодекс
Аватара пользователя
finsoftrz
✯ Ветеран ✯
Сообщения: 4553
Зарегистрирован: 06 Ноябрь 2014, 12:48
Благодарил (а): 6 раз
Поблагодарили: 34 раза

Обычный текст -> RTF

Сообщение finsoftrz »

В html wmf не может конвертиться по определению, насколько знаю. Там просто делается html файлик - обертка, в которой прописываются ссылки на wmf-файлы страниц. Когда давно смотрел стандартный кларионовский экспорт в html, так работало. То есть создавался каталог, в который скидывались все wmf, а к нему подкладывался html-файлик с оберткой.
C6/C11, ШВС, tps/btrieve.
kreator
✯ Ветеран ✯
Сообщения: 4960
Зарегистрирован: 28 Май 2009, 15:54
Откуда: Москва
Благодарил (а): 6 раз
Поблагодарили: 19 раз

Обычный текст -> RTF

Сообщение kreator »

Игорь Столяров писал(а): 19 Сентябрь 2018, 18:14 2. Для отправки отчёта по e-mail (например счёт) - это не подходит.
Почему?
We are hard at work… for you. :)
Аватара пользователя
Игорь Столяров
Ветеран движения
Сообщения: 7324
Зарегистрирован: 07 Июль 2005, 10:19
Откуда: г. Ростов-на-ДоМу
Благодарил (а): 13 раз
Поблагодарили: 48 раз

Обычный текст -> RTF

Сообщение Игорь Столяров »

kreator писал(а): 20 Сентябрь 2018, 11:06Почему?
Потому, что при экспорте отчёта в HTML делается обёртка со вставкой WMF файлов.
Как это отправлять ? В архиве ? Распакуйте и посмотрите на наши чудеса … :)
Нужно как-то делать экспорт отчёта в один многостраничный файл известного формата: PDF, XPS, DOC, ODT, RTF ...
За теми кто отстал - не возвращаться. (С) Кодекс
kreator
✯ Ветеран ✯
Сообщения: 4960
Зарегистрирован: 28 Май 2009, 15:54
Откуда: Москва
Благодарил (а): 6 раз
Поблагодарили: 19 раз

Обычный текст -> RTF

Сообщение kreator »

Игорь Столяров писал(а): 20 Сентябрь 2018, 11:16 Потому, что при экспорте отчёта в HTML делается обёртка со вставкой WMF файлов.
Как понять? Где её найти, эту обёртку?
We are hard at work… for you. :)
Yufil
Ветеран движения
Сообщения: 1277
Зарегистрирован: 16 Май 2006, 14:34
Контактная информация:

Обычный текст -> RTF

Сообщение Yufil »

Вроде не в HTML, а в DOC через OLE или DDE интерфейc MS Word. Сам делал давным-давно...
Аватара пользователя
Игорь Столяров
Ветеран движения
Сообщения: 7324
Зарегистрирован: 07 Июль 2005, 10:19
Откуда: г. Ростов-на-ДоМу
Благодарил (а): 13 раз
Поблагодарили: 48 раз

Обычный текст -> RTF

Сообщение Игорь Столяров »

kreator писал(а): 20 Сентябрь 2018, 11:40Где её найти, эту обёртку?
Тоже мне бином Ньютона … :) Вот готовая вставка в ABREPORT.CLW:

Код: Выделить всё

! -- Экспорт отчтета в HTML

PrintPreviewClass.SaveAsHTML PROCEDURE

Loc:hName     CSTRING(256)
Loc:wName     CSTRING(256)
Loc:pBuffer   &IDynStr
Loc:pCount    Long

 Code
  Loc:hName = Clip(System{Prop:TempPath}) & Clip(Left(GetGUID()))  ! Имя файла с HTML отчётом, без расширения

  Loc:pBuffer &= NewDynStr()
  If ~(Loc:pBuffer &= Null)

     ! --- Создание морды HTML файла
     Loc:pBuffer.Cat('<html>'                                      & '<13><10>' & |
                     '<head>'                                      & '<13><10>' & |
                     '<title>' & Self.ESet.NameReport & '</title>' & '<13><10>' & |
                     '</head>'                                     & '<13><10>' & |
                     '<body>'                                      & '<13><10>')

     ! --- Экспорт тушки отчета в HTML файл
     Loop Loc:pCount = 1 to Records(SELF.ImageQueue) by 1
       Get(Self.ImageQueue,Loc:pCount)

       ! Имя файла с картинкой в отчёте (сначала номер, что бы файлы упорядочить по листам)
       Loc:wName = Loc:hName & '_' & Clip(Left(Loc:pCount)) & '.wmf'  

       Loc:pBuffer.Cat('<p><img src="file:///' & Loc:wName & '" width="' & |
                       SELF.PageManager.ImageWidth                       & |
                       '" height="'                                      & |
                       SELF.PageManager.ImageHeight                      & |
                       '"'                                               & |
                       'alt="Страница ' & Clip(Left(Loc:pCount)) & '"></p><13,10>')

       Copy(Self.ImageQueue,Loc:wName)  ! Копирование WMF файла
     end
     
     Loc:pBuffer.Cat('</body></html>')  ! Записать хвостик HTML файла
   
     ! Записать строку в файл и показать 
     If WriteIDynStrToFile(Loc:pBuffer,Loc:hName & '.htm') then Run(Loc:hName & '.htm').
     DisposeDynStr(Loc:pBuffer)
  end

За теми кто отстал - не возвращаться. (С) Кодекс
kreator
✯ Ветеран ✯
Сообщения: 4960
Зарегистрирован: 28 Май 2009, 15:54
Откуда: Москва
Благодарил (а): 6 раз
Поблагодарили: 19 раз

Обычный текст -> RTF

Сообщение kreator »

Игорь Столяров писал(а): 20 Сентябрь 2018, 13:33 Тоже мне бином Ньютона … :) Вот готовая вставка в ABREPORT.CLW:
И чьё это поделие? :mrgreen:
Явно не моё. :mrgreen:
We are hard at work… for you. :)
Ответить