untitled.m

来自「把代码翻译成了BCB」· M 代码 · 共 28 行

function   GetHtml(const   WebBrowser:   TWebBrowser):   string;     
  const     
      BufSize   =   $10000;     
  var     
      Size:   Int64;     
      Stream:   IStream;     
      hHTMLText:   HGLOBAL;     
      psi:   IPersistStreamInit;     
  begin     
      if   not   Assigned(WebBrowser.Document)   then   Exit;     
      OleCheck(WebBrowser.Document.QueryInterface(IPersistStreamInit,   psi));     
      try     
          //OleCheck(psi.GetSizeMax(Size));     
          hHTMLText   :=   GlobalAlloc(GPTR,   BufSize);     
          if   0   =   hHTMLText   then   RaiseLastWin32Error;     
          OleCheck(CreateStreamOnHGlobal(hHTMLText,   True,   Stream));     
          try     
              OleCheck(psi.Save(Stream,   False));     
              Size   :=   StrLen(PChar(hHTMLText));     
              SetLength(Result,   Size);     
              CopyMemory(PChar(Result),   Pointer(hHTMLText),   Size);     
          finally     
              Stream   :=   nil;     
          end;     
      finally     
          psi   :=   nil;     
      end;     
  end;