DELPHI使用IDHTTP显示网络图片

来源：互联网发布：知乎怎么增加编辑：程序博客网时间：2024/06/05 02:58

DELPHI使用IDHTTP显示网络图片:

程序代码：

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, StdCtrls, IdBaseComponent, IdComponent,

GifImage, Jpeg, IdTCPConnection, IdTCPClient, IdHTTP;

type

TForm1 = class(TForm)

Edit1: TEdit;

Button1: TButton;

Image1: TImage;

IdHTTP1: TIdHTTP;

Label1: TLabel;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

imagestream:TMemoryStream;

Buffer:Word;

jpg:TjpegImage;

gif:TgifImage;

begin

image1.Picture.Graphic:=nil ;

imagestream := TMemoryStream.Create();

try

IdHTTP1.Request.Accept := '*/*';

IdHTTP1.Request.AcceptLanguage := 'zh-cn';

IdHTTP1.Request.UserAgent:='Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)';

IdHTTP1.Request.Connection := 'Keep-Alive';

IdHTTP1.HTTPOptions:=IdHTTP1.HTTPOptions+[hoKeepOrigProtocol];

IdHTTP1.ProtocolVersion:=pv1_1;

try

idhttp1.Get(Edit1.Text,imagestream);

except

showmessage('连接失败！');

exit;

end;

imagestream.Position:=0;

if imagestream.Size = 0 then

begin

imagestream.Free;

ShowMessage('错误!');

exit;

end;

imagestream.ReadBuffer(Buffer,2);

imagestream.Position:=0;

if Buffer=$4D42 then //bmp

begin

image1.Picture.Bitmap.LoadFromStream(imagestream);

end

else if Buffer=$D8FF then //jpg

begin

jpg:=TjpegImage.Create;

jpg.LoadFromStream(imagestream);

image1.Picture.Assign(jpg);

jpg.Free;

end

else if Buffer=$4947 then //gif

begin

gif:=TGifImage.Create;

gif.LoadFromStream(imagestream);

image1.Picture.Assign(gif);

gif.Free;

end

else if Buffer=$050A then

begin

ShowMessage('PCX');

end

else if Buffer=$5089 then

begin

ShowMessage('PNG');

end

else if Buffer=$4238 then

begin

ShowMessage('PSD');

end

else if Buffer=$A659 then

begin

ShowMessage('RAS');

end

else if Buffer=$DA01 then

begin

ShowMessage('SGI');

end

else if Buffer=$4949 then

begin

ShowMessage('TIFF');

end

else

begin

ShowMessage('ERROR');

end;

finally

imagestream.Free;

end;

end.

0 0