PowerBuilder Requires Chilkat v11.0.0+

Create Binary MIME

See more MIME Examples

Demonstrates how to create and save a multipart/mixed MIME document where the parts (a JPG and a PDF) are NOT base64 encoded, but are instead binary. PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Mime
oleobject loo_JpgPart
oleobject loo_PdfPart
oleobject loo_BinData
oleobject loo_Email
oleobject loo_Sb

li_Success = 0

//  This example requires the Chilkat API to have been previously unlocked.
//  See Global Unlock Sample for sample code.

loo_Mime = create oleobject
li_rc = loo_Mime.ConnectToNewObject("Chilkat.Mime")
if li_rc < 0 then
    destroy loo_Mime
    MessageBox("Error","Connecting to COM object failed")
    return
end if

loo_Mime.SetBodyFromPlainText("This is the plain text body.")
loo_Mime.ConvertToMultipartMixed()
loo_Mime.AppendPartFromFile("qa_data/jpg/penguins.jpg")
loo_Mime.AppendPartFromFile("qa_data/pdf/fishing.pdf")

//  At this point, when saved, the MIME bodies will be base64 encoded.
loo_Mime.SaveMime("qa_output/sample.txt")

//  We now have the following MIME where everything is base64 encoded:
//  The code that follows shows how to eliminate the base64 to make this binary MIME.

//  	Content-Type: multipart/mixed; boundary="------------000207060703080505060404"
//  
//  	--------------000207060703080505060404
//  	Content-Type: text/plain
//  	Content-Transfer-Encoding: 7bit
//  
//  	This is the plain text body.
//  	--------------000207060703080505060404
//  	Content-Disposition: attachment; filename="penguins.jpg"
//  	Content-Type: image/jpeg; name="penguins.jpg"
//  	Content-Transfer-Encoding: base64
//  
//  	/9j/4AAQSkZJRgABAgEAYABgAAD/7gAOQWRvYmUAZAAAAAAB/+ESCEV4aWYAAE1NACoAAAAIAAcB
//  	MgACAAAAFAAAAGIBOwACAAAABwAAAHZHRgADAAAAAQAEAABHSQADAAAAAQA/AACcnQABAAAADgAA
//  	...
//  	800a1MlLipJHlyU9en7sqVPkBK+gBj+o+1E91Ld7iJk0pJDO5PmDk4FOGOHy6S3JW120W1uCJ5M0
//  	PBa54edOFAc8ePX/2Q==
//  
//  	--------------000207060703080505060404
//  	Content-Disposition: attachment; filename="fishing.pdf"
//  	Content-Type: application/pdf; name="fishing.pdf"
//  	Content-Transfer-Encoding: base64
//  
//  	JVBERi0xLjMKJcfsj6IKNSAwIG9iago8PC9MZW5ndGggNiAwIFIvRmlsdGVyIC9GbGF0ZURlY29k
//  	ZT4+CnN0cmVhbQp4nM1c288cNxVX09A0myq35tom7bSl8E1hp76P/YpASIiXlEg8tDwVKEJfilIe
//  	...
//  	MDRGMT48OTlENkRFQzExQjkzNjA0Mjc1RUFCNzIyMjI4RjA0RjE+XQo+PgpzdGFydHhyZWYKMjk0
//  	MzY5CiUlRU9GCg==
//  
//  	--------------000207060703080505060404--
//  

//  To make it binary MIME (getting rid of the base64), set the Encoding property to "binary"
//  for the JPG and PDF parts.

loo_JpgPart = create oleobject
li_rc = loo_JpgPart.ConnectToNewObject("Chilkat.Mime")

loo_Mime.PartAt(1,loo_JpgPart)

loo_JpgPart.Encoding = "binary"

loo_PdfPart = create oleobject
li_rc = loo_PdfPart.ConnectToNewObject("Chilkat.Mime")

loo_Mime.PartAt(2,loo_PdfPart)

loo_PdfPart.Encoding = "binary"

//  Now save it.  If you try to view this MIME in a text editor,
//  the JPG and PDF parts will be garbled and unintelligible. That's because
//  the bytes do not represent characters.
loo_Mime.SaveMime("qa_output/sampleBinary.mim")

//  The MIME now contains this:

//  	Content-Type: multipart/mixed; boundary="------------000207060703080505060404"
//  
//  	--------------000207060703080505060404
//  	Content-Type: text/plain
//  	Content-Transfer-Encoding: 7bit
//  
//  	This is the plain text body.
//  	--------------000207060703080505060404
//  	Content-Disposition: attachment; filename="penguins.jpg"
//  	Content-Type: image/jpeg; name="penguins.jpg"
//  	Content-Transfer-Encoding: binary
//  
//  	<Binary Data Here>
//  
//  	--------------000207060703080505060404
//  	Content-Disposition: attachment; filename="fishing.pdf"
//  	Content-Type: application/pdf; name="fishing.pdf"
//  	Content-Transfer-Encoding: binary
//  
//  	<Binary Data Here>
//  
//  	--------------000207060703080505060404--
//  

//  Can we load this binary MIME into an Email object?
loo_BinData = create oleobject
li_rc = loo_BinData.ConnectToNewObject("Chilkat.BinData")

//  Write the binary MIME into binData;
loo_Mime.GetMimeBd(loo_BinData)

loo_Email = create oleobject
li_rc = loo_Email.ConnectToNewObject("Chilkat.Email")

//  Load the email from the binData.
loo_Email.SetFromMimeBd(loo_BinData)

//  Note: Many email clients may not be able to correctly process emails
//  using the binary encoding.  Thunderbird has trouble.  Windows Live Mail
//  worked OK.
loo_Email.Subject = "Binary MIME Email"
loo_Email.From = "admin@chilkatsoft.com"
loo_Email.AddTo("Chilkat","support@chilkatsoft.com")
loo_Email.SaveEml("qa_output/binaryEmail.eml")

//  Chilkat does not recommend trying to use binary MIME for email.
//  Binary MIME is typically used in HTTP for uploads and downloads.
//  

//  Also, binary MIME is not representable in a string.  
//  If we try to get the MIME as a string, then it must be encoded
//  using base64.

//  Chilkat automatically changes binary encodings to base64
//  when there's an attempt to get the MIME as a string.
loo_Sb = create oleobject
li_rc = loo_Sb.ConnectToNewObject("Chilkat.StringBuilder")

loo_Email.GetMimeSb(loo_Sb)
loo_Sb.WriteFile("qa_output/email_fromSb.eml","utf-8",0)

//  Likewise, if we try to get the MIME as a string from the Mime object, 
//  it cannot contain non-character data in a binary encoding.  The binary
//  bytes MUST be in base64.  The act of trying to retrieve the MIME in string
//  format will force Chilkat to convert binary encodings (for non-text parts)
//  to base64.
loo_Mime.GetMimeSb(loo_Sb)
loo_Sb.WriteFile("qa_output/mime_fromSb.eml","utf-8",0)

//  However, the above use of base64 is just for the purpose of making the MIME
//  string friendly.  If we save the MIME to a file, it's still binary:
loo_Mime.SaveMime("qa_output/mime_binary.mime")


destroy loo_Mime
destroy loo_JpgPart
destroy loo_PdfPart
destroy loo_BinData
destroy loo_Email
destroy loo_Sb