MmsAddFileEx Function

Action

Adds a file to the MMS body. The content type is specified as text. Use this function to append content with no well-known (numeric) content type.

Include file

MmsLib.bdh

Syntax

MmsAddFileEx( in hMms             : number,
              in sFile            : string,
              in sContentType     : string,
              in sContentId       : string,
              in nContentLocation : string ): boolean;

Return value

true if successful
false otherwise

Parameter	Description
hMms	Handle for the MMS, returned by a call to MmsCreateMms.
sFile	File to add to the MMS.
sContentType	Specifies the content type. See mmslib.bdh for available values.
sContentId	Specifies the content ID.
sContentLocation	Specifies the content location.

Example

dcltrans
  transaction TInit
  var
    hMms : number;
  begin
    MmsCreateMms(hMms);
    MmsSetHeader(hMms, MMS_HEADER_MsgType, MMS_M_SEND_REQ);
    MmsSetHeader(hMms, MMS_HEADER_MmsVersion, MMS_MSGVERSION_10);
    MmsSetHeader(hMms, MMS_HEADER_ContentType, WAP_CONTENT_ApplicationVndWapMultipartRelated);
    MmsSetHeaderString(hMms, MMS_HEADER_From, "31743678001");
    MmsSetHeaderString(hMms, MMS_HEADER_To, "31743689031");
    MmsSetHeaderString(hMms, MMS_HEADER_TransactionId, "17");
    MmsAddFileEx(hMms, "audio.amr", "audio/amr", "sound", "sound");
    WapPostMms("http://10.5.8.12:8899/mmsc", hMms);
    MmsDeleteMms(hMms);
  end TInit;