% 
%  COM-Beispiel: HTML-Code über MS-Internet-Explorer ausgeben, z.B. 
%
%    >> showHTML( 'www.stein-ulrich.de/4-11/h2.html' )
% 
function showHTML( URL )

   % IE-Prozess starten 
   try
      h = actxserver ( 'InternetExplorer.Application' );
   catch
      errordlg( 'Kein Kontakt zu MS-IE' );
      return;
   end
      
   % URL aufrufen
   h.Navigate2( URL );
   
   % Interface zum Dokument 
   try
     hDoc = h.Document;
   catch
      errordlg( ['Kann Seite ', URL ,' nicht lesen'] );
      h.Quit; 
      h.delete; 
      return;
   end
   
   % Title auslesen 
   htmlTitel = hDoc.get( 'title' )
   
   % Interface zu HTML-Body 
   hDocBody = hDoc.body;
   
   % HTML-Code ausgeben 
   htmlText = hDocBody.outerHTML
   
   % IE-Prozess beenden 
   h.Quit; 
   h.delete; 
   