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

smijerryan 2013-08-04 11:52:47
其实是上一个发布的帖子,最终还是没解决,再发一次帖子。代码的目的从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.


在win7平台运行的屏幕效果如下:



在win xp平台运行的屏幕效果如下:

...全文
195 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
smijerryan 2013-08-10
  • 打赏
  • 举报
回复
感谢2#的提醒!确实bmp格式的不支持透明
smijerryan 2013-08-05
  • 打赏
  • 举报
回复
我今天测试了下,好像在win xp环境下,截取后的image周边也不一定透明,如果win xp安装.net 4.0就不透明,要卸载掉.net 4.0才可以。win 7环境卸载掉.net 4.0也没有用。奇怪!
jaxdong 2013-08-04
  • 打赏
  • 举报
回复
只是背景色不同,bmp格式的图片是不支持透明滴。
feiba7288 2013-08-04
  • 打赏
  • 举报
回复
上个帖子就让你按我的代码来了,你杂不用我的代码呢,哥。。。 下面的代码在win7,XP下都行的。 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); //加上下面两句就行了,作用是将Image2的背景色填充为窗口的颜色 image2.Canvas.Brush.Color := Self.Color; image2.Canvas.FillRect(image2.ClientRect); //////////////////////////////////////////////////////////// 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; end;
iSee视频监控 v5.2 视频监控软件使用说明书 版权所有 翻录必究 2009年10月1日 Ver:01.01.05 注意事项 首先,感谢您选用我公司最新产品。 在使用本监控卡之前,请详细阅读本说明书所涉及的相关事项,熟悉 硬件、软件各部的功能后,方能使用,以确保该系统为您发挥最佳功能。 否则一切后果自负。 本说明书将向您详细阐述全实时“视频监控系统”的安装、操作、设 置和网络使用方法。 本系统工作主机供电电压为220V_10%,如果在电压不稳或者干扰大 的场合,请您选用优质稳压电源(即UPS),保证系统正常良好的工作状态。 本系统在安装、拆卸视频采集卡时,必须将主机处于完全断电状态, 否则主板上残留的电压将损坏采集卡。 本系统可切换D1与CIF辨率,切换辨率设置后,在主界面必须关 闭通道视频,重新打开通道视频,设置才能生效。 本系统主机工作于常温(-10_3℃~55_2℃)、清洁的环境,并且保持 良好的通风状态。 本系统软件属于我公司专有产品,未经同意,请勿复制,否则影响机 器稳定概不负责,并将通过有关法律渠道追究盗版责任。 功能特点(H.264压缩) 压缩方式:H.264/MPEG 4; 显示辨率:1024_768、1280_1024、16:9宽屏、16:10宽屏; 预览辨率 (可调) :704_576(PAL制),740_480(NTSC制); 352_288(PAL制),370_240(NTSC制); 录像辨率(所见即所得):704_576(PAL制), 740_480(NTSC制); 352_288(PAL制),370_240(NTSC制); 单机容量支持12路D1、48路CIF; 支持单画面、4画面、9画面、16画面、20画面、25画面显示,可全屏显示,支持自动 翻页; 多画面实时显示/录像/回放功能,支持多协议云镜控制,支持多种报警盒实现联动报警; 手动录像、连续录像、定时录像、动态录像、事件录像、联动报警录像等多种录像方式; 可以设置每个通道的显示名称; NTSC/PAL两种视频显示制式可选, 25帧/秒实时预览、录像、回放; 视频图像属性调节功能,使图像更清晰。 视频录像图像质量有多种等级可调,以改变存储文件大小,方便不同场合应用。 视频移动报警录像功能,报警录像灵敏度、预录像时间、延迟录像时间可调,支持声音 报警输出。 智能检索,可按摄像镜头年/月/日/时间段或长时间连续检索回放,自动检索报警录像, 能区录像事件。 具有局部放大功能,可逐帧回放,快速播放,慢速播放,常规播放。 回放时可进行图片抓拍功能,回放时文件备份功能、文件剪辑功能。 可进行远程监控,远程控制云镜、色彩、手动录像、布撤防、重启计算机等控制工作。 支持现今最大容量的硬盘,并支持安装多个大容量的硬盘。 硬盘管理可以通过对最大使用硬盘和硬盘最小预留空间的设置使硬盘能够得到充合理 的使用。 自动创建日志文件(用户操作日志、系统日志、远程控制日志),便于查询操作记录。 系统可任意设置定时关机,定时重启功能,保证系统运行的高稳定性。 可设定开机自动运行监控软件,断电自动关闭程序,来电自动重启,自动恢复录像。 硬件、软件经过严格的拷机试验,稳定可靠。 系统硬件配置要求低,48路同时录像显示时,CPU的占用率低于75%。 系统能有效防止用户多次重复运行监控系统导致系统崩溃的情况。 目录 第一部 软件安装与卸载..............................................................................................................6 1.1 系统要求 ..................................................................................................................................................6 1.1.1 硬件要求(推荐) ................................................................................

1,185

社区成员

发帖
与我相关
我的任务
社区描述
Delphi GAME,图形处理/多媒体
社区管理员
  • GAME,图形处理/多媒体社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