2008 年 7月随笔档案 - 万一

如何获取重载函数的地址 - 回复 "flq_00000" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/07/30/1039045.html#1272783 在编译器看来, 重载函数根本就是完全不同的几个函数, 当然就会有不同的函数地址; 我们用常规方法获取的地址只是第一种重载的地址. 代码文件: unit Unit1; interface uses Windows, Messages, SysUt... 阅读全文

posted @ 2008-07-30 23:46 万一阅读(4536) 评论(6) 推荐(0) 编辑

在 Delphi 中调用 JavaScript(1) - 回复 "fancy" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/07/30/1256669.html#1272732 源码下载: http://files.cnblogs.com/del/Dephi-JavaScript.rar 本例测试用的 Html 文件(包含三个要测试的 Js 函数): 本例效果图: 代码文件: unit Uni... 阅读全文

posted @ 2008-07-30 22:06 万一阅读(10686) 评论(23) 推荐(1) 编辑

根据窗口句柄获取所在程序路径 - 回复 "Haiwen" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/07/30/1255869.html#1272342 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dia... 阅读全文

posted @ 2008-07-30 17:35 万一阅读(8738) 评论(18) 推荐(0) 编辑

下载并显示网上的图片之二(假如是 GIF 图片) - 回复 "fancy" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/07/29/1255817.html#1271328 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dia... 阅读全文

posted @ 2008-07-29 20:15 万一阅读(3348) 评论(4) 推荐(0) 编辑

下载并显示网上的图片 - 回复 "fancy" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/07/29/1254211.html#1271136 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dia... 阅读全文

posted @ 2008-07-29 18:13 万一阅读(4078) 评论(13) 推荐(0) 编辑

复杂的结构化存取(二)

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; B... 阅读全文

posted @ 2008-07-27 23:55 万一阅读(5827) 评论(20) 推荐(0) 编辑

复杂的结构化存取(一)

摘要：之所以说复杂, 就是区别与以前谈到的结构化文件存取; 这种复杂的结构化文件也有叫做"复合文档". 有些文档不是结构化的, 譬如记事本文件; 结构化的档可以分为以下几类: 标准结构化文档、自定义结构化文档(譬如 bmp 文件)和复合文档. 这里要谈到的结构化储存(复合文档)是由 Windows 系统通过 COM 提供的, 它能完成像 Windows 目录结构一样复杂的文件结构的存取; 提示一下... 阅读全文

posted @ 2008-07-27 10:01 万一阅读(11007) 评论(16) 推荐(2) 编辑

启动控制面板各窗口

摘要：首先复习怎样调用外部程序: Delphi 运行外部程序是使用 Windows.WinExec 或 ShellAPI.ShellExecute, 譬如: WinExec('notepad.exe', SW_NORMAL); {打开记事本} WinExec('regedit.exe', SW_NORMAL); {打开注册表编辑器} DLL 文件与 EXE 文件的主要区别就是 EXE 可以直接... 阅读全文

posted @ 2008-07-26 21:23 万一阅读(3308) 评论(3) 推荐(0) 编辑

借用批处理文件打开网站

摘要：1、新建个文本文件 2、譬如输入: @start iexplore.exe del.cnblogs.com 3、保存为 *.bat(保存时从保存类型选择"所有文件"), 譬如保存为 abc.bat 4、运行这个 abc.bat 文件阅读全文

posted @ 2008-07-26 17:14 万一阅读(3947) 评论(1) 推荐(0) 编辑

再学 GDI+[103]: TGPImage(23) - 提取 GIF 动画的每一帧

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; L... 阅读全文

posted @ 2008-07-16 13:07 万一阅读(5790) 评论(35) 推荐(0) 编辑

使用钩子函数[6] - 数据传递

摘要：上一个例子是从 DLL 中接受数据, 那怎么给 DLL 传递数据呢? 还有, 在接受数据时, 让 Timer 一直在那扫描也不是个好办法呀. 本例解决了这些问题(但不知解决了博友 "鹏" 的问题没有?). 为了方便测试, 提供一个源码下载吧: http://www.cnblogs.com/Files/del/MouseHook_2.rar 本例效果图(和上一例是一样的): DLL 文件:... 阅读全文

posted @ 2008-07-14 12:45 万一阅读(7023) 评论(28) 推荐(0) 编辑

使用钩子函数[5] - 数据传递

摘要：前言: 博友 "鹏" 来信探讨关于钩子的问题, 核心困难是: dll 中的数据如何传递出来. 在接下来的两个例子中探讨这个问题. 本例建立一个全局的鼠标钩子, 然后把鼠标的相关信息通过一个自定义的 GetInfo 函数传递给调用钩子的程序. 为了方便测试, 提供一个源码下载吧: http://www.cnblogs.com/Files/del/MouseHook_1.rar 本例效果图:... 阅读全文

posted @ 2008-07-14 12:41 万一阅读(5190) 评论(10) 推荐(0) 编辑

再学 GDI+[102]: TGPImage(22) - 获取所有解码器的详细信息

