在Delphi 7中调试COM+(Windows XP)

在Delphi中使用CreateOleObject方法对WORD文件进行操作使用CreateOleObject方法对WORD文档操作具有先天所具备的优势，与Delphi所提供的那些控件方式的访问相比，CreateOleObject方法距离WORD核心的操作“更近”，因为它直接使用Office所提供的VBA语言对WORD文档的操作进行编程。

以下是我在本机上所做的实验，机器软件配置如下：Windows XP+delphi7.0+OFFICE 2003这个程序很简单，在页面上放置了一个edit和一个button,每单击一次按钮，就会自动把edit中的内容添加在后台中的word文档中，程序关闭时文件自动保存在当前程序的主目录中。

******************************************************************************* unit main;interface//如果要使用CreateOleObject的办法对WORD文档进行操作，应该在uses//语句中加入Comobj声明和WordXP声明usesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Comobj, WordXP, Dialogs, StdCtrls;typeTForm1 = class(TForm)Button1: TButton;Edit1: TEdit;procedure Button1Click(Sender: TObject);procedure FormCreate(Sender: TObject);procedure FormClose(Sender: TObject; var Action: TCloseAction); // procedure Button2Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm1: TForm1;//把这两个变量声明为全局变量FWord: Variant;FDoc: Variant;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);beginFWord.Selection.TypeParagraph;FWord.Selection.TypeText(Text := form1.Edit1.Text);end;procedure TForm1.FormCreate(Sender: TObject);begin//首先创建对象，如果出现异常就作出提示tryFWord := CreateOleObject('Word.Application');//WORD程序的执行是否可见，值为False时程序在后台执行FWord.Visible := False;exceptShowMessage('创建word对象失败！');Exit;end;//先在打开的Word中创建一个新的页面，然后在其中键入"Hello,"+回车＋"World！"tryFDoc := FWord.Documents.Add;FWord.Selection.TypeText(Text := 'Hello，' + #13);FWord.Selection.TypeParagraph; //换行FWord.Selection.TypeText(Text := 'World! ');excepton e: Exception doShowMessage(e.Message);end;end;//在程序关闭时把文件内容保存到当前目录中，并以test.doc命名//同时关闭WORD程序procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);beginFDoc.SaveAs(ExtractFilePath(application.ExeName) +'test.doc');FWord.Quit;FWord := Unassigned;end;end.此外，对OFFICE其他文件的操作都比较类似，不在赘述。

Delphi7中对StretchBlt,StretchDIBits,DrawDibDraw。

我的天哪，上⼀篇博⽂是2年前的事情了。

看来⼜虚度了2年光阴，继续学习。

本⽂算是副产品，正品是利⽤ FFmpeg 从任意视频中⽣成 GIF ⽚段的⼩程序，等写完了再发。

不为别的，只是为了给⼉⼦做动图，且看不惯这种⼯具也要收费！V2G 正品已出炉，虽然不⼤像样，但好⽍是能⽤，请见：。

声明本⽂是⾸先看到了的帖⼦，请参看其中署名为“张辉明”的回复。

我做了优化和⼀些修正，但 DrawDibDraw 部分的调⽤是原⽂照录的。

（其实上⽂就是我 Bing 了DrawDibDraw 时搜到的。

）为什么要测试 StretchBlt、StretchDIBits、DrawDibDraw 的性能因为视频回放需要很⾼的显⽰性能，解码占了很多计算量，留给显⽰的时间不多，能优化则优化吧。

其实现在的 CPU 跑个视频播放已经绰绰有余了，GPU 压根就不必⽤。

即便是⽤ Delphi ⾃带的 TImage 控件，⽤ Bitmap 往⾥填也可以满⾜普通播放需求了。

如果时光倒流到 10 年前，那可真是得去研究 DirectX、OpenGL了。

可惜关于这哥俩，⼤部分都是 C、C++ 的资源，我啃了半天 SDL，觉得有点杀鸡⽤⽜⼑。

所以就想着先实现需求吧，真的不⾏了再优化吧。

在我的 Intel i3 3220 上，⽤ StretchDIBits 播放视频时最多也就跑了 22%。

