zoukankan      html  css  js  c++  java
  • 下载并显示网上的图片 回复 "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
    end
    
  • 相关阅读:
    20121025
    活到老学到老
    VS2012 正式版BUG太多
    JSP页面basePath路径问题
    这样的日子
    正确用JQ的AJAX加载XML并解析
    JSP中的5中转发方式
    C#编码规范
    jsp判断用户是否在线
    beging
  • 原文地址:https://www.cnblogs.com/del/p/1255817.html
Copyright © 2011-2022 走看看