摘要：本例运行结果: Clsid: {557CF400-1A04-11D3-9A73-0000F81EF32E} FormatID: {B96B3CAB-0728-11D3-9D7B-0000F81EF32E} CodecName: Built-in BMP Codec DllName: FormatDescription: BMP FilenameExtension: *.BMP;*.DIB;*.... 阅读全文

posted @ 2008-07-10 15:32 万一阅读(2537) 评论(0) 推荐(0) 编辑

再学 GDI+[101]: TGPImage(21) - 获取所有编码器的详细信息

摘要：本例运行结果: Clsid: {557CF400-1A04-11D3-9A73-0000F81EF32E} FormatID: {B96B3CAB-0728-11D3-9D7B-0000F81EF32E} CodecName: Built-in BMP Codec DllName: FormatDescription: BMP FilenameExtension: *.BMP;*.DIB;*.... 阅读全文

posted @ 2008-07-10 15:26 万一阅读(2161) 评论(0) 推荐(0) 编辑

回复 "Timer008" 的一个类型转换的问题 - 不是很典型, 对其他人参考价值不大

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/07/10/1239621.html#1250359 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, St... 阅读全文

posted @ 2008-07-10 10:51 万一阅读(1483) 评论(3) 推荐(0) 编辑

获取多边形面积的函数 - 回复 "dacsd" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/07/09/1237697.html#1250073 我曾经傻呵呵地这样做过: http://www.cnblogs.com/del/archive/2008/07/08/1238238.html#1249117 代码文件: unit Unit1; interface uses Windows... 阅读全文

posted @ 2008-07-10 01:01 万一阅读(2849) 评论(11) 推荐(0) 编辑

一个定时器相关的简单例子 - 回复 "Timer008" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/07/09/1073218.html#1249648 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Ext... 阅读全文

posted @ 2008-07-09 16:36 万一阅读(2514) 评论(7) 推荐(0) 编辑

再学 GDI+[100]: TGPImage(20) - 替换颜色

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, TeCanvas; type TForm1 = class(TForm) ButtonColor1:... 阅读全文

posted @ 2008-07-08 15:40 万一阅读(4031) 评论(8) 推荐(0) 编辑

在 case 语句中使用字符串

摘要：非常遗憾 Delphi 的 case 语句不支持字符串, 但我觉得这也可能是基于效率的考量; 如果非要在 case 中使用字符串, 也不是不可以变通, 这里提供了五种方法. 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls... 阅读全文

posted @ 2008-07-08 03:46 万一阅读(14684) 评论(9) 推荐(0) 编辑

枚举当前所有的 IE 窗口 - 回复 "混岗" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/02/28/1085432.html#1247615 致 "混岗" 同学: 你同时提到 IE 中的 "输入框", 没有明白你的意思; 这个例子只是找顶层窗口, IE 的 "输入框" 是 IE 窗口的子窗口, 需要在此基础上继续枚举子窗口. 本例效果图(测试时, 我打开了: 搜狐、谷歌和我的博客): ... 阅读全文

posted @ 2008-07-07 23:16 万一阅读(3088) 评论(1) 推荐(0) 编辑

再学 GDI+[99]: TGPImage(19) - 把图像转存为其他格式

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) OpenDialog1: ... 阅读全文

posted @ 2008-07-07 18:56 万一阅读(6162) 评论(15) 推荐(0) 编辑

再学 GDI+[98]: TGPImage(18) - 获取 GDI+ 图像格式对应的 GUID

摘要：和在 Net 中不同的是, 在具体指定图像格式时, 这里常常需要的不是格式名称, 而是格式的 GUID; 知道了格式名称, 用 GetEncoderClsid 函数可以获取格式的 GUID; GetEncoderClsid 函数来自 GDIPUTIL 单元, 本例并没有用到前面一直不可或缺的 GDIPOBJ、GDIPAPI 单元. 如果要获取 image/bmp、image/jpeg、image... 阅读全文

posted @ 2008-07-07 10:51 万一阅读(2993) 评论(2) 推荐(0) 编辑

再学 GDI+[97]: TGPImage(17) - 获取 GDI+ 所支持的可编码、可解码的图像格式

摘要：其实这和 TGPImage 是没有关系的. 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) M... 阅读全文

posted @ 2008-07-07 10:16 万一阅读(2525) 评论(0) 推荐(0) 编辑

再学 GDI+[96]: TGPImage(16) - 所谓剪取颜色

摘要：{红色增加绿色的 m 倍、蓝色的 n 倍} ColorMatrix: TColorMatrix = ( (1.0, 0.0, 0.0, 0.0, 0.0), (m, 1.0, 0.0, 0.0, 0.0), (n, 0.0, 1.0, 0.0, 0.0), (0.0, 0.0, 0.0, 1.0, 0.0), (0.0, 0.0, 0.0, 0.0, 1.0)); ... 阅读全文

posted @ 2008-07-07 00:12 万一阅读(2111) 评论(0) 推荐(0) 编辑

再学 GDI+[95]: TGPImage(15) - 颜色的旋转变换

