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

finsoftrz

Кто просил сохранение wmf в rtf - прикрепил классик.

Игорь Столяров

Моя просила ! Спасибо, буду разбираться …

А в чём проявляется проблема совместимости у RTF с OpenOffice Writer ?

Yufil

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

finsoftrz

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

Например, погрешность при преобразовании единиц измерения по горизонтали. В ОО не поддерживаются некоторые конструкции, которые используются в МС.

Игорь Столяров

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

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

Yufil писал(а): 19 Сентябрь 2018, 14:29сгенерированные List & Label

Понятно, что там крутяк. Но дорого, нет сейчас таких задач. А снова, что-то тырить уже не охота …

BOB

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

kreator

Игорь Столяров писал(а): 19 Сентябрь 2018, 16:44 Потому что, что ставить на планшет офисный пакет или предлагать пользователям купить подписку
на майкрософаг офис - не очень плодородная мысль в наше экономически смутное время.

Боюсь спросить, какой такой планшет? По-хорошему, лайт-клиентам нужно ставить веб-версию. Надеюсь, там wmf конвертиться в html. Дальше куда сами хотят. Кстати, и стандартный отчёт нормально экспортируется в html. Этот html-файл, конечно, своеобразный, но снаружи всё путём.

Игорь Столяров

kreator писал(а): 19 Сентябрь 2018, 17:52Кстати, и стандартный отчёт нормально экспортируется в html

Вот здесь правда, да не вся ...
1. Абсолютно нет проблем создать из Clarion Report -> HTML страницу.
2. Для отправки отчёта по e-mail (например счёт) - это не подходит.
3. И главное - не путём.

С недавнего времени WMF графика в EDGE (штатный броузер Win10) - уже не показывается ...

finsoftrz

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

kreator

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

Почему?

Игорь Столяров

kreator писал(а): 20 Сентябрь 2018, 11:06Почему?

Потому, что при экспорте отчёта в HTML делается обёртка со вставкой WMF файлов.
Как это отправлять ? В архиве ? Распакуйте и посмотрите на наши чудеса …

Нужно как-то делать экспорт отчёта в один многостраничный файл известного формата: PDF, XPS, DOC, ODT, RTF ...

kreator

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

Как понять? Где её найти, эту обёртку?

Yufil

Вроде не в HTML, а в DOC через OLE или DDE интерфейc MS Word. Сам делал давным-давно...

Игорь Столяров

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

Игорь Столяров писал(а): 20 Сентябрь 2018, 13:33 Тоже мне бином Ньютона … Вот готовая вставка в ABREPORT.CLW:

И чьё это поделие?

Явно не моё.