forum.clarionlife.net

Место общения программистов, форум разработчиков БД на Clarion
https://forum.clarionlife.net/

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

https://forum.clarionlife.net/viewtopic.php?t=4332

Страница 2 из 9

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

Добавлено: 19 Сентябрь 2018, 13:35
finsoftrz
Кто просил сохранение wmf в rtf - прикрепил классик.

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

Добавлено: 19 Сентябрь 2018, 13:48
Игорь Столяров
Моя просила ! Спасибо, буду разбираться … :)
А в чём проявляется проблема совместимости у RTF с OpenOffice Writer ?

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

Добавлено: 19 Сентябрь 2018, 14:29
Yufil
у меня отчёты в RTF, сгенерированные List & Label, нормально отображаются в MS Writer,MS Word, Kingsoft/WPS Writer. А в OpenOffice выводится каша вместо таблиц. Правда, давно не смотрел, мож и допилили...

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

Добавлено: 19 Сентябрь 2018, 15:54
finsoftrz
Игорь Столяров писал(а): 19 Сентябрь 2018, 13:48Моя просила ! Спасибо, буду разбираться … :)
А в чём проявляется проблема совместимости у RTF с OpenOffice Writer ?
Например, погрешность при преобразовании единиц измерения по горизонтали. В ОО не поддерживаются некоторые конструкции, которые используются в МС.

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

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

Потому что, что ставить на планшет офисный пакет или предлагать пользователям купить подписку
на майкрософаг офис - не очень плодородная мысль в наше экономически смутное время. :)
Yufil писал(а): 19 Сентябрь 2018, 14:29сгенерированные List & Label
Понятно, что там крутяк. Но дорого, нет сейчас таких задач. А снова, что-то тырить уже не охота … :)

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

Добавлено: 19 Сентябрь 2018, 17:23
BOB
Нет не кларионские и даже не нетовские, по моему из kernel32.dll что-то импортировалось , я уже не помню , давно перешел на html.
Попробуйте распечатать мой ртф так чтобы текст печатался на полную страницу .

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

Добавлено: 19 Сентябрь 2018, 17:52
kreator
Игорь Столяров писал(а): 19 Сентябрь 2018, 16:44 Потому что, что ставить на планшет офисный пакет или предлагать пользователям купить подписку
на майкрософаг офис - не очень плодородная мысль в наше экономически смутное время. :)
Боюсь спросить, какой такой планшет? По-хорошему, лайт-клиентам нужно ставить веб-версию. Надеюсь, там wmf конвертиться в html. Дальше куда сами хотят. Кстати, и стандартный отчёт нормально экспортируется в html. Этот html-файл, конечно, своеобразный, но снаружи всё путём.

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

Добавлено: 19 Сентябрь 2018, 18:14
Игорь Столяров
kreator писал(а): 19 Сентябрь 2018, 17:52Кстати, и стандартный отчёт нормально экспортируется в html
Вот здесь правда, да не вся ...
1. Абсолютно нет проблем создать из Clarion Report -> HTML страницу.
2. Для отправки отчёта по e-mail (например счёт) - это не подходит.
3. И главное - не путём. :(
С недавнего времени WMF графика в EDGE (штатный броузер Win10) - уже не показывается ...

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

Добавлено: 19 Сентябрь 2018, 18:20
finsoftrz
В html wmf не может конвертиться по определению, насколько знаю. Там просто делается html файлик - обертка, в которой прописываются ссылки на wmf-файлы страниц. Когда давно смотрел стандартный кларионовский экспорт в html, так работало. То есть создавался каталог, в который скидывались все wmf, а к нему подкладывался html-файлик с оберткой.

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

Добавлено: 20 Сентябрь 2018, 11:06
kreator
Игорь Столяров писал(а): 19 Сентябрь 2018, 18:14 2. Для отправки отчёта по e-mail (например счёт) - это не подходит.
Почему?

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

Добавлено: 20 Сентябрь 2018, 11:16
Игорь Столяров
kreator писал(а): 20 Сентябрь 2018, 11:06Почему?
Потому, что при экспорте отчёта в HTML делается обёртка со вставкой WMF файлов.
Как это отправлять ? В архиве ? Распакуйте и посмотрите на наши чудеса … :)
Нужно как-то делать экспорт отчёта в один многостраничный файл известного формата: PDF, XPS, DOC, ODT, RTF ...

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

Добавлено: 20 Сентябрь 2018, 11:40
kreator
Игорь Столяров писал(а): 20 Сентябрь 2018, 11:16 Потому, что при экспорте отчёта в HTML делается обёртка со вставкой WMF файлов.
Как понять? Где её найти, эту обёртку?

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

Добавлено: 20 Сентябрь 2018, 13:09
Yufil
Вроде не в HTML, а в DOC через OLE или DDE интерфейc MS Word. Сам делал давным-давно...

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

Добавлено: 20 Сентябрь 2018, 13:33
Игорь Столяров
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

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

Добавлено: 20 Сентябрь 2018, 14:14
kreator
Игорь Столяров писал(а): 20 Сентябрь 2018, 13:33 Тоже мне бином Ньютона … :) Вот готовая вставка в ABREPORT.CLW:
И чьё это поделие? :mrgreen:
Явно не моё. :mrgreen:
Часовой пояс: UTC+03:00
Страница 2 из 9

Создано на основе phpBB® Forum Software © phpBB Limited

Русская поддержка phpBB