untitled2.m

把代码翻译成了BCB

AnsiString   __fastcall   GetHtml(TWebBrowser*   WebBrowser)   
  {     
      const   int   BufSize   =   0x10000;     
      __int64   Size;     
      IStream*   Stream   =   NULL;     
      HGLOBAL   hHTMLText;     
      IPersistStreamInit*   psi   =   NULL;     
      AnsiString   Result;   
    
      if   (WebBrowser->Document   ==   NULL)   return   AnsiString("");     
      OleCheck(WebBrowser->Document->QueryInterface(IPersistStreamInit,   (vois**)&psi));     
      try     
      {   
          //OleCheck(psi.GetSizeMax(Size));     
          hHTMLText   =   GlobalAlloc(GPTR,   BufSize);     
          if   (0   ==   hHTMLText)   RaiseLastWin32Error();     
          OleCheck(CreateStreamOnHGlobal(hHTMLText,   True,   &Stream));     
          try     
          {   
              OleCheck(psi->Save(Stream,   False));     
              Size   =   strlen(LPSTR(hHTMLText));     
              AnsiString::SetLength(Result,   Size);     
              CopyMemory(Result.c_str(),   PVOID(hHTMLText),   Size);     
          }   
          __finally     
          {   
              if   (Stream)     
                  Stream->Release();   
          }     
            
      __finally     
      {   
          if   (psi)   
              psi->Release();     
      }     
  return   Result;   
  }