DELPHI使用IDHTTP显示网络图片
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;
end.