{"id":4905,"date":"2018-06-21T17:56:20","date_gmt":"2018-06-21T09:56:20","guid":{"rendered":"http:\/\/blog.qdac.cc\/?p=4905"},"modified":"2018-06-21T21:38:03","modified_gmt":"2018-06-21T13:38:03","slug":"%e6%95%99%e7%a8%8b%e4%b8%ba-delphi-%e5%89%aa%e8%b4%b4%e6%9d%bf%e5%8a%a0%e5%85%a5-cf_html-%e6%95%b0%e6%8d%ae%e6%94%af%e6%8c%81","status":"publish","type":"post","link":"https:\/\/blog.qdac.cc\/?p=4905","title":{"rendered":"[\u6559\u7a0b]\u4e3a Delphi \u526a\u8d34\u677f\u52a0\u5165 CF_HTML \u6570\u636e\u652f\u6301"},"content":{"rendered":"

\u55ef\uff0c\u76f4\u63a5\u4e0a\u4ee3\u7801\uff0c\u9700\u8981\u5f15\u7528 \u00a0QDAC \u7684 QString \u5355\u5143\uff0c\u4e0d\u652f\u6301\u592a\u8001\u7248\u672c\u7684 Delphi\uff0c\u4f7f\u7528\u53e4\u8463\u7248\u7684 Delphi \u7684\u8bf7\u81ea\u5df1\u6539\u5199\u4e0b\uff1a<\/p>\n

uses clipbrd, qstring;\r\ntype\r\n  THTMLClipboardFormatData = class helper for TClipboard\r\n  private\r\n    class procedure RegisterHtmlFormat;\r\n    function GetAsHtml: String;\r\n    procedure SetAsHtml(const Value: String);\r\n  public\r\n    property AsHtml: String read GetAsHtml write SetAsHtml;\r\n  end;\r\n\r\nvar\r\n  CF_HTML: WORD = 0;\r\n\/\/\u6b64\u5904\u7701\u7565\u4e00\u4e07\u5b57\r\n{ THTMLClipboardFormatData }\r\n\r\nfunction THTMLClipboardFormatData.GetAsHtml: String;\r\nvar\r\n  AHandle: THandle;\r\n  pData: PQCharA absolute AHandle;\r\n  AText: QStringW;\r\n  p: PWideChar;\r\nbegin\r\n  RegisterHtmlFormat;\r\n  if Clipboard.HasFormat(CF_HTML) then\r\n  begin\r\n    AHandle := Clipboard.GetAsHandle(CF_HTML);\r\n    try\r\n      AText := Utf8Decode(pData, -1);\r\n      p := PWideChar(AText);\r\n      while (p^ <> '<') and (p^ <> #0) do\r\n        SkipLineW(p);\r\n      Result := p;\r\n    finally\r\n      GlobalUnlock(AHandle);\r\n    end;\r\n  end;\r\nend;\r\n\r\nclass procedure THTMLClipboardFormatData.RegisterHtmlFormat;\r\nbegin\r\n  if CF_HTML = 0 then\r\n    CF_HTML := RegisterClipboardFormat('HTML Format');\r\nend;\r\n\r\nprocedure THTMLClipboardFormatData.SetAsHtml(const Value: String);\r\nvar\r\n  S: QStringA;\r\n  AText: String;\r\n  AHandle: THandle;\r\nbegin\r\n  RegisterHtmlFormat;\r\n  S := QString.Utf8Encode(Value);\r\n  AText := Format('Version:0.9'#13#10 + \/\/\r\n    'StartHTML:%08u'#13#10 + \/\/\r\n    'EndHTML:%08u'#13#10 + \/\/\r\n    'StartFragment:%08u'#13#10 + \/\/\r\n    'EndFragment:%08u'#13#10 + \/\/\r\n    '<html><body>'#13#10 + \/\/\r\n    '<!--StartFragment -->'#13#10 + \/\/\r\n    '%s'#13#10 + \/\/\r\n    '<!--EndFragment-->'#13#10 + '<\/body><\/html>', [97, 172 + S.Length, 111,\r\n    136 + S.Length, Value]);\r\n  S := QString.Utf8Encode(AText);\r\n  AHandle := GlobalAlloc(GMEM_DDESHARE, S.Length + 1);\r\n  if AHandle <> 0 then\r\n  begin\r\n    try\r\n      Move(PQCharA(S)^, GlobalLock(AHandle)^, S.Length + 1);\r\n    finally\r\n      GlobalUnlock(AHandle);\r\n      Clipboard.SetAsHandle(CF_HTML, AHandle);\r\n    end;\r\n  end;\r\nend;\r\n<\/pre>\n
\u7528\u6cd5\u662f\u76f4\u63a5\u64cd\u4f5c Clipboard.AsHtml \u5c5e\u6027\u5c31\u53ef\u4ee5\u4e86\uff0c\u4f8b\u5982\uff1a<\/p>\n
Clipboard.AsHtml:='<b>Very good<\/b>';<\/pre>\n
\u3010\u793a\u4f8b\u3011<\/h4>\n
ClipboardHtmlSupportDemo<\/a><\/p>\n
\u8fd0\u884c\u6548\u679c\uff1a<\/p>\n
\"\"<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"
\u55ef\uff0c\u76f4\u63a5\u4e0a\u4ee3\u7801\uff0c\u9700\u8981\u5f15\u7528 \u00a0QDAC \u7684 […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"site-sidebar-layout":"default","site-content-layout":"","ast-site-content-layout":"default","site-content-style":"default","site-sidebar-style":"default","ast-global-header-display":"","ast-banner-title-visibility":"","ast-main-header-display":"","ast-hfb-above-header-display":"","ast-hfb-below-header-display":"","ast-hfb-mobile-header-display":"","site-post-title":"","ast-breadcrumbs-content":"","ast-featured-img":"","footer-sml-layout":"","ast-disable-related-posts":"","theme-transparent-header-meta":"","adv-header-id-meta":"","stick-header-meta":"","header-above-stick-meta":"","header-main-stick-meta":"","header-below-stick-meta":"","astra-migrate-meta-layouts":"default","ast-page-background-enabled":"default","ast-page-background-meta":{"desktop":{"background-color":"var(--ast-global-color-4)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""},"tablet":{"background-color":"","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""},"mobile":{"background-color":"","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""}},"ast-content-background-meta":{"desktop":{"background-color":"var(--ast-global-color-5)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""},"tablet":{"background-color":"var(--ast-global-color-5)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""},"mobile":{"background-color":"var(--ast-global-color-5)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""}},"footnotes":""},"categories":[69,8,603],"tags":[576,462],"class_list":["post-4905","post","type-post","status-publish","format-standard","hentry","category-c-builder","category-delphi","category-603","tag-html","tag-462"],"views":3221,"_links":{"self":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/4905","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=4905"}],"version-history":[{"count":4,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/4905\/revisions"}],"predecessor-version":[{"id":4911,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/4905\/revisions\/4911"}],"wp:attachment":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=4905"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=4905"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=4905"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}