{"id":469,"date":"2009-06-19T09:27:00","date_gmt":"2009-06-19T01:27:00","guid":{"rendered":""},"modified":"2013-11-17T17:26:33","modified_gmt":"2013-11-17T09:26:33","slug":"delphi%e4%b8%ad%e7%9a%84jpg%e3%80%81png%e3%80%81gif-%e5%9b%be%e7%89%87%e5%8f%8a-gif-%e5%8a%a8%e7%94%bb%e7%9a%84%e6%98%be%e7%a4%ba","status":"publish","type":"post","link":"https:\/\/kyle.ai\/blog\/469.html","title":{"rendered":"Delphi\u4e2d\u7684jpg\u3001png\u3001gif \u56fe\u7247\u53ca gif \u52a8\u753b\u7684\u663e\u793a"},"content":{"rendered":"<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nunit Unit1;\r\n\r\ninterface\r\n\r\nuses\r\nWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,\r\nDialogs, StdCtrls, ExtCtrls;\r\n\r\ntype\r\nTForm1 = class(TForm)\r\n    Button1: TButton;\r\n    Button2: TButton;\r\n    Button3: TButton;\r\n    Button4: TButton;\r\n    procedure Button1Click(Sender: TObject);\r\n    procedure Button2Click(Sender: TObject);\r\n    procedure Button3Click(Sender: TObject);\r\n    procedure Button4Click(Sender: TObject);\r\nend;\r\n\r\nvar\r\nForm1: TForm1;\r\n\r\nimplementation\r\n\r\n{$R *.dfm}\r\n\r\nuses jpeg, GIFImg, pngimage;\r\n\r\n{\u663e\u793a jpg \u56fe\u7247}\r\nprocedure TForm1.Button1Click(Sender: TObject);\r\nvar\r\njpg: TJPEGImage;\r\nbegin\r\njpg := TJPEGImage.Create;\r\njpg.LoadFromFile('C:\\Temp\\Test.jpg');\r\nCanvas.Draw(0, 0, jpg);\r\njpg.Free;\r\nend;\r\n\r\n{\u663e\u793a png \u56fe\u7247}\r\nprocedure TForm1.Button2Click(Sender: TObject);\r\nvar\r\npng: TPngImage;\r\nbegin\r\npng := TPngImage.Create;\r\npng.LoadFromFile('C:\\Temp\\Test.png');\r\nCanvas.Draw(0, 0, png);\r\npng.Free;\r\nend;\r\n\r\n{\u663e\u793a gif \u56fe\u7247}\r\nprocedure TForm1.Button3Click(Sender: TObject);\r\nvar\r\ngif: TGIFImage;\r\nbegin\r\ngif := TGIFImage.Create;\r\ngif.LoadFromFile('C:\\Temp\\Test.gif');\r\nCanvas.Draw(0, 0, gif);\r\ngif.Free;\r\nend;\r\n\r\n{\u663e\u793a gif \u52a8\u753b}\r\nprocedure TForm1.Button4Click(Sender: TObject);\r\nvar\r\ngif: TGIFImage;\r\nbegin\r\ngif := TGIFImage.Create;\r\ngif.LoadFromFile('C:\\Temp\\Test.gif');\r\ngif.Animate := True;\r\n\r\nwith TImage.Create(Self) do begin\r\n    Parent := Self;\r\n    Left := 0;\r\n    Top := 0;\r\n    Picture.Assign(gif);\r\nend;\r\n\r\ngif.Free;\r\nend;\r\n\r\nend.\r\n<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>unit Unit1; interface uses Windows, Messages, SysUtils, [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[6],"tags":[],"class_list":["post-469","post","type-post","status-publish","format-standard","hentry","category-code_related"],"_links":{"self":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/469","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/comments?post=469"}],"version-history":[{"count":1,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/469\/revisions"}],"predecessor-version":[{"id":4744,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/469\/revisions\/4744"}],"wp:attachment":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/media?parent=469"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/categories?post=469"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/tags?post=469"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}