文档章节

下载并显示网上的图片之二(假如是 GIF 图片) - 回复 "fancy" 的问题

涂孟超
 涂孟超
发布于 2014/09/26 15:35
字数 226
阅读 11
收藏 0
问题来源: 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

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2008/07/29/1255869.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
android显示网络gif图片

这功能源自负责app中要加一个显示gif广告图功能。 android自带控件不支持gif图片,网上很多通过扩展ImageView或View来实现支持gif图片,但在android4.0后,需要关闭硬件加速功能才能使用,而...

penngo
2015/07/21
0
2
Android中显示动画的GIF-Movie类解决方案

首先看看GIF文件的存储结构和动画原理-->[转]GIF图片的文件储存结构和动画原理 以及已知的两种解决方案-->Android & how to use animated GIF Github上还算可以的开源项目-->gif-movie-view...

正经点
2013/10/30
0
1
博客中添加超过200k的.gif文件以及其它图片文件的方法介绍

首先我们解决的是如何获得.gif文件的问题, 这个问题很简单, 网上的录屏软件层出不穷, 例如camtasia studio可以解决这项工作, 但我强力推荐大家使用fatstone capture+迅雷影音播放器 , 首先选...

limiaoneu
2016/01/02
75
0
CSS中background:url(图片) 不能显示的问题

刚刚碰到一个诡异的问题,这样一段CSS代码: background:url(images/bg/bg1.gif) no-repeat; 这段代码居然不能显示出背景图片,倒塌。。。 代码肯定没有问题,即便我没有对背景图片定位,这里...

W_Lu
2016/05/06
241
2
(android开源库android-gif-drawable)第一篇 eclipse使用这个开源库

如果想显示gif图片 推荐使用Glide开源库 android-gif-drawable我就不推荐了 android开源库android-gif-drawable的使用 android的开源库是用来在android上显示gif图片的。我在网上查了一下,大...

乱取名字
2014/07/08
0
31

没有更多内容

加载失败,请刷新页面

加载更多

[LintCode] Binary Tree Level Order Traversal(二叉树的层次遍历)

描述 给出一棵二叉树,返回其节点值的层次遍历(逐层从左往右访问) 样例 给一棵二叉树 {3,9,20,#,#,15,7} : 3 / \9 20 / \ 15 7 返回他的分层遍历结果: [ [3], [...

honeymose
10分钟前
0
0
Spring Cloud Config 规范

Spring Cloud Config 规范 首先Spring Cloud 是基于 Spring 来扩展的,Spring 本身就提供当创建一个Bean时可从Environment 中将一些属性值通过@Value的形式注入到业务代码中的能力。那Sprin...

阿里云官方博客
19分钟前
0
0
renderer

renderer Function 单元格绘制处理函数,同drawcell事件。

architect刘源源
30分钟前
4
0
jdk1.8 lambda表达式过滤重复的对象

//操作类public class BizAgentAudit {    private String supplierOrgId;    private int age;    private String name;        public BizAgentAudit() { ...

INSISTQIAO
31分钟前
3
0
DataUtil的日期处理

SimpleDateFormat 是线程不安全的类,一般不要定义为 static 变量,如果定义为static,必须加锁,或者使用 DateUtils 工具类。 解决方法 1、将SimpleDateFormat定义成局部变量。 缺点:每调用...

DoLo-lty
35分钟前
3
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部