TImage 控件实例

//需要引用 JPEG单元 直接从内存显示图片
  Var
    Jpg: TJPEGImage;
  Begin
    IdHTTP1.Get(Gz.Groups[1], Stream);
    Jpg := TJPEGImage.Create;
    Stream.Position := 0;
    Jpg.LoadFromStream(Stream);
    Image3.Picture.Assign(Jpg);
  End;

//直接显示本地图片 需要引用 JPEG单元
Begin
   Form1.Image3.Picture.LoadFromFile('C:\123.Jpg');
End;

//显示Bmp位图
Var
  Bmp: TBitmap;
Begin
  Bmp := TBitmap.Create;
  Bmp.LoadFromFile('C:\123.bmp');
  Image1.Picture.Bitmap := Bmp;
End;

{屏幕截图}
Var
  Bit: TBitMap;
  Dc: HDC;
  Can: TCanvas;
begin
  Dc := GetDc(0);
  Can := TCanvas.Create;
  Can.Handle := Dc;
  Bit := TBitMap.Create;
  Bit.Width := Screen.Width;
  Bit.Height := Screen.Height;
  Bit.Canvas.CopyRect(Rect(0, 0, Screen.Width, Screen.Height), Can, Rect(0, 0, Screen.Width, Screen.He