delphi idhttp控件,timage

可以不用再写代码了，直接上DEMO（参考附件）第四个按钮是最后效果按钮。（由于 不能加附件，看来直接上代码了）：unit Unit1; interface uses   Dialogs, jpeg, ExtCtrls, StdCtrls, Spin; type     Image1: TImage;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    SpinEdit1: TSpinEdit;
    Button4: TButton;
    Panel1: TPanel;
    Image2: TImage;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
    procedure MyDraw;
  public
    { Public declarations }
  end; var
  Form1: TForm1; implementation {$R *.dfm}
uses Math; procedure TForm1.Button1Click(Sender: TObject);
begin
  MyDraw;
end; procedure TForm1.Button2Click(Sender: TObject);
var
  
  desBmp, srcBmp: TBitmap;
  Bmp :TBitmap;
  FRgn :HRGN;
  R:TRect;
begin 
  Bmp := TBitmap.Create;
  try
    Bmp.PixelFormat := Image1.Picture.Bitmap.PixelFormat;
    Bmp.Width  :=100;
    Bmp.Height :=100;
    R := Image1.ClientRect;
    R.Left := 0;
    R.Top := 0;
    R.Bottom := 200;
    R.Right := 200;     //FRgn:= CreateEllipticRgnIndirect(R);
    FRgn := CreateEllipticRgn(0,0,200,200); //创建圆形区域     ///Image2.Canvas.Draw(0,0,Bmp); //位图位于区域内的部分加载
    Image2.Picture.Assign(bmp);
    //Image2.Canvas.Ellipse(R);   finally
    Bmp.Free;
  end;
  DeleteObject(FRgn);
end; procedure TForm1.MyDraw;
var
  bf: BLENDFUNCTION;
  desBmp, srcBmp: TBitmap;
  rgn: HRGN;
begin
  with bf do
  begin
    BlendOp := AC_SRC_OVER;
    BlendFlags := 0;
    AlphaFormat := 0;
    SourceConstantAlpha := 150; // 透明度，0~255
  end;
 
  desBmp := TBitmap.Create;
  srcBmp := TBitmap.Create;
  try
    //这里进行了转换（jpg的适应了bitmap
    srcBmp.Assign(image1.Picture.Graphic);
    
    image1.Picture.Assign(nil);
    image1.Picture.Bitmap.Assign(nil);     desBmp.Width := srcBmp.Width;
    desBmp.Height := srcBmp.Height;
    Windows.AlphaBlend(desBmp.Canvas.Handle, 0, 0,
      desBmp.Width, desBmp.Height, srcBmp.Canvas.Handle,
      0, 0, srcBmp.Width, srcBmp.Height, bf);     rgn := CreateEllipticRgn(80,0, 200, 120); // 创建一个圆形区域     //画个透明的圈圈    
    srcBmp.Canvas.Draw(0, 0, desBmp); 
    image1.Picture.Bitmap.Assign(srcBmp);
  finally
    desBmp.Free;
    srcBmp.Free;
  end
end; procedure TForm1.FormCreate(Sender: TObject);
var
  jp:TJPEGImage;
begin
  (*
   jp:=TJPEGImage.Create;
   jp.loadfromFile('1.jpg');
   Image1.Picture.Assign(jp);
   jp.Free;    Image1.Picture.LoadFromFile('head.jpg');
   DoubleBuffered := True;
end; procedure TForm1.Button3Click(Sender: TObject);
const
  BORDER = 3;
Var
  Bmp : TBitmap;
  w, h: Integer;
  x, y: Integer;    
  rgn: HRGN;
begin
  Bmp:=TBitmap.Create;
  try
    Bmp.PixelFormat:=pf24bit;
    Bmp.Canvas.Font.Name  :='Arial';                            // set the font to use
    Bmp.Canvas.Font.Size  :=20;                                 //set the size of the font
    Bmp.Canvas.Font.Color := clWhite;                           //set the color of the text
    w          := SpinEdit1.Value;//Bmp.Canvas.TextWidth(酷酷的咖啡(SpinEdit1.Value));   //calculate the width of the image
    h          := SpinEdit1.Value;//Bmp.Canvas.TextHeight(酷酷的咖啡(SpinEdit1.Value));  //calculate the height of the image
    Bmp.Width  := Max(w, h) + BORDER * 2;                       // get a square
    Bmp.Height := Max(w, h) + BORDER * 2;                       // get a square
    x          := (Bmp.Width  - w) div 2;                       // center
    y          := (Bmp.Height - h) div 2;                       // center
    Bmp.Canvas.Brush.Color := clBlue;                           //set the background
    //Bmp.Canvas.FillRect(Rect(0,0, Bmp.Width, Bmp.Height));      //paint the background which is transparent
    Bmp.Canvas.Brush.Color := clRed;                            // circle in red
    Bmp.Canvas.Pen.Color   := clRed;                            // circle in red
    //Bmp.Canvas.Ellipse(0, 0, Bmp.Width, Bmp.Height);            // draw the circle
    //Bmp.Canvas.TextOut(x, y, 酷酷的咖啡(SpinEdit1.Value));            //draw the number     rgn := CreateEllipticRgn(0,0, 100, 100); // 创建一个圆形区域     //Bmp.Canvas.Draw(0,0, bmp);     Image2.Picture.Assign(bmp);                                   // assign the bmp to the image ; image.transparent = true, .stretch = true;
  finally
    Bmp.Free;
  end;
end; procedure TForm1.Button4Click(Sender: TObject);
var
  bmp:TBitmap;
  Rhandle:HRGN;
  R:TRect;
begin   Image2.Picture.LoadFromFile('head.jpg');
  Image2.AutoSize := true;
  R := Image2.ClientRect;
  bmp := TBitmap.Create;
  //bmp.LoadFromFile('1.bmp');
  bmp.Assign(Image2.Picture.Graphic);
  
  //Rhandle:=CreateRoundRectRgn(100,0,200,100,100,100);
  Rhandle:=CreateRoundRectRgn(0,0,Image2.Width,Image2.Height,Image2.Width,Image2.Height);   Image2.Picture.Assign(nil);
  Image2.AutoSize := false;
  Image2.Stretch := false;
  Image2.Height := R.Bottom - R.Top;
  Image2.Width := R.Right - R.Left;   Image2.Canvas.Brush.Color:=clRed;
  Image2.Canvas.FillRect(Image2.ClientRect);   Image2.Canvas.Draw(0,0,bmp);
  deleteObject(Rhandle);
  Image2.Canvas.Brush.Style := bsClear;
  Image2.Picture.Bitmap.TransparentColor := clRed;
  Image2.Picture.Bitmap.Transparent      := True;
  Image2.Transparent:=True;
end; end.