本例效果图:
![](https://www.cnblogs.com/images/cnblogs_com/del/142973/o_87291.gif)
代码文件:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, ExtCtrls; type TForm1 = class(TForm) Image1: TImage; IdHTTP1: TIdHTTP; Button1: TButton; procedure Button1Click(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} uses GifImg; procedure TForm1.Button1Click(Sender: TObject); const DownUrl = 'http://del.cnblogs.com/Images/xml.gif'; {要下载的文件} var stm: TMemoryStream; gif: TGIFImage; begin stm := TMemoryStream.Create; IdHTTP1.Get(DownUrl, stm); stm.Position := 0; gif := TGIFImage.Create; gif.LoadFromStream(stm); Image1.Picture.Graphic := gif; gif.Free; stm.Free; 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 Image1: TImage Left = 10 Top = 10 Width = 105 Height = 105 end object Button1: TButton Left = 152 Top = 80 Width = 75 Height = 25 Caption = 'Button1' TabOrder = 0 OnClick = Button1Click end object IdHTTP1: TIdHTTP AllowCookies = True ProxyParams.BasicAuthentication = False ProxyParams.ProxyPort = 0 Request.ContentLength = -1 Request.Accept = 'text/html, */*' Request.BasicAuthentication = False Request.UserAgent = 'Mozilla/3.0 (compatible; Indy Library)' HTTPOptions = [hoForceEncodeParams] Left = 112 Top = 40 end end