Copies the binary representation of the specified MMS to the provided buffer.
MmsLib.bdh
MmsCopyMms( in hMms : number, out sMms : string, in nMaxMms : number optional, out nCopied : number optional ): boolean;
true if successful
false otherwise
Parameter | Description |
---|---|
hMms | Handle for the MMS, returned by a call to MmsCreateMms. |
sMms | Variable that retrieves the binary representation of the MMS. |
nMaxMms | Optional: Maximum length of the string that can be returned. This value must be less than or equal to the size of the string variable sMms. |
nCopied | Optional: Variable receiving the number of actually copied bytes. |
dcltrans transaction TInit var hMms : number; sMms : string(0x10000); nBytes : 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"); MmsAddFile(hMms, "smile.gif", WAP_CONTENT_ImageGif, "smile.gif", "smile.gif"); MmsCopyMms(hMms, sMms, STRING_COMPLETE, nBytes); Writedata(sMms, nBytes); MmsDeleteMms(hMms); end TInit;