zoukankan      html  css  js  c++  java
  • 下载并显示网上的图片之二(假如是 GIF 图片) 回复 "fancy" 的问题

    问题来源: http://www.cnblogs.com/del/archive/2008/07/29/1255817.html#1271328

    本例效果图:



    代码文件:
    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
    
  • 相关阅读:
    vim对光标所在的数字进行增减
    fedora找开ftpd服务器并以root登陆
    wxwidget自定义消息处理步骤
    c++的检测的确比C++更严格
    php常用字符串操作函数
    如何判断一个数组是一维数组或者是二维数组?用什么函数?
    php 面试 题汇总
    php 数组 常用函数
    php 会话控制
    用tp实现中文验证码
  • 原文地址:https://www.cnblogs.com/del/p/1255869.html
Copyright © 2011-2022 走看看