谁帮我把下面的代码翻译成BCB的，100分！

Question

To: Lersh (暑片) 又是你呀,最近你发贴挺多啊;我不想改写,因为我有CPP代码你,要不要???

Answer 1

要啊要啊，是获取CppWebBrowser的内容的吗？

Answer 2

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;
}