{"id":574,"date":"2008-05-14T09:08:04","date_gmt":"2008-05-14T09:08:04","guid":{"rendered":"http:\/\/6teen.ru\/?p=611"},"modified":"2008-05-14T09:08:04","modified_gmt":"2008-05-14T09:08:04","slug":"2503","status":"publish","type":"post","link":"http:\/\/pblog.ru\/lab\/?p=574","title":{"rendered":"\u041f\u043e\u043b\u0443\u0447\u0438\u0442\u044c \u0438 \u0441\u043e\u0445\u0440\u0430\u043d\u0438\u0442\u044c HTML-\u043a\u043e\u0434 \u0438\u0437 TWebBrowser"},"content":{"rendered":"<p>\u041f\u043e\u043b\u0443\u0447\u0438\u0442\u044c \u0438 \u0441\u043e\u0445\u0440\u0430\u043d\u0438\u0442\u044c HTML-\u043a\u043e\u0434 \u0438\u0437 TWebBrowser<br \/>\n<!--more--><\/p>\n<pre class=\"alt2\" style=\"margin:0px; padding:6px; border:1px inset; width:580px; height:320px; overflow:auto\"><div>\u041f\u043e\u043b\u0443\u0447\u0438\u0442\u044c \u0438 \u0441\u043e\u0445\u0440\u0430\u043d\u0438\u0442\u044c HTML-\u043a\u043e\u0434 \u0438\u0437 TWebBrowser\n\n\u0410\u0432\u0442\u043e\u0440: http:\/\/www.swissdelphicenter.ch\n\nuses ActiveX;\n\nfunction WB_SaveHTMLCode(WebBrowser: TWebBrowser; const FileName: TFileName): Boolean;\nvar ps: IPersistStreamInit;\n      fs: TFileStream;\n      sa: IStream;\nbegin\nps := WebBrowser.Document as IPersistStreamInit;\nfs := TFileStream.Create(FileName, fmCreate);\ntry\nsa := TStreamAdapter.Create(fs, soReference) as IStream;\nResult := Succeeded(ps.Save(sa, True));\nfinally\nfs.Free;\nend;\nend;\n\nfunction WB_GetHTMLCode(WebBrowser: TWebBrowser; ACode: TStrings): Boolean;\nvar ps: IPersistStreamInit;\n      ss: TStringStream;\n      sa: IStream;\n      s: string;\nbegin\nps := WebBrowser.Document as IPersistStreamInit;\ns := '';\nss := TStringStream.Create(s);\ntry\nsa := TStreamAdapter.Create(ss, soReference) as IStream;\nResult := Succeeded(ps.Save(sa, True));\nif Result then ACode.Add(ss.Datastring);\nfinally\nss.Free;\nend;\nend;\n\nprocedure TForm1.Button1Click(Sender: TObject);\nbegin\nWB_SaveHTMLCode(Webbrowser1, 'c:\\test.txt');\nend;\n\nprocedure TForm1.Button2Click(Sender: TObject);\nbegin\nWB_GetHTMLCode(Webbrowser1, Memo1.Lines);\nend;\n<\/div><\/pre>\n<p><\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u041f\u043e\u043b\u0443\u0447\u0438\u0442\u044c \u0438 \u0441\u043e\u0445\u0440\u0430\u043d\u0438\u0442\u044c HTML-\u043a\u043e\u0434 \u0438\u0437 TWebBrowser<\/p>\n","protected":false},"author":3,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[169,386],"tags":[1142,592,913,1756],"_links":{"self":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/posts\/574"}],"collection":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/users\/3"}],"replies":[{"embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=574"}],"version-history":[{"count":0,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/posts\/574\/revisions"}],"wp:attachment":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=574"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=574"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=574"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}