Index: TECH/File/impl/FileReader.cls.xml
===================================================================
diff -u -r524 -r912
--- TECH/File/impl/FileReader.cls.xml	(.../FileReader.cls.xml)	(revision 524)
+++ TECH/File/impl/FileReader.cls.xml	(.../impl/FileReader.cls.xml)	(revision 912)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="TECH.File.FileReader">
+<Class name="TECH.File.impl.FileReader">
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
Index: TECH/File/FileAPI.cls.xml
===================================================================
diff -u
--- TECH/File/FileAPI.cls.xml	(revision 0)
+++ TECH/File/FileAPI.cls.xml	(revision 912)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.File.FileAPI">
+<Abstract>1</Abstract>
+<Super>TECH.Interface</Super>
+
+<Method name="GeefFileWriter">
+<Abstract>1</Abstract>
+<ReturnType>TECH.File.impl.FileWriter</ReturnType>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="GeefFileReader">
+<Abstract>1</Abstract>
+<ReturnType>TECH.File.impl.FileReader</ReturnType>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/File/impl/FileWriter.cls.xml
===================================================================
diff -u
--- TECH/File/impl/FileWriter.cls.xml	(revision 0)
+++ TECH/File/impl/FileWriter.cls.xml	(revision 912)
@@ -0,0 +1,207 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.File.impl.FileWriter">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+
+<Property name="FileCharacterStream">
+<Type>%Library.FileCharacterStream</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Bestand">
+<Type>%String</Type>
+<Private>1</Private>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
+<Property name="LockHelper">
+<Type>TECH.Lock</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="WriteImmediate">
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Description>
+FileHandler die ook locking en rechten beheerd voor de file
+Bestand : Directory + bestand
+WriteImmediate : Schrijft onmiddelijk op de definitieve locatie, (voor over netwerk te sturen deze op false zetten !)</Description>
+<FormalSpec>Bestand:%String,WriteImmediate:%Boolean=1</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	
+	Set ..Bestand = Bestand
+	Set ..WriteImmediate = WriteImmediate
+	
+	/// Nagaan of reeds naar bestand wordt geschreven door ander process
+	Set ..LockHelper = ##class(TECH.Lock).%New(..GeefLockKey())
+	If ('..LockHelper.HeeftLock()) {
+		Do ..LockHelper.Lock(##class(TECH.enu.LockType).Exclusive())
+	}Else{
+		Set Exception = ##class(TECH.Exceptions.FileException).%New("Er wordt reeds naar de file '"_..Bestand_"' geschreven.",1)
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+	
+	/// Zo nodig doel locatie aanmaken
+	Set DoelLocatie = ##class(TECH.File).GetDirectory(Bestand)
+	If ('##class(TECH.File).DirectoryExists(DoelLocatie)){
+		Do ##class(TECH.File).CreateDirectoryChain(DoelLocatie)
+	}
+	
+	If '##class(TECH.File).Exists(DoelLocatie){
+		Set Exception = ##class(TECH.Exceptions.FileException).%New("Pad bestaat niet of is niet bereikbaar : '"_DoelLocatie_"'",1)
+		Do ..LockHelper.UnLock(##class(TECH.enu.LockType).Exclusive())
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+	
+	/// Stream aanmaken	
+	Set ..FileCharacterStream=##class(%FileCharacterStream).%New()	
+	If (..WriteImmediate){
+		Set ..FileCharacterStream.Filename = ..Bestand
+	}Else{
+		Set TempDir = ##class(TECH.Config.ConfigMgr).Instance().GetString("vhDev.TempFilePath")	
+		Set TempFile = $job_"_"_##class(TECH.DateTime).CurrentTime()_"_"_$random(99999999)_".tmp"
+		Set TempBestand = ##class(TECH.Files).AppendFile(TempDir,TempFile)
+		Set ..FileCharacterStream.Filename = TempBestand
+	}
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Close">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Try{
+		Set Filename = ..FileCharacterStream.Filename
+	
+		/// Save Stream
+		Set Status = ..FileCharacterStream.SaveStream()
+		If ($$$ISERR(Status)){
+			Set Exception = ##class(TECH.Exceptions.FileException).%New("Bestand kon niet worden gesaved '"_Filename_"'",Status)
+			Do ##class(TECH.ExceptionHandler).Throw(Exception)	
+		}
+	
+		/// Close stream
+		Set Status = ..FileCharacterStream.%Close()
+		If ($$$ISERR(Status)){
+			Set Exception = ##class(TECH.Exceptions.FileException).%New("Bestand kon niet worden gesloten '"_Filename_"' (Doelbestand :"_..Bestand_")",Status)
+			Do ##class(TECH.ExceptionHandler).Throw(Exception)	
+		}
+	
+		/// Bestand kopieren indien WriteImmediate niet aan stond.
+		/// Handig voor snelheid bij wegschrijven naar netwerklocatie
+		If ('..WriteImmediate){
+			Set Gelukt = ##class(%File).CopyFile(Filename,..Bestand)
+			If (##class(TECH.File).Exists(Filename)){
+				If (Gelukt){
+					Set DeleteGelukt = ##class(TECH.File).Delete(Filename)
+					If 'DeleteGelukt{
+						Set Exception = ##class(TECH.Exceptions.FileException).%New("Bestand kon niet worden verwijderd '"_Filename_"'",0)
+						Do ##class(TECH.ExceptionHandler).Throw(Exception)	
+					}			
+				}Else{
+					Set DeleteGelukt = ##class(TECH.File).Delete(Filename)
+					Set Exception = ##class(TECH.Exceptions.FileException).%New("Bestand kon niet worden verplaatst. '"_Filename_"' naar '"_..Bestand_"'. "_Filename_" is verwijderd ? "_DeleteGelukt_".",0)			
+					Do ##class(TECH.ExceptionHandler).Throw(Exception)
+				}
+			}
+		}		
+		Set ..FileCharacterStream = ""
+	
+		Do ..LockHelper.UnLock(##class(TECH.enu.LockType).Exclusive())
+	}Catch(E){
+		Do ..LockHelper.UnLock(##class(TECH.enu.LockType).Exclusive())
+		Do ##class(TECH.ExceptionHandler).Rethrow()
+	}
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Write">
+<FormalSpec>Inhoud:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	#dim Status = ..FileCharacterStream.Write(Inhoud)
+	If $$$ISERR(Status){
+		Set Exception = ##class(TECH.Exceptions.FileException).%New("File is reeds extern geopend voor wijzigingen '"_..Bestand_"'.",Status)
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)	
+	}
+	Quit Status
+]]></Implementation>
+</Method>
+
+<Method name="WriteLine">
+<FormalSpec>Inhoud:%String=""</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	#dim Status = ..FileCharacterStream.WriteLine(Inhoud)
+	If $$$ISERR(Status){
+		Set Exception = ##class(TECH.Exceptions.FileException).%New("File is reeds extern geopend voor wijzigingen '"_..Bestand_"'.",Status)
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)	
+	}
+	Quit Status
+]]></Implementation>
+</Method>
+
+<Method name="WriteXML">
+<FormalSpec>XMLObject:%XML.Adaptor,XMLExportOpties:%String="literal,indent"</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Status = XMLObject.XMLExportToStream(..FileCharacterStream,"",XMLExportOpties)
+	If $$$ISERR(Status){
+		Set Exception = ##class(TECH.Exceptions.FileException).%New("Kon niet exporteren naar XML '"_XMLObject_"'.",Status)
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)	
+	}
+	Quit Status
+]]></Implementation>
+</Method>
+
+<Method name="WriteStream">
+<FormalSpec>Stream:%Stream</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Status = ..FileCharacterStream.CopyFrom(Stream)
+	If $$$ISERR(Status){
+		Set Exception = ##class(TECH.Exceptions.FileException).%New("Kon stream niet kopieren.",Status)
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)	
+	}
+	Quit Status
+]]></Implementation>
+</Method>
+
+<Method name="GeefBestandsNaam">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Bestand
+]]></Implementation>
+</Method>
+
+<Method name="GeefLockKey">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "^TECH.File.FileHandler("""_..Bestand_""")"
+]]></Implementation>
+</Method>
+
+<Method name="%OnClose">
+<Description><![CDATA[
+This callback method is invoked by the <METHOD>%Close</METHOD> method to 
+provide notification that the current object is being closed.
+Wordt ook bij een Kill uitgevoerd]]></Description>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ..Close()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: Tools/GlobalSearch.cls.xml
===================================================================
diff -u -r136 -r912
--- Tools/GlobalSearch.cls.xml	(.../GlobalSearch.cls.xml)	(revision 136)
+++ Tools/GlobalSearch.cls.xml	(.../GlobalSearch.cls.xml)	(revision 912)
@@ -88,7 +88,7 @@
 
 <Method name="ExportToFile">
 <Implementation><![CDATA[
-	set FileWriter = ##class(TECH.File.FileWriter).%New(..Bestandsnaam)
+	set FileWriter = ##class(TECH.File.impl.FileWriter).%New(..Bestandsnaam)
 	set itList = ##class(TECH.ListIterator).%New(..Result)
 	while itList.HasNext() {
 		do FileWriter.WriteLine(itList.Next())
Index: TECH/Http/impl/PosterFileDumper.cls.xml
===================================================================
diff -u -r872 -r912
--- TECH/Http/impl/PosterFileDumper.cls.xml	(.../PosterFileDumper.cls.xml)	(revision 872)
+++ TECH/Http/impl/PosterFileDumper.cls.xml	(.../PosterFileDumper.cls.xml)	(revision 912)
@@ -23,7 +23,7 @@
 <Method name="PostMessage">
 <FormalSpec>Message:TECH.Http.Message</FormalSpec>
 <Implementation><![CDATA[
-	set File = ##class(TECH.File.FileWriter).%New(..GeefBestandVolledigeNaam())
+	set File = ##class(TECH.File.impl.FileWriter).%New(..GeefBestandVolledigeNaam())
 	
 	do File.WriteLine("ContextType : "_Message.ContentType)
 	do File.WriteLine("ContextEncoding : "_Message.ContextEncoding)
@@ -34,7 +34,7 @@
 	
 	set ParamIterator = ##class(TECH.ListIterator).%New(Message.Params)
 	while ParamIterator.HasNext() {
-		#dim Param As TECH.KeyValuePair = ParamIterator.Next()  
+		#dim Param As TECH.KeyValuePair = ParamIterator.Next()
 		do File.WriteLine(Param.Key _ " = "_Param.Value)
 	}
 	
Index: TECH/Context.cls.xml
===================================================================
diff -u -r815 -r912
--- TECH/Context.cls.xml	(.../Context.cls.xml)	(revision 815)
+++ TECH/Context.cls.xml	(.../Context.cls.xml)	(revision 912)
@@ -37,6 +37,11 @@
 <Default>HttpAPI</Default>
 </Parameter>
 
+<Parameter name="FileAPI">
+<Type>%String</Type>
+<Default>FileAPI</Default>
+</Parameter>
+
 <Method name="Instance">
 <ClassMethod>1</ClassMethod>
 <ReturnType>TECH.Context</ReturnType>
@@ -126,6 +131,23 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefFileAPI">
+<ReturnType>TECH.File.FileAPI</ReturnType>
+<Implementation><![CDATA[	quit ..GeefAPIObject(..#FileAPI)
+]]></Implementation>
+</Method>
+
+<Method name="PushFileAPIClassName">
+<FormalSpec>Naam:%String</FormalSpec>
+<Implementation><![CDATA[	Do ..PushAPINaam(..#FileAPI,Naam)
+]]></Implementation>
+</Method>
+
+<Method name="PopFileAPIClassName">
+<Implementation><![CDATA[	Do ..PopAPINaam(..#FileAPI)
+]]></Implementation>
+</Method>
+
 <Method name="Reset">
 <Implementation><![CDATA[
 	Set APINamenIterator = ##class(TECH.ListIterator).%New(..APINamen)
Index: TECH/impl/FileUtils.cls.xml
===================================================================
diff -u -r849 -r912
--- TECH/impl/FileUtils.cls.xml	(.../FileUtils.cls.xml)	(revision 849)
+++ TECH/impl/FileUtils.cls.xml	(.../FileUtils.cls.xml)	(revision 912)
@@ -18,7 +18,7 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	Set FileReader = ##class(TECH.File.FileReader).%New(LocatieBestand)
+	Set FileReader = ##class(TECH.File.impl.FileReader).%New(LocatieBestand)
 	#dim Stream As %Stream = FileReader.GeefStream()
 	Quit ##class(vhUnitTest.Utils).CheckSum(Stream)
 ]]></Implementation>
FishEye: Tag 912 refers to a dead (removed) revision in file `TECH/File/FileReader.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhLib/WebServiceLogger/impl/BestandLogger.cls.xml
===================================================================
diff -u -r321 -r912
--- vhLib/WebServiceLogger/impl/BestandLogger.cls.xml	(.../BestandLogger.cls.xml)	(revision 321)
+++ vhLib/WebServiceLogger/impl/BestandLogger.cls.xml	(.../BestandLogger.cls.xml)	(revision 912)
@@ -19,7 +19,7 @@
 		#dim Counter As %Integer = $increment(^zWS.Logger(ClassName_" "_Webmethod))
 		if Counter < 201 {
 			#dim Filename As %String = ##class(TECH.Files).AppendFile(Path,ClassName_"\"_Webmethod_"\"_$job_Direction_Timestamp_$Random(10000)_".log")	
-			set FileWriter = ##class(TECH.File.FileWriter).%New(Filename)
+			set FileWriter = ##class(TECH.File.impl.FileWriter).%New(Filename)
 			Do FileWriter.WriteStream(Stream)
 			Do FileWriter.Close()
 	
Index: TECH/Mail/impl/Mail.cls.xml
===================================================================
diff -u -r861 -r912
--- TECH/Mail/impl/Mail.cls.xml	(.../Mail.cls.xml)	(revision 861)
+++ TECH/Mail/impl/Mail.cls.xml	(.../Mail.cls.xml)	(revision 912)
@@ -114,7 +114,7 @@
 <FormalSpec>Stream:%Stream,Bestandsnaam:%String</FormalSpec>
 <Implementation><![CDATA[
 	#dim Filename As %String = ##class(TECH.Files).AppendFile(##class(TECH.File).GetTempDir(),Bestandsnaam)
-	set File = ##class(TECH.File.FileWriter).%New(Filename,1)
+	set File = ##class(TECH.File.impl.FileWriter).%New(Filename,1)
 	do File.WriteStream(Stream)
 	do File.Close()
 	do ..Bijlagen.Insert(Filename)
Index: TECH/Mail/impl/BestandVerzender.cls.xml
===================================================================
diff -u -r876 -r912
--- TECH/Mail/impl/BestandVerzender.cls.xml	(.../BestandVerzender.cls.xml)	(revision 876)
+++ TECH/Mail/impl/BestandVerzender.cls.xml	(.../BestandVerzender.cls.xml)	(revision 912)
@@ -53,7 +53,7 @@
 <Implementation><![CDATA[
 	#dim BestandVolledigeNaam As %String = ..BepaalBestandVolledigeNaam(Mail.GeefOnderwerp())
 
-	set File = ##class(TECH.File.FileWriter).%New(BestandVolledigeNaam)
+	set File = ##class(TECH.File.impl.FileWriter).%New(BestandVolledigeNaam)
 
  	do File.WriteLine("Onderwerp: "_Mail.GeefOnderwerp())
  	do File.WriteLine("Verzender: "_Mail.GeefVerzender())