DELPHI使用IDHTTP显示网络图片.docVIP

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