Delphi图像处理
Delphi的TCanvas以及派生类提供了显示TGraphic图像的方法Draw，其实这个方法本身并没有显示图像的功能，只是反过来调用了一下TGraphic的Draw方法。TGraphic本身是个抽象类，其Draw方法也是个纯虚方法，所以TGraphic的所有派生类必须提供一个具体的Draw方法。TGraphic的主要派生类TBitmap也有一个Draw方法，但是该方法只能利用其Transparent属性显示透明背景图像，而不能正确显示带Alpha通道的32位图像，即使Delphi2009以上版本的TGraphic增添了一个SupportsPartialTransparency属性，但TBitmap也还是没法直接显示ARGB像素格式的图像，因为TBitmap调用的是Windows API的AlphaBlend函数，该函数似乎只能显示PARGB格式像素的图像，而且TGraphic的SupportsPartialTransparency属性还是只读性质的。
GDI+的TGpGraphics的系列DrawImage方法画ARGB32位图像倒是很好的，但如果图像真的含Alpha信息时，显示的速度却是较慢，大家可以用2张较大的图片试一下，一张含Alpha，一张不含Alpha，对比一下就知道了。
因为本系列图像处理过程中有多个方法会使Alpha分量发生变化，即使该图像原来不含Alpha信息，所以有必要写图像显示过程。而且，如果在应用程序中只是需要显示处理过的图像，就不必再将TImageData类型转换为TGraphic或者TGpBitmap了，直接使用本文的显示过程无疑是很方便的。
本文的图像显示过程是利用图像合成过程（见《Delphi图像处理 -- 图像合成》）、图像缩放过程《Delphi图像处理 -- 图像缩放》及几个Windows API来完成的，下面是具体代码：
过程定义：
// 画图像数据到Canvas，Alpha为图像的不透明度(0 - 1)。
procedure DrawImage(Canvas: TCanvas; x, y: Integer;
Data: TImageData; Alpha: Single = 1.0); overload;
// 拉伸画图像数据到Canvas，Alpha为图像的不透明度(0 - 1)。
procedure DrawImage(Canvas: TCanvas; x, y, Width, Height: Integer;
Data: TImageData; Alpha: Single = 1.0); overload;
procedure DrawImage(Canvas: TCanvas; LayoutRect: TRect;
Data: TImageData; Alpha: Single = 1.0); overload;
procedure DrawImage(Canvas: TCanvas; LayoutRect: TGpRect;
Data: TImageData; Alpha: Single = 1.0); overload;
实现代码：
procedure DrawImage(Canvas: TCanvas; x, y: Integer; Data: TImageD
相关文档：
savetime2k@yahoo.com 2004.1.28
http://savetime.delphibbs.com
今天开始学习元件编辑器，感觉比属性编辑器简单许多，但还是遇到了一些疑问。如果你能解答文中记录的问题，请告诉我答案，谢谢！
目 录
===============================================================================
⊙ TBaseComponentEdit ......
图像缩放是最常用的图像处理，在图像拉伸和取得图像略图中都要用到。图像缩放质量的好坏与图像像素插值方式有关，本文定义了常用的3种插值方式，即临近插值、线性插值和双立方插值方式：
type
// 插值方式: 缺省(线性插值)，临近，线性，双立方
TInterpolateMode = (imDefault, imNear, imBiline ......
1.1、激活
var doc,url:Olevariant ;
begin
url:='about:blank' ;//或者一个有实际意义的url
WebBrowser1.Navigate2(url);//这样就激活了！
end;
1.2、写HTML代码
var doc:Olevariant ;
s:string;
begin
doc:=WebBrowser1.Document;
doc.clear;//清楚缘由内容，以便写新内容
doc.write('<html>');
//其� ......
uses ComObj;
var WordApp: Variant;
begin
WordApp := CreateOleObject('Word.Application');
WordApp.Documents.open('c:\1.doc');
WordApp.Selection.InsertFile('c:\2.doc','',False,false,false);
WordApp.Selection.InsertFile('c:\3.doc','',False,false,false);
WordApp.ActiveDocument.SaveAs('C:\4.doc' ......
WebBrowser组件和MSHTML 在Delphi中的使用
由于项目需要，近来研究了一下WebBrowser组件和MSHTML 在Delphi中的使用,整理了一下这段时间研究的结果,写下来一是方便大家查阅,二也可以加深我自己的记忆.希望能对大家有所帮助… …,同时,如果有更好的处理方式或者我没有提到的问题,请大家也告诉我哦, 咱们一 ......
