Index: TECH/Http/HttpAPI.cls.xml
===================================================================
diff -u -r801 -r1286
--- TECH/Http/HttpAPI.cls.xml	(.../HttpAPI.cls.xml)	(revision 801)
+++ TECH/Http/HttpAPI.cls.xml	(.../HttpAPI.cls.xml)	(revision 1286)
@@ -8,6 +8,12 @@
 <Abstract>1</Abstract>
 <ReturnType>TECH.Http.Poster</ReturnType>
 </Method>
+
+<Method name="BestaatURI">
+<Abstract>1</Abstract>
+<FormalSpec>URI:TECH.Net.URI</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+</Method>
 </Class>
 
 
Index: TECH/Http/impl/HttpAPI.cls.xml
===================================================================
diff -u -r869 -r1286
--- TECH/Http/impl/HttpAPI.cls.xml	(.../HttpAPI.cls.xml)	(revision 869)
+++ TECH/Http/impl/HttpAPI.cls.xml	(.../HttpAPI.cls.xml)	(revision 1286)
@@ -3,6 +3,11 @@
 <Class name="TECH.Http.impl.HttpAPI">
 <Super>TECH.RegisteredObject,TECH.Http.HttpAPI</Super>
 
+<Property name="HttpRequest">
+<Type>%Net.HttpRequest</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="GeefHttpPoster">
 <ReturnType>TECH.Http.Poster</ReturnType>
 <Implementation><![CDATA[
@@ -19,6 +24,19 @@
 	Quit HttpPoster
 ]]></Implementation>
 </Method>
+
+<Method name="BestaatURI">
+<FormalSpec>URI:TECH.Net.URI</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	If '$IsObject(..HttpRequest) {
+		Set ..HttpRequest = ##class(%Net.HttpRequest).%New()
+	}
+	Set ..HttpRequest.Server = URI.GeefHost()
+	#Dim HttpHeadGelukt As %Status = ..HttpRequest.Head( URI.GeefPathMetQueryEnFragment() )
+	Quit (('$$$ISERR(HttpHeadGelukt)) && (##class(TECH.Net.enu.HttpStatusCode).OK200() = ..HttpRequest.HttpResponse.StatusCode))
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: TECH/Net/URI.cls.xml
===================================================================
diff -u -r1279 -r1286
--- TECH/Net/URI.cls.xml	(.../URI.cls.xml)	(revision 1279)
+++ TECH/Net/URI.cls.xml	(.../URI.cls.xml)	(revision 1286)
@@ -24,22 +24,27 @@
 
 <Property name="Schema">
 <Type>%String</Type>
+<Private>1</Private>
 </Property>
 
 <Property name="Host">
 <Type>%String</Type>
+<Private>1</Private>
 </Property>
 
 <Property name="Path">
 <Type>%String</Type>
+<Private>1</Private>
 </Property>
 
 <Property name="Query">
 <Type>%String</Type>
+<Private>1</Private>
 </Property>
 
 <Property name="Fragment">
 <Type>%String</Type>
+<Private>1</Private>
 </Property>
 
 <Method name="MaakVanURLZonderQueryNochFragment">
@@ -100,9 +105,28 @@
 
 <Method name="GeefBestandNaam">
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ##class(TECH.StringUtils).GetLastPart( ..Path, "/" )
+<Implementation><![CDATA[	Quit ##class(TECH.StringUtils).GetLastPart( ..Path, ..#HierarchischeSeparator )
 ]]></Implementation>
 </Method>
+
+<Method name="GeefBestandNaamZonderExtensie">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#Define ExtensieSeparator "."
+	Quit $Piece( ..GeefBestandNaam(), $$$ExtensieSeparator )
+]]></Implementation>
+</Method>
+
+<Method name="GeefHost">
+<Implementation><![CDATA[	Quit ..Host
+]]></Implementation>
+</Method>
+
+<Method name="GeefPathMetQueryEnFragment">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Path _ ..Query _ ..Fragment
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: TECH/Net/enu/HttpStatusCode.cls.xml
===================================================================
diff -u
--- TECH/Net/enu/HttpStatusCode.cls.xml	(revision 0)
+++ TECH/Net/enu/HttpStatusCode.cls.xml	(revision 1286)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.Net.enu.HttpStatusCode">
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+
+<Parameter name="VALUELIST">
+<Default>,200</Default>
+</Parameter>
+
+<Method name="OK200">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.PM.enu.TaorCubicProdKenmerkNaam</ReturnType>
+<Implementation><![CDATA[	quit "200"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>