本文整理自网络,侵删。
代码文件:
--------------------------------------------------------------------------------
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 winapi: gettickcount - 获取系统已启动的时间
Delphi getprocessidentity 获取当前登录状态的管理员
Delphi tmemo控件滚动条scrollbar末尾插入字符串一点都会闪烁的轻松实现
Delphi 文件/流的加密解密单元 unit_compress.pas
更多相关阅读请进入《Delphi》频道 >>