标签:end img Button1Click TForm1 fancy Button1 回复 Font 下载
下载并显示网上的图片 - 回复 "fancy" 的问题
问题来源: http://www.cnblogs.com/del/archive/2008/07/29/1254211.html#1271136本例效果图:
代码文件:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} uses GDIPOBJ, GDIPAPI, UrlMon; procedure TForm1.Button1Click(Sender: TObject); const TestPath = 'c:\temp\net.gif'; {下载后临时存放} DownUrl = 'http://del.cnblogs.com/Images/xml.gif'; {要下载的文件} var img: TGPImage; g: TGPGraphics; begin if UrlDownloadToFile(nil, DownUrl, TestPath, 0, nil) = 0 then begin img := TGPImage.Create(TestPath); g := TGPGraphics.Create(Canvas.Handle); g.DrawImage(img, 10, 10, img.GetWidth, img.GetHeight); g.Free; img.Free; end; end; end.窗体文件:
object Form1: TForm1 Left = 0 Top = 0 Caption = 'Form1' ClientHeight = 127 ClientWidth = 249 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False PixelsPerInch = 96 TextHeight = 13 object Button1: TButton Left = 152 Top = 80 Width = 75 Height = 25 Caption = 'Button1' TabOrder = 0 OnClick = Button1Click end endposted on 2008-07-29 18:13 万一 阅读(3832) 评论(13) 编辑 收藏
标签:end,img,Button1Click,TForm1,fancy,Button1,回复,Font,下载 来源: https://blog.51cto.com/u_14617575/2747830
本站声明: 1. iCode9 技术分享网(下文简称本站)提供的所有内容,仅供技术学习、探讨和分享; 2. 关于本站的所有留言、评论、转载及引用,纯属内容发起人的个人观点,与本站观点和立场无关; 3. 关于本站的所有言论和文字,纯属内容发起人的个人观点,与本站观点和立场无关; 4. 本站文章均是网友提供,不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属;如您发现该文章侵犯了您的权益,可联系我们第一时间进行删除; 5. 本站为非盈利性的个人网站,所有内容不会用来进行牟利,也不会利用任何形式的广告来间接获益,纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。