为什么还抱着 Delphi 不放？1. 性价⽐第⼀敢问性能、便捷、体积俱佳的 Windows 开发环境，谁敢和 Delphi ⽐？C#，Java 是优秀，可为了⼀个⼩功能就跑它个虚拟机，实在划不来啊。

C++ 倒是够 sharp，可学习过程太痛苦了，代码还不容易写。

2. 全能都说 Python 好，可我眼拙，实在看不出来好在哪⾥，局限性太⼤。

唯⼀的好处是能让新⼿快速上⼿编程，还有⼀个好处是能让你忘记计算机是怎么运作的！3. 怀旧⼗⼏年前⾃学的东西，从 Delphi 3 开始⽤，有感情了。

7.1 窗体
组件的事件是对组件所做的某个动作或系统的某些行 为（如按下鼠标、双击鼠标、窗体装入等）的反应。
事 件 说 明
OnClick
OnDblClick
触发条件当鼠标双击时触源自本事件OnMouseDown
OnMouseMove OnKeyDown OnKeyPress OnKeyUp OnEnter OnExit OnStartDrag OnDragDrop
计时器控件Timer的使用
Panel、 Scrollbar组件
Panel：可称之为窗格。可用于创建状态栏、工具栏、工具条等。 Scrollbar用来创建标准Windows滚动条，在很多时候滚动条是自 动加入的，并不需要添加代码来实现。 作用说明 Panel属性
Alignment
BevelInner
移出窗体 Label1.Left:=Label1.Left-20//Left属性值减 20 else Label1.Left:=Form1.Width;//移出左边界时 从窗体右边界移入
7.2 文本显示输入类组件
7.2.3 TMemo组件 1．概述 TMemo备注框组件位于组件面板的Standard选项卡上 ，可以显示、编辑多行文本。 2．主要属性 (1) Lines属性 (2) ScrollBars属性 (3) WantTabs属性
7.3 按钮类组件
7.3.1 TButton组件 1．概述 TButton命令按钮组件用于为用户提供选择执行的命令 ，通常称为命令按钮。 2．主要属性 (1) Cancel属性 (2) Caption属性 (3) Default属性 (4) Enabled属性 (5) ModalResult属性 (6) Name属性 例：加法运算

⼀、问题的提出:运⾏某任务的计算机，尤其是服务器，如果能实现在⽆⼈职守的情况下，到达指定时间时⾃动关机，那么将极⼤地减轻系统管理员的负担，也会给我们的⽇常⼯作带来很⼤⽅便。

　 笔者⽤Delphi开发的这个定时⾃动关机程序，适⽤于⽬前两类的Windows系列操作系统：从Windows　95/98/Me到Windows　NT/2000/XP。

　 ⼆、程序的功能有：　 1.⽤户⾃⼰设定关机时间，通过⾃定义函数IsValidTime()判断⽤户输⼊的时间是否有效。

　 2.定时强制⾃动关机：对于windows　95/98/Me,直接调⽤API函数ExitWindowsEx()关机。

对于NT/2000/XP,需要取得计算机名，获得关机特权后，才能关机：⾸先调⽤OpenProcessToken()函数得到存取令牌的句柄，然后调⽤AdjustTokenPrivileges()函数来使能该特权。

Win32API定义了⼀组字符串常量来标识不同的特权，如关机特权是　’SeShutdownPrivilege’。

　 3.到达设定的关机时间时，延时30秒，以便⽤户保存⽂件，或取消关机。

两类操作系统都显⽰倒记时，对于windows　95/98/Me，只通过程序界⾯显⽰；对于NT/2000/XP，将调⽤系统的倒记时界⾯显⽰。

　 4.为了不占⽤任务栏的空间，程序显⽰在托盘中。

右键单击托盘中的图标，将显⽰快捷菜单。

　 5.如果未到设定的关机时间，系统要关闭，该程序能截获关机消息，由⽤户选择是否关机。

原理是：当⽤户关闭Windows 时，系统会发送给各应⽤程序⼀个消息wm_queryendsession，告诉各应⽤程序要关机了，如果反馈回来的消息值为0，就不能关机。

因此，截获wm_queryendsession，并反馈回0，就⼤功告成了。

　 6.在内存中只运⾏本程序的⼀个实例。

原理是：利⽤Windows　的全局原⼦表信息来实现此功能。