dhtmledit中怎样可以查看html的源代码

Question

如题

Answer 1

http://www.ddvip.net/program/delphi/index6/three/imgB/30.rar

Answer 2

我想在dhtml中查看源码怎么作的.

Answer 3

IPersistStreamInit接口的Save方法:
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;