{"id":36226,"date":"2012-04-04T15:11:53","date_gmt":"2012-04-04T07:11:53","guid":{"rendered":"http:\/\/www.lanmaowang.com\/?p=36226"},"modified":"2015-04-01T23:07:16","modified_gmt":"2015-04-01T15:07:16","slug":"delphi-filestream","status":"publish","type":"post","link":"http:\/\/www.lanmaowang.com\/?p=36226","title":{"rendered":"delphi filestream"},"content":{"rendered":"<p><\/p>\n<pre class=\"brush:delphi;toolbar:false\">procedure&nbsp;TForm1.Button1Click(Sender:&nbsp;TObject);\r\nvar\r\n&nbsp;&nbsp;&nbsp;f1:TFileStream;\r\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;filename:String;\r\nbegin\r\n&nbsp;&nbsp;&nbsp;OpenDialog1.Execute&nbsp;;\r\n&nbsp;&nbsp;&nbsp;filename:=OpenDialog1.FileName&nbsp;;\r\n&nbsp;&nbsp;&nbsp;f1:=TfileStream.Create&nbsp;(filename,fmopenread);\r\n&nbsp;&nbsp;&nbsp;try\r\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;RichEdit1.Lines.LoadFromStream(f1);\r\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;f1.Position:=0;\r\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Memo1.Lines.LoadFromStream(f1);\r\n&nbsp;&nbsp;&nbsp;finally\r\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;f1.free;\r\n&nbsp;&nbsp;&nbsp;end;\r\nend;\r\nprocedure&nbsp;TForm1.Button2Click(Sender:&nbsp;TObject);\r\nvar&nbsp;f1:TFileStream;\r\n&nbsp;&nbsp;&nbsp;filename:string;\r\nbegin\r\n&nbsp;&nbsp;&nbsp;savedialog1.Execute&nbsp;;\r\n&nbsp;&nbsp;&nbsp;filename:=saveDialog1.FileName&nbsp;;\r\n&nbsp;&nbsp;&nbsp;f1:=TFilestream.Create&nbsp;(filename,FmCreate);\r\n&nbsp;&nbsp;&nbsp;try\r\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;RichEdit1.Lines.SaveToStream&nbsp;(f1);\r\n&nbsp;&nbsp;&nbsp;finally\r\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;f1.Free&nbsp;;\r\n&nbsp;&nbsp;&nbsp;end;\r\nend;<\/pre>\n<p><\/p>\n","protected":false},"excerpt":{"rendered":"<p>procedure&nbsp;TForm1.Button1Click(Sender:&nbsp;TObject [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":36146,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[193],"tags":[198,220],"_links":{"self":[{"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=\/wp\/v2\/posts\/36226"}],"collection":[{"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=36226"}],"version-history":[{"count":1,"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=\/wp\/v2\/posts\/36226\/revisions"}],"predecessor-version":[{"id":36227,"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=\/wp\/v2\/posts\/36226\/revisions\/36227"}],"wp:featuredmedia":[{"embeddable":true,"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=\/wp\/v2\/media\/36146"}],"wp:attachment":[{"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=36226"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=36226"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.lanmaowang.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=36226"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}