package skcc.forumservlet;    import java.sql.*;
import java.util.*;
import java.lang.*;
import java.text.*;
import java.io.*;    import javax.servlet.*;
import javax.servlet.http.*;
public class GetIconservlet extends HttpServlet
{
        private static final String CONTENT_TYPE = "image/gif";            public void doGet( HttpServletRequest request, HttpServletResponse response )
                throws ServletException, IOException
        {
                response.setContentType( CONTENT_TYPE );                    ServletOutputStream out = response.getOutputStream();
        ..
        ..
                FileInputStream fis = new FileInputStream( Iconfile );  //把圖檔轉成 Stream
                BufferedInputStream IconData = new BufferedInputStream( fis );
                byte[] buf = new byte[4096]; //4k buffer
                int len;
                while( (len=IconData.read( buf, 0, buf.length ) ) != -1 )
                        out.write( buf, 0, len );  //把 Stream 送到使用者的瀏覽器
        ..
        ..            }    }

TMemoryStream *stm = new TMemoryStream();
TStreamAdapter *sa = new TStreamAdapter( stm, soReference );    Memo1->Lines->SaveToStream( stm ); //假設 Memo1 的內容為HTML    IPersistStreamInit *psi = NULL;
stm->Seek( 0, 0 );
if ( sa == NULL )
{
  delete stm;  return;
}
_di_IDispatch doc = browser->Document; //browser 為 TCppWebBrowser 元件    if ( doc == NULL )
{
  TVariant url = "about:blank";
  browser->Navigate2( &url );
  while ( doc == NULL )
  {
    Application->ProcessMessages();
    doc = browser->Document;
  }
}
if ( doc->QueryInterface(IID_IPersistStreamInit, (void**)&psi ) == S_OK )
{
  if ( psi )
  {
    psi->Load( *sa );
  }
}
else
  delete sa;
delete stm;