Visual FoxPro

Check if a MIME Part is Audio

Demonstrates the Chilkat Mime.IsAudio method, which returns whether the Content-Type begins with audio/. 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: Useful for classifying media attachments — a voicemail or audio note in a message, for example — so it can be routed to a player or handled distinctly from other content. It matches any audio/ subtype.

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.IsAudio method, which returns whether the Content-Type begins with audio/.  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.IsAudio()) THEN
        ? "Part " + STR(i) + " (" + loPart.ContentType + ") is audio."
    ENDIF

NEXT

RELEASE loMime
RELEASE loPart