delphi 获取网络图片


本文整理自网络,侵删。

 代码文件:
--------------------------------------------------------------------------------

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP,
StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
IdHTTP1: TIdHTTP;
procedure Button1Click(Sender: TObject);
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

uses jpeg;

procedure TForm1.Button1Click(Sender: TObject);
const
url = 'http://ptlogin2.qq.com/getimage?aid=15000701&0.9129723031485226';
var
ms: TMemoryStream;
jpg: TJPEGImage;
begin
ms := TMemoryStream.Create;
jpg := TJPEGImage.Create;

IdHTTP1.Get(url, ms);
ms.Position := 0;

jpg.LoadFromStream(ms);
Canvas.Draw(10, 10, jpg);

jpg.Free;
ms.Free;
end;

end.

相关阅读 >>

Delphi b编码以及bt种子文件分析

Delphi中一段可以判断网络连接的代码

Delphi exe文件自效验

Delphi程序禁止结束进程

Delphi 禁止alt+f4关闭

Delphi 如何将颜色值转换为灰度颜色值?

Delphi 用nethttpclient执行post操作遇到的问题

Delphi 获取网卡物理地址之内存获取方式函数源码

Delphi firemonkey应用程序取得控制的位置(坐标)的话

Delphi 解析Delphi中的loadlibrary,getprocaddress,freelibrary

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...