还是100分求助：同一段程序为什么在xp和win7环境运行效果不同？

2013-08-04 11:52:47 258 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Win7下VS2010编译的程序在XP报错：找不到msvcp100d.dll或者msvcp100.dll 一、关于DLL的说明报错为msvcp100d.dll，说明是在DEBUG下编译的程序，d表示DEBUG。报错为msvcp100.dll，说明是在RELEASE下编程的程序。二、解决方案：（一）方案一：（参照http://blog.csdn.net/fengkuangfj/article/details/9094177） 1、在targetver.h中添加代码，参照阅读详情

其实是上一个发布的帖子，最终还是没解决，再发一次帖子。代码的目的从image1控件的图片截取圆形区域到image2控件中,然后image2控件的图片要导出bmp文件，要求圆形区域走位是透明的。程序在win xp下运行没问题，截图的周边背景是透明的。在win 7环境下就不行，周边背景是白色，不透明。能否请教是什么问题么？怎么解决？

unit Unit1;



interface



uses

  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;



type

  TForm1 = class(TForm)

    Image1: TImage;

    Image2: TImage;

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}



uses jpeg;



procedure TForm1.Button1Click(Sender: TObject);

var

  Bitmap: TBitmap;

  Rgn: HRGN; { long型}

  jpeg: TJPEGImage;

begin

  Bitmap := TBitmap.Create;

  jpeg := TJPEGImage.Create;



  jpeg.Assign(image1.Picture.Graphic);

  Bitmap.Assign(jpeg);



  Rgn := CreateEllipticRgn(0, 0, 150, 150); { 圆形区域}

  SelectClipRgn(image2.Canvas.Handle, Rgn);



  image2.Transparent := True;

  with image2.Canvas do

  begin

    Brush.Style := bsClear;

    Draw(0, 0, Bitmap);

  end;

  Bitmap.Free;

  jpeg.free;



end;



procedure TForm1.FormCreate(Sender: TObject);

begin

  image1.Picture.LoadFromFile('..\..\bbbb.jpg');

end;



end.