SQL Server

Check if a MIME Part is Application Data

Demonstrates the Chilkat Mime.IsApplicationData method, which returns whether the Content-Type begins with application/. 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: The application/ family covers everything that is not plain media or text — PDFs, Office documents, ZIP archives, JSON, and the S/MIME application/pkcs7-* types. This broad check is a quick way to flag "binary document" parts, though you will usually look at the specific subtype to decide how to handle each.

Chilkat SQL Server Downloads

Download Chilkat for SQL Server

SQL Server

--
CREATE PROCEDURE ChilkatSample
AS
BEGIN
    DECLARE @hr int
    DECLARE @iTmp0 int
    DECLARE @sTmp0 nvarchar(4000)
    DECLARE @success int
    SELECT @success = 0

    --  Demonstrates the Mime.IsApplicationData method, which returns whether the Content-Type begins with application/.  It takes no arguments and applies to the current
    --  part.  This example iterates the parts of a multipart message and reports which ones match.

    DECLARE @mime int
    EXEC @hr = sp_OACreate 'Chilkat.Mime', @mime OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    EXEC sp_OAMethod @mime, 'LoadMimeFile', @success OUT, 'qa_data/multipart_message.eml'
    IF @success = 0
      BEGIN
        EXEC sp_OAGetProperty @mime, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @mime
        RETURN
      END

    DECLARE @n int
    EXEC sp_OAGetProperty @mime, 'NumParts', @n OUT
    DECLARE @part int
    EXEC @hr = sp_OACreate 'Chilkat.Mime', @part OUT

    DECLARE @i int

    SELECT @i = 0
    WHILE @i <= @n - 1
      BEGIN
        EXEC sp_OAMethod @mime, 'PartAt', @success OUT, @i, @part
        IF @success = 0
          BEGIN
            EXEC sp_OAGetProperty @mime, 'LastErrorText', @sTmp0 OUT
            PRINT @sTmp0
            EXEC @hr = sp_OADestroy @mime
            EXEC @hr = sp_OADestroy @part
            RETURN
          END
        EXEC sp_OAMethod @part, 'IsApplicationData', @iTmp0 OUT
        IF @iTmp0
          BEGIN


            EXEC sp_OAGetProperty @part, 'ContentType', @sTmp0 OUT

            PRINT 'Part ' + @i + ' (' + @sTmp0 + ') is application data.'
          END
        SELECT @i = @i + 1
      END

    EXEC @hr = sp_OADestroy @mime
    EXEC @hr = sp_OADestroy @part


END
GO