Domino 9 und frühere Versionen > ND8: Entwicklung

Mit DXL Arbeiten

<< < (2/2)

pram:
Einen Artikel hab ich leider nicht, aber ich kann in Etwa aufzeigen wie wir das gemacht haben (Bitte aber um Verständnis, dass ich nicht den kompletten Code posten werde, insbesondere das XSLT da doch relativ viel Know how darinsteckt. Der Code ist weiterhin stark verkürzt, ich hab mir erlaubt die meisten DIM's weg zu lassen  ;) )


--- Code: ---' also, als erstes brauchen wir hier eine Klasse die das als "Einheit" zusammenfasst
Public Class FocConvertRtfToMime As FocSldObject
  private state as integer ' Variable für die Statemachine
  currElement as string ' aktuelles Element

  ' Die DXL-Konvertierungsmethode
  Private Function doDxlConversion(doc As NotesDocument, item As String, htmlStream As NotesStream)
    Set  exporter =  session.CreateDXLExporter
    exporter.ConvertNotesbitmapsToGIF = True ' Pflicht
    Call exporter.SetInput(doc)
    Set  parser = session.CreateSAXParser(exporter)

    ' Hier werden die Callbacks des Sax-Parsers registriert
    On Event SAX_StartElement From parser Call SAXStart
    On Event SAX_Characters From parser Call SAXChar
    On Event SAX_EndElement From parser Call SAXEnd
    Set  xsltStream =  session.CreateStream
    Call xsltStream.WriteText(XSLT_TRANSFORM) ' hier das XSLT welches sich für die RTF->HTML-Übersetzung kümmert
    ' Die Idee die dahinter steckt stammen aus http://pd4ml.com/i/Dev_Spellman_Leverage%20DXL.pdf
    xsltStream.Position = 0
    Set  transformer =  session.CreateXSLTransformer(parser,xsltStream,htmlStream)
    Call exporter.process() ' Stößt die Kette DXL-Export->SAX->XSLT an. Das fertige HTML steht nun in htmlstream
  end function

  ' Diese Sub wird immer dann aufgerufen, wenn der Saxparser an einen öffnenden Tag vorbei kommt
  Sub SAXstart (Source As Notessaxparser, Byval elementname As String, Attributes As NotesSaxAttributeList)
    Select Case (elementname)
      Case "item":
        If Lcase(Attributes.GetValue("name"))="body" Then
          state = START_CONVERT
        End If
    End Select
    currElement = elementname ' aktuellen Elementnamen merken (für saxchar)
    if (state >= START_CONVERT) then
      Source.Output("<" + elementname) ' element 1:1 nach Output (sprich XSLT) schreiben
      i = Attributes.Length
      While(i > 0) ' Nun noch die Attribute schreiben (umständlich, geht leider nicht anders)
        Call source.Output(" " +Attributes.GetName(i)+"=")
        Call source.Output({"} +FocXMLTools.escape(Attributes.GetValue(i))+ {"})
        i = i - 1
      Wend
      Source.Output(">") ' fertig
    end if
  end sub

  ' wird immer nach SaxStart aufgerufen, wenn Zeichen im jeweiligen Tag enthalten sind
  Sub SAXChar (Source As Notessaxparser, Byval Characters As String, Count As Long)
    if state < START_CONVERT then exit sub ' noch nichts zu tun
    Select Case currElement
    Case "gif","jpeg": Source.Output(createImage(characters, currElement)) ' einen Anhang erzeuten
    Case Else: Source.Output(FocXMLTools.escape(characters)) ' Stream 1:1 an den XSL-Transformer weitergeben
    End Select
  end sub

  ' wird beim schließenden Tag aufgerufen (Tags wie <par/> rufen unmittelbar saxStart + saxEnd auf)
  Sub SAXend (Source As Notessaxparser, Byval ElementName As String)
    if state < START_CONVERT then exit sub ' noch nichts zu tun
    if currElement = "item" then state = STOP_CONVERT
  end sub

  ' erzeugt Bild
  Private Function createImage(base64content As String, imagetype As String) As String
    call writeBase64ToMime(base64content, "image" + imgCount + "." +imagetype)  ' Das Bild in das Mime-Feld schreiben
    createImage = "<img src = 'image" + imgCount + "." +imagetype +"'/>" ' entsprechenden HTML-Tag generieren
  end function

end class

--- Ende Code ---

Im Wesentlichen ist dies also eine Pipeline aus DXL-Export->SAX->XSLT->Notesstream wobei der Sax-Parser hier eine vorverarbeitung macht, in dem er GIF/JPEG-Tags als Attachments eines MIME-Entities schreibt und den restl. DXL-Stream an den XSLT weiter leitet. Dieser macht dann die restl. Konvertierung von RTF->HTML (er macht es noch nicht perfekt, aber besser als der HTTP-Task in Notes  ;D)

Den SAX-Teil hab ich mit den notwendigen Callbacks und Statusvariablen in eine eigene Klasse gepackt (so wie es sich gehört  :) ), dann wirds übersichtlich(er)

Ich hoffe ich konnte dir und evtl ein paar anderen die zündende Idee liefertn

Gruß
Roland

Navigation

[0] Themen-Index

[*] Vorherige Sete