摘要：我通过做此例同时证实了 GDI+ 可以直接显示 png、gif、tif 格式的透明图片. //红色与绿色绕蓝色旋转(r 是弧度) ColorMatrix: TColorMatrix = ( (Cos(r), Sin(r), 0.0, 0.0, 0.0), (-Sin(r), Cos(r), 0.0, 0.0, 0.0), (0.0, 0.0, 1.0, ... 阅读全文

posted @ 2008-07-06 21:53 万一阅读(2865) 评论(7) 推荐(0) 编辑

再学 GDI+[94]: TGPImage(14) - 增减图像的红、绿、蓝三色的成分

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 = class(TForm) TrackBar1: TT... 阅读全文

posted @ 2008-07-06 00:09 万一阅读(2099) 评论(3) 推荐(0) 编辑

再学 GDI+[93]: TGPImage(13) - 调整图像红、绿、蓝三原色及透明度

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 = class(TForm) TrackBar1: TT... 阅读全文

posted @ 2008-07-05 20:54 万一阅读(2828) 评论(1) 推荐(0) 编辑

再学 GDI+[92]: TGPImage(12) - 调整图像透明度

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 = class(TForm) TrackBar1: TT... 阅读全文

posted @ 2008-07-05 00:22 万一阅读(4328) 评论(3) 推荐(0) 编辑

再学 GDI+[91]: TGPImage(11) - 转灰度图像

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) CheckBox1: TCheckBox; ... 阅读全文

posted @ 2008-07-04 23:45 万一阅读(2696) 评论(0) 推荐(0) 编辑

给 Memo 排序的函数

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; Butto... 阅读全文

posted @ 2008-07-04 16:50 万一阅读(3887) 评论(0) 推荐(0) 编辑

再学 GDI+[90]: TGPImage(10) - 获取图像的调色板信息

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids; type TForm1 = class(TForm) DrawGrid1: TDraw... 阅读全文

posted @ 2008-07-04 02:11 万一阅读(3115) 评论(2) 推荐(0) 编辑

再学 GDI+[89]: TGPImage(9) - 图像缩放时的质量(算法)

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) ListBox1: TListBox; ... 阅读全文

posted @ 2008-07-03 11:41 万一阅读(6041) 评论(2) 推荐(0) 编辑

再学 GDI+[88]: TGPImage(8) - 放大镜

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) CheckBox1: TCheckBox; ... 阅读全文

posted @ 2008-07-03 00:30 万一阅读(3714) 评论(6) 推荐(0) 编辑

再学 GDI+[87]: TGPImage(7) - 调整图像大小

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObj... 阅读全文

posted @ 2008-07-02 18:33 万一阅读(4911) 评论(16) 推荐(0) 编辑

再学 GDI+[86]: TGPImage(6) - 拖动图像

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObj... 阅读全文

posted @ 2008-07-02 15:50 万一阅读(4385) 评论(22) 推荐(0) 编辑

删除或添加最大化、最小化按钮 - 回复 "Tommy the CAT" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/07/02/1202871.html#1242042 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dia... 阅读全文

posted @ 2008-07-02 11:58 万一阅读(2320) 评论(11) 推荐(0) 编辑

一个用 GDI+ 给图片添加花边的例子 - 给 "sky123" 做的

摘要：按 "sky123" 的样图要求, 花边必须是透空的, 最好使用图元文件; 本例没有做完保存功能, 也没有实现整个图片的调整功能. 因为有测试图片, 给个源码下载吧: http://www.cnblogs.com/Files/del/sky123.rar 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysU... 阅读全文

posted @ 2008-07-01 17:31 万一阅读(4803) 评论(2) 推荐(0) 编辑

再学 GDI+[85]: TGPImage(5) - RotateFlip - 旋转与镜像

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) ListBox1: TListBox; ... 阅读全文

posted @ 2008-07-01 16:21 万一阅读(4810) 评论(3) 推荐(0) 编辑

再学 GDI+[84]: TGPImage(4) - 把图像显示在指定的矩形中

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormPaint(Sender: TObje... 阅读全文

posted @ 2008-07-01 15:47 万一阅读(3311) 评论(0) 推荐(0) 编辑

再学 GDI+[83]: TGPImage(3) - 平行四边形变换

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormPaint(Sender: TObje... 阅读全文

posted @ 2008-07-01 14:48 万一阅读(2791) 评论(5) 推荐(0) 编辑

再学 GDI+[82]: TGPImage(2) - GetThumbnailImage - 略缩图

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormPaint(Sender: TObje... 阅读全文

posted @ 2008-07-01 12:40 万一阅读(3408) 评论(2) 推荐(0) 编辑

再学 GDI+[81]: TGPImage(1) - 显示图像

摘要：已知 GDI+ 可以支持的图像格式: BMP、JPEG、GIF、TIFF、PNG、ICO、WMF、EMF TGPGraphics.DrawImage 函数有太多重载了, 一起列在这吧: function DrawImage(image: TGPImage; const point: TGPPointF): TStatus; overload; function DrawImage(image... 阅读全文

posted @ 2008-07-01 09:54 万一阅读(5742) 评论(5) 推荐(0) 编辑