文档章节

下载并显示网上的图片之二(假如是 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
博客中添加超过200k的.gif文件以及其它图片文件的方法介绍

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

limiaoneu
2016/01/02
75
0
Android中显示动画的GIF-Movie类解决方案

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

正经点
2013/10/30
0
1
(android开源库android-gif-drawable)第一篇 eclipse使用这个开源库

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

乱取名字
2014/07/08
0
31
CSS中background:url(图片) 不能显示的问题

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

W_Lu
2016/05/06
241
2

没有更多内容

加载失败,请刷新页面

加载更多

Django支持中文

django是支持中文界面, 先找到Django语言包安装目录,我的在: /usr/local/python3/lib/python3.6/site-packages/django/conf/locale 有zh-Hans和zh-Hant两个文件, 其中zh-Hans是简体中文,...

MichaelShu
14分钟前
1
0
迷宫问题:顺序栈解法

采用顺序栈以及回溯法,一个比较简单的问题,但是从来没有写过,也算是弥补一下自己欠数据结构的债吧,居然也花了一个半小时,无地自容了。。 定义好数据结构求解算法就显得容易一些了。 st...

LoSingSang
21分钟前
0
0
Zookeeper 概述及应用场景

一、概述 分布式协调技术,主要用来解决分布式环境当中多个进程之间的同步控制,让他们有序的去访问某种临界资源,防止造成"脏数据"的后果。 ZooKeeper是一个分布式的,开放源码的分布式应用...

PeakFang-BOK
28分钟前
0
0
(译)OpenGL ES2.0 – Iphone开发指引

教程截图: OpenGL ES 是可以在iphone上实现2D和3D图形编程的低级API。 如果你之前接触过 cocos2d,sparrow,corona,unity 这些框架,你会发现其实它们都是基于OpenGL上创建的。 多数程序员...

robslove
38分钟前
0
0
金九银十跳槽季,程序员面试点解析之Java专场

前言 近年来Java工程师这个岗位炙手可热,市场需求大,学习Java的人也越来越多,所以IT企业与求职者的选择都比较多,那么IT企业在面试时都会提哪些问题呢。下面为大家分享 Java高级工程师面试...

老道士
41分钟前
0
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部