* TOleStream + TProxystream (Mantis 8376)

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@13984 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 9 insertions, 0 deletions

diff --git a/packages/winunits-base/src/comobj.pp b/packages/winunits-base/src/comobj.pp
index 74c9ae0f6e..4000d29390 100644
--- a/packages/winunits-base/src/comobj.pp
+++ b/packages/winunits-base/src/comobj.pp
@@ -46,6 +46,10 @@ unit comobj;
 
       EOleRegistrationError = class(EOleError);
 
+      TOleStream = Class(TProxyStream)
+                  procedure Check(err:integer);override;
+		end;
+
       TComServerObject = class(TObject)
       protected
         function CountObject(Created: Boolean): Integer; virtual; abstract;
@@ -1279,6 +1283,11 @@ HKCR
         RunError(217);
       end;
 
+procedure TOleStream.Check(err:integer);
+begin
+  OleCheck(err);
+end;
+
 
 const
   Initialized : boolean = false;