CreateMediaFromContent

From CDYNE Wiki
Revision as of 11:21, 20 October 2017 by imported>Bdriggers (→‎VBScript)
Jump to navigation Jump to search

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