CreateMediaFromContent
Contents
JSON
{ "Base64EncodedContent":"aa/9j/4AAQSkZJRgABAQAAAQABAAD/2Q==", "Filename":"monkey.jpg", "LicenseKey":"f01d89fd-5155-5455-5585-e84ab8de8591", "Tags":["Monkey"] }
C#
/*http://messaging.cdyne.com/Messaging.svc?wsdl was added as Service Reference and given the name WSDL*/
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using CreateMediaFromContent.WSDL;
namespace CreateMediaFromContent
{
class Program
{
static void Main(string[] args)
{
MessagingClient client = new MessagingClient("mms2wsHttpBinding");
CreateMediaContentRequest req = new CreateMediaContentRequest();
req.Base64EncodedContent = "aa/9j/4AAQSkZJRgABAQAAAQABAAD/2Q==";
req.Filename = "Monkey14.jpg";
req.LicenseKey = new Guid("f01d89fd-5155-5455-5585-e84ab8de8591");
req.Tags = new string[] {"Monkey"};
MediaMetadata resp = client.CreateMediaFromContent(req);
Console.WriteLine("UTC File Date: " + resp.FileDate + Environment.NewLine +
"File Name: " + resp.FileName + Environment.NewLine +
"File Size: " + resp.FileSize + Environment.NewLine +
"Media ID: " + resp.MediaId + Environment.NewLine +
"Mime Type: " + resp.MimeType);
foreach (var item in resp.Tags)
{
Console.Write("{0}", "Tags: " + item + Environment.NewLine + Environment.NewLine);
}
Console.ReadLine();
}
}
}
VB.Net
'http://messaging.cdyne.com/Messaging.svc?wsdl was added as Service Reference and given the name WSDL
Imports CreateMediaFromContent.WSDL
Module Module1
Sub Main()
Dim client As WSDL.MessagingClient = New MessagingClient("mms2wsHttpBinding")
Dim req As New WSDL.CreateMediaContentRequest()
req.Base64EncodedContent = "aa/9j/4AAQSkZJRgABAQAAAQABAAD/2Q=="
req.Filename = "VBNetMonkey.jpg"
req.LicenseKey = New Guid("f01d89fd-5155-5455-5585-e84ab8de8591")
req.Tags = New String() {"Monkey"}
Dim resp As WSDL.MediaMetadata = client.CreateMediaFromContent(req)
Console.WriteLine("UTC File Date: " + Convert.ToString(resp.FileDate) + Environment.NewLine +
"File Name: " + resp.FileName + Environment.NewLine +
"File Size: " + Convert.ToString(resp.FileSize) + Environment.NewLine +
"Media ID: " + Convert.ToString(resp.MediaId) + Environment.NewLine +
"Mime Type: " + resp.MimeType)
For Each item In resp.Tags
Console.WriteLine("Tags: " + item + Environment.NewLine + Environment.NewLine)
Next
Console.ReadLine()
End Sub
End Module
PHP with cURL
<?php
$json='{
"Base64EncodedContent":"aa/9j/4AAQSkZJRgABAQAAAQABAAD/2Q==",
"Filename":"monkey.jpg",
"LicenseKey":"f01d89fd-5155-5455-5585-e84ab8de8591",
"Tags":["Monkey"]
}';
$url='http://messaging.cdyne.com/Messaging.svc/CreateMediaFromContent';
$cURL = curl_init();
curl_setopt($cURL,CURLOPT_URL,$url);
curl_setopt($cURL,CURLOPT_POST,true);
curl_setopt($cURL,CURLOPT_POSTFIELDS,$json);
curl_setopt($cURL,CURLOPT_RETURNTRANSFER, true);
curl_setopt($cURL, CURLOPT_HTTPHEADER, array('Content-Type: application/json','Accept: application/json'));
//If you desire your results in xml format, use the following line for your httpheaders and comment out the httpheaders code line above.
//curl_setopt($cURL, CURLOPT_HTTPHEADER, array('Content-Type: application/json'));
$result = curl_exec($cURL);
curl_close($cURL);
$array = json_decode($result, true);
//print_r($json);
//print_r("\n\n\n\n");
print_r($array);
?>
VBScript
Dim cXML
cXML = "<CreateMediaContentRequest xmlns=""http://sms2.cdyne.com"">" & _
"<Base64EncodedContent>aa/9j/4AAQSkZJRgABAQAAAQABAAD/2Q==</Base64EncodedContent>" & _
"<Filename>vbsmonkey.jpg</Filename>" & _
"<LicenseKey>f01d89fd-5155-5455-5585-e84ab8de8591</LicenseKey>" & _
"<Tags>" & _
"<string xmlns=""http://schemas.microsoft.com/2003/10/Serialization/Arrays"">vbstest</string>" & _
"</Tags>" & _
"</CreateMediaContentRequest>"
Dim oXMLHTTP
Set oXMLHTTP = CreateObject("Microsoft.XMLHTTP")
Set oDoc = CreateObject("MSXML2.DOMDocument")
Call oXMLHttp.Open("POST", "http://messaging.cdyne.com/Messaging.svc/CreateMediaFromContent", False)
Call oXMLHttp.setRequestHeader("Content-Type", "text/xml")
Call oXMLHttp.send(cXML)
MsgBox oXMLHTTP.responseText
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Dim fso, MyFile, FileName, TextLine
Set fso = CreateObject("Scripting.FileSystemObject")
FileName = "c:\Users\Desktop\MMS.txt"
Set MyFile = fso.OpenTextFile(FileName, ForWriting, True)
MyFile.WriteLine oXMLHttp.responseText
MyFile.Close
Set MyFile = fso.OpenTextFile(FileName, ForReading)
Do While MyFile.AtEndOfStream <> True
TextLine = MyFile.ReadLine
Loop
MyFile.Close
set request = nothing