DataFlex

Convert Inline Data-URL Images to Related Parts

Demonstrates the Chilkat Email.ConvertInlineImages method, which converts images embedded inline within HTML (as base64 data URLs) into multipart/related MIME parts referenced from the HTML by cid:. This example sets an HTML body containing a data-URL image and converts it.

Background: HTML can embed an image two ways: as a data: URL (the base64 bytes sit right in the src attribute) or as a related part referenced by cid:. Many email clients don't render data: URLs for security reasons, so converting them to proper multipart/related parts — the traditional email way to embed images — greatly improves how reliably the images display.

Chilkat DataFlex Downloads

Download Chilkat for DataFlex

DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoEmail
    String sTemp1
    Integer iTemp1

    Move False To iSuccess

    //  Demonstrates the ConvertInlineImages method, which converts images embedded inline within
    //  HTML (as base64 data URLs) into multipart/related MIME parts referenced from the HTML by
    //  CID.

    Get Create (RefClass(cComChilkatEmail)) To hoEmail
    If (Not(IsComObjectCreated(hoEmail))) Begin
        Send CreateComObject of hoEmail
    End
    Set ComSubject Of hoEmail To "Convert inline images"

    //  An HTML body with a base64 data-URL image (a 1x1 PNG).
    Send ComSetHtmlBody To hoEmail '<html><body><img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABCAQAAAC1HAwCAAAAC0lEQVR42mP8z8BQDwAEhQGAhKmMIQAAAABJRU5ErkJggg=="/></body></html>'

    Get ComNumRelatedItems Of hoEmail To iTemp1
    Showln "NumRelatedItems before = " iTemp1

    //  Convert the inline data-URL image(s) to multipart/related parts referenced by CID.

    Get ComConvertInlineImages Of hoEmail To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoEmail To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComNumRelatedItems Of hoEmail To iTemp1
    Showln "NumRelatedItems after = " iTemp1


End_Procedure