Visual FoxPro

Check if a MIME Part is XML

Demonstrates the Chilkat Mime.IsXml method, which returns true only for text/xml or application/xml. It takes no arguments and applies to the current part.

Note: The file path is relative to the application's current working directory. Absolute paths may also be used. Supply the path to your own file.

Background: Identifying an XML part matters in machine-to-machine messaging — SOAP, EDI, structured data payloads — where you want to hand the body to an XML parser. Note it matches only the two canonical XML media types and not structured-suffix types like application/xhtml+xml, so check the exact type when those are relevant.

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loMime
LOCAL n
LOCAL loPart
LOCAL i

lnSuccess = 0

*  Demonstrates the Mime.IsXml method, which returns whether the Content-Type is text/xml or application/xml.  It takes no arguments and applies to the current
*  part.  This example iterates the parts of a multipart message and reports which ones match.

loMime = CreateObject('Chilkat.Mime')
lnSuccess = loMime.LoadMimeFile("qa_data/multipart_message.eml")
IF (lnSuccess = 0) THEN
    ? loMime.LastErrorText
    RELEASE loMime
    CANCEL
ENDIF

n = loMime.NumParts
loPart = CreateObject('Chilkat.Mime')

FOR i = 0 TO n - 1
    lnSuccess = loMime.PartAt(i,loPart)
    IF (lnSuccess = 0) THEN
        ? loMime.LastErrorText
        RELEASE loMime
        RELEASE loPart
        CANCEL
    ENDIF

    IF (loPart.IsXml()) THEN
        ? "Part " + STR(i) + " (" + loPart.ContentType + ") is XML."
    ENDIF

NEXT

RELEASE loMime
RELEASE loPart