Index: TECH/Http/impl/HttpAPI.cls.xml
===================================================================
diff -u
--- TECH/Http/impl/HttpAPI.cls.xml	(revision 0)
+++ TECH/Http/impl/HttpAPI.cls.xml	(revision 801)
@@ -0,0 +1,14 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.Http.impl.HttpAPI">
+<Super>TECH.RegisteredObject,TECH.Http.HttpAPI</Super>
+
+<Method name="GeefHttpPoster">
+<ReturnType>TECH.Http.Poster</ReturnType>
+<Implementation><![CDATA[	quit ##class(TECH.Http.impl.Poster).%New()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/Context.cls.xml
===================================================================
diff -u -r673 -r801
--- TECH/Context.cls.xml	(.../Context.cls.xml)	(revision 673)
+++ TECH/Context.cls.xml	(.../Context.cls.xml)	(revision 801)
@@ -32,6 +32,11 @@
 <Default>DateTimeAPI</Default>
 </Parameter>
 
+<Parameter name="HttpAPI">
+<Type>%String</Type>
+<Default>HttpAPI</Default>
+</Parameter>
+
 <Method name="Instance">
 <ClassMethod>1</ClassMethod>
 <ReturnType>TECH.Context</ReturnType>
@@ -50,13 +55,26 @@
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Do ..InitAPIStack(..#MailAPI)
-	Do ..InitAPIStack(..#DateTimeAPI)
+	Do ..InitAPIStacks()
 	Do ..Reset()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
+<Method name="InitAPIStacks">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Class As %CompiledClass = ##class(%CompiledClass).%OpenId(..%ClassName(1))
+	set itParameters = ##class(TECH.ListIterator).%New(Class.Parameters)
+	while itParameters.HasNext() {
+		#dim Parameter As %CompiledParameter = itParameters.Next()
+		if ##class(TECH.StringUtils).EndsWith(Parameter.Name,"API") {
+			Do ..InitAPIStack(Parameter.Default)
+		}		
+	}
+]]></Implementation>
+</Method>
+
 <Method name="GeefMailAPI">
 <ReturnType>TECH.Mail.MailAPI</ReturnType>
 <Implementation><![CDATA[	Quit ..GeefAPIObject(..#MailAPI)
@@ -91,20 +109,41 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefHttpAPI">
+<ReturnType>TECH.Http.HttpAPI</ReturnType>
+<Implementation><![CDATA[	quit ..GeefAPIObject(..#HttpAPI)
+]]></Implementation>
+</Method>
+
+<Method name="PushHttpAPIClassName">
+<FormalSpec>Naam:%String</FormalSpec>
+<Implementation><![CDATA[	Do ..PushAPINaam(..#HttpAPI,Naam)
+]]></Implementation>
+</Method>
+
+<Method name="PopHttpAPIClassName">
+<Implementation><![CDATA[	Do ..PopAPINaam(..#HttpAPI)
+]]></Implementation>
+</Method>
+
 <Method name="Reset">
 <Implementation><![CDATA[
 	Set APINamenIterator = ##class(TECH.ListIterator).%New(..APINamen)
-	While (APINamenIterator.HasNext())
-	{
+	While (APINamenIterator.HasNext()) {
 		Do APINamenIterator.Next().Clear()
 	}
-	
-	// Put defaults on the stack
-	Do ..PushMailAPIClassName("TECH.Mail.impl.MailAPI")
-	Do ..PushDateTimeAPIClassName("TECH.DateTime")
+	do ..PushDefaultAPIClassNames()
 ]]></Implementation>
 </Method>
 
+<Method name="PushDefaultAPIClassNames">
+<Implementation><![CDATA[
+	Do ..PushMailAPIClassName(##class(TECH.Mail.impl.MailAPI).%ClassName(1))
+	Do ..PushDateTimeAPIClassName(##class(TECH.DateTime).%ClassName(1))
+	Do ..PushHttpAPIClassName(##class(TECH.Http.impl.HttpAPI).%ClassName(1))
+]]></Implementation>
+</Method>
+
 <Method name="InitAPIStack">
 <FormalSpec>APINaam:%String</FormalSpec>
 <Private>1</Private>
Index: TECH/Http/HttpAPI.cls.xml
===================================================================
diff -u
--- TECH/Http/HttpAPI.cls.xml	(revision 0)
+++ TECH/Http/HttpAPI.cls.xml	(revision 801)
@@ -0,0 +1,14 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.Http.HttpAPI">
+<Abstract>1</Abstract>
+<Super>TECH.Interface</Super>
+
+<Method name="GeefHttpPoster">
+<Abstract>1</Abstract>
+<ReturnType>TECH.Http.Poster</ReturnType>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/impl/HTTPPoster.cls.xml
===================================================================
diff -u
--- TECH/impl/HTTPPoster.cls.xml	(revision 0)
+++ TECH/impl/HTTPPoster.cls.xml	(revision 801)
@@ -0,0 +1,12 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.impl.HTTPPoster">
+<Super>TECH.RegisteredObject,TECH.HTTPPoster</Super>
+
+<Method name="PostMessage">
+<FormalSpec>Message:TECH.Http.Message</FormalSpec>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/Http/impl/PosterMailMock.cls.xml
===================================================================
diff -u
--- TECH/Http/impl/PosterMailMock.cls.xml	(revision 0)
+++ TECH/Http/impl/PosterMailMock.cls.xml	(revision 801)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.Http.impl.PosterMailMock">
+<Super>TECH.RegisteredObject,TECH.Http.Poster</Super>
+
+<Method name="PostMessage">
+<FormalSpec>Message:TECH.Http.Message</FormalSpec>
+<Implementation><![CDATA[
+	#dim Applicatie As %String = ##class(TECH.Context.RuntimeContext).Instance().GeefApplicatie()
+	
+	#dim MailTo As %list = $listbuild(##class(TECH.Config.ConfigMgr).Instance().GetString("TECH.Error.impl.ErrorHandler_DefaultMailAddress"))
+	do SendMiniMailForced^vhLib.Mail($$$SystemMail("HttpFakePoster"),MailTo, Applicatie _ "Post message" ,Message.Data,1)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/Http/Message.cls.xml
===================================================================
diff -u
--- TECH/Http/Message.cls.xml	(revision 0)
+++ TECH/Http/Message.cls.xml	(revision 801)
@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.Http.Message">
+<Super>%RegisteredObject</Super>
+
+<Property name="Server">
+<Type>%String</Type>
+<Required>1</Required>
+</Property>
+
+<Property name="Location">
+<Type>%String</Type>
+<Required>1</Required>
+</Property>
+
+<Property name="Params">
+<Type>TECH.KeyValueList</Type>
+</Property>
+
+<Property name="ContentType">
+<Type>%String</Type>
+</Property>
+
+<Property name="ContextEncoding">
+<Type>%String</Type>
+</Property>
+
+<Property name="Data">
+<Type>%AbstractStream</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: TECH/Http/Poster.cls.xml
===================================================================
diff -u
--- TECH/Http/Poster.cls.xml	(revision 0)
+++ TECH/Http/Poster.cls.xml	(revision 801)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.Http.Poster">
+<Abstract>1</Abstract>
+<Super>TECH.Interface</Super>
+
+<Method name="PostMessage">
+<Abstract>1</Abstract>
+<FormalSpec>Message:TECH.Http.Message</FormalSpec>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/Http/impl/Poster.cls.xml
===================================================================
diff -u
--- TECH/Http/impl/Poster.cls.xml	(revision 0)
+++ TECH/Http/impl/Poster.cls.xml	(revision 801)
@@ -0,0 +1,78 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.Http.impl.Poster">
+<Super>TECH.RegisteredObject,TECH.Http.Poster</Super>
+
+<Property name="HttpRequest">
+<Type>%Net.HttpRequest</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Message">
+<Type>TECH.Http.Message</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="PostMessage">
+<FormalSpec>Message:TECH.Http.Message</FormalSpec>
+<Implementation><![CDATA[
+	set ..Message = Message
+    do ..ValidateMessage()
+    
+ 	set ..HttpRequest = ##class(%Net.HttpRequest).%New()
+ 	set ..HttpRequest.Server = Message.Server
+ 	set ..HttpRequest.ContentType = Message.ContentType
+ 	set ..HttpRequest.ContentEncoding = Message.ContextEncoding
+ 	
+ 	do ..SetRequestParams()
+ 	
+ 	do ..HttpRequest.EntityBody.CopyFrom(Message.Data)
+ 	
+    #dim StatusCode As %Status = ..HttpRequest.Post(Message.Location,0)
+
+  	do ..ValidateResponse(StatusCode)
+]]></Implementation>
+</Method>
+
+<Method name="SetRequestParams">
+<Private>1</Private>
+<Implementation><![CDATA[
+	set ParamIterator = ##class(TECH.ListIterator).%New(..Message.Params)
+ 	while ParamIterator.HasNext() {
+ 		#dim KeyValuePair As TECH.KeyValuePair = ParamIterator.Next()
+ 		do ..HttpRequest.SetParam(KeyValuePair.Key,KeyValuePair.Value)
+ 	}
+]]></Implementation>
+</Method>
+
+<Method name="ValidateMessage">
+<Private>1</Private>
+<Implementation><![CDATA[
+ 	#dim stValidate As %Status = ..Message.%ValidateObject()
+ 	if $$$ISERR(stValidate) {
+	    set Exception = ##class(TECH.Exceptions.StatusException).%New(##class(TECH.enu.ExceptionCode).InvalidInput(),"HttpPost to "_..Message.Server_" failed",stValidate)
+	    do ##class(TECH.ExceptionHandler).Throw(Exception)
+    }
+]]></Implementation>
+</Method>
+
+<Method name="ValidateResponse">
+<FormalSpec>Status:%Status</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+    if $$$ISERR(Status) {
+	    set Exception = ##class(TECH.Exceptions.StatusException).%New(##class(TECH.enu.ExceptionCode).GeneralError(),"HttpPost to "_..Message.Server_" failed",Status)
+	    do ##class(TECH.ExceptionHandler).Throw(Exception)
+    }
+	
+	if ..HttpRequest.HttpResponse.StatusCode '= 200 {
+	    set Exception = ##class(TECH.Exceptions.AbstractOmschrijvingException).%New(##class(TECH.enu.ExceptionCode).GeneralError(),"HttpPost to "_..Message.Server_" failed. "_..HttpRequest.HttpResponse.ReasonPhrase)
+	    do ##class(TECH.ExceptionHandler).Throw(Exception)
+		    
+    }
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>