2020 年 11月随笔档案 - 滔Roy

Delphi WinAPI SHGetPathFromIDList 将项标识符列表转换为文件系统路径。

摘要：Delphi WinAPI SHGetPathFromIDList 描述：将项标识符列表转换为文件系统路径。原型： BOOL SHGetPathFromIDListA( PCIDLIST_ABSOLUTE pidl, LPSTR pszPath ); 参数： PCIDLIST_ABSOLUTE / 阅读全文

posted @ 2020-11-24 11:39 滔Roy 阅读(381) 评论(0) 推荐(0) 编辑

Delphi WinAPI SHGetSpecialFolderLocation 获取特殊文件夹位置（特殊目录路径）PIDLIST_ABSOLUTE

摘要：Delphi WinAPI SHGetSpecialFolderLocation 获取特殊文件夹位置（特殊目录路径）描述：检索指向特殊文件夹的ITEMIDLIST结构的指针。SHGetSpecialFolderLocation将来可能会不受支持，更改或不可用。而使用 SHGetFolderLoca 阅读全文

posted @ 2020-11-24 11:34 滔Roy 阅读(849) 评论(0) 推荐(0) 编辑

Delphi 获取系统特殊文件夹位置路径（桌面、收藏夹、我的电脑、开始菜单等）

摘要：Delphi 获取系统特殊文件夹位置路径（桌面、收藏夹、我的电脑、开始菜单等）获取系统中特殊目录,例如:桌面、收藏夹、历史文件、字体等。在windows各版本中他们的位置是不同的，有两个特殊的windows API： Function SHGetSpecialFolderLocation(hwnd 阅读全文

posted @ 2020-11-24 11:25 滔Roy 阅读(1023) 评论(0) 推荐(1) 编辑

Delphi WebBrowser[13] 网页中插入自定义JavaScript

摘要：Delphi WebBrowser[13] 网页中插入自定义JavaScript var i:integer; h:IHTMLHeaderElement; o:OleVariant; begin o:=webbrowser1.OleObject.document.createElement('scr 阅读全文

posted @ 2020-11-24 08:46 滔Roy 阅读(423) 评论(0) 推荐(0) 编辑

Delphi 通过URL地址获取网页源码的方法

摘要：Delphi 通过URL地址获取网页源码的方法 uses WinInet, Classes, Windows; function UrlGetStr(const URL: string; ShowHeaders: boolean = false): string; const Agent = 'In 阅读全文

posted @ 2020-11-23 11:05 滔Roy 阅读(1029) 评论(0) 推荐(0) 编辑

Delphi TWebBrowser[12] 操作Alert对话框（禁用、获取）

摘要：Delphi TWebBrowser[12] 操作Alert对话框（禁用、获取） 1、禁用方法： //常规方法 procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: 阅读全文

posted @ 2020-11-23 10:38 滔Roy 阅读(313) 评论(0) 推荐(0) 编辑

Delphi TWebBrowser[11] 读写html代码

摘要：Delphi TWebBrowser[11] 读写html代码注意：html 是UTF-8编码的在中文环境下需要转换成GB2312，否则会显示中文乱码 uses ActiveX; function WB_ReadHTML(aBrowser: TWebBrowser): String; begin 阅读全文

posted @ 2020-11-23 10:07 滔Roy 阅读(381) 评论(0) 推荐(0) 编辑

Delphi TWebBrowser[10] 防止弹出新窗口的几个方法

摘要：Delphi TWebBrowser[10] 防止弹出新窗口的几个方法 1、方法1 uses MsHTML; WebBrowser1.Silent:=True; //可以防止弹出“语法错误”的窗口。 procedure TForm1.WebBrowser1NewWindow2(ASender: TO 阅读全文

posted @ 2020-11-23 09:55 滔Roy 阅读(651) 评论(0) 推荐(0) 编辑

Delphi TWebBrowser[9] 事件Close捕获来防止异常、禁用鼠标右键、回车Enter等键的响应方法

摘要：Delphi TWebBrowser[9] 事件Close捕获来防止异常以及禁用鼠标右键方法 1、事件Close捕获原因：使用TWebBrowser，如果访问的网页有关闭窗口的JavaScript，那么TWebBrowser会被注销，而应用程序本身并没有关闭， 1）在窗体上放置一个TAppli 阅读全文

posted @ 2020-11-23 09:40 滔Roy 阅读(311) 评论(0) 推荐(0) 编辑

Delphi TWebBrowser[8] 访问网页中的表格

摘要：Delphi TWebBrowser[8] 访问网页中的表格 use MSHTML; function GetHtmlTableCell(aTable: IHTMLTable; aRow, aCol: Integer): IHTMLElement; var Row: IHTMLTableRow; b 阅读全文

posted @ 2020-11-23 09:34 滔Roy 阅读(287) 评论(0) 推荐(0) 编辑

Delphi TWebBrowser[7] 获取网页图片（静态和动态）

摘要：Delphi TWebBrowser[7] 获取网页图片（静态和动态） 1、静态图常用方法： uses WinInet function GetLocalFileNameFromIECache(url:string; var LocalFileName:string):DWORD; var D: C 阅读全文

posted @ 2020-11-23 09:08 滔Roy 阅读(411) 评论(0) 推荐(0) 编辑

Delphi TWebBrowser[6] 获取网页所有链接（元素）、下拉菜单及GetElementByID返回值的有效性判定方法

摘要：Delphi TWebBrowser[6] 获取网页所有链接（元素）、下拉菜单及GetElementByID返回值的有效性判定方法 1、获取网页所有链接 var elem: IHTMLElement; coll: IHTMLElementCollection; i: integer; url, ti 阅读全文

posted @ 2020-11-23 09:05 滔Roy 阅读(446) 评论(0) 推荐(0) 编辑

Delphi TWebBrowser[5] 获取含框架的网页完整html源码及多个框架（跨域）的方法

摘要：Delphi TWebBrowser[5] 获取含框架的网页完整html源码及多个框架（跨域）的方法 1、获取html源码的常规方法： (WebBrowser1.Document as IHtmlDocument2).body.outerHtml; 2、获取含框架frame的完整html源码（<b 阅读全文

posted @ 2020-11-23 08:53 滔Roy 阅读(666) 评论(0) 推荐(0) 编辑

Delphi TWebBrowser[4] 页面复制和粘贴 ctrl+c ctrl+V 无效果的处理

摘要：Delphi TWebBrowser[4] 页面复制和粘贴 ctrl+c ctrl+V 无效果的处理解决方法（初始化和终止）： //在程序后面加入 uses Activex; Initialization OleInitialize(nil); Finalization try OleUninit 阅读全文

posted @ 2020-11-20 19:54 滔Roy 阅读(336) 评论(0) 推荐(0) 编辑

JavaScript Window 打开新窗口的几种方式 window.location.href、window.open、window.showModalDialog

摘要：JavaScript Window 打开新窗口的几种方式 1、方式1: window.location.href window.location.href="https://www.cnblogs.com/guorongtao/"; //在当前窗口中打开窗口类似于HTML: <a href="ht 阅读全文

posted @ 2020-11-20 17:02 滔Roy 阅读(17863) 评论(0) 推荐(1) 编辑

Delphi TWebBrowser[3] IE收藏夹操作

摘要：Delphi TWebBrowser[3] IE收藏夹操作 1、添加到收藏夹 const CLSID_ShellUIHelper: TGUID = '{64AB4BB7-111E-11D1-8F79-00C04FC2FBE1}'; procedure AddFavorite(Webbrowser:T 阅读全文

posted @ 2020-11-19 14:32 滔Roy 阅读(165) 评论(0) 推荐(0) 编辑

Delphi TWebBrowser[2]-属性、方法、事件示例详解

摘要：Delphi TWebBrowser[2]-属性、方法、事件示例详解 1、属性（1）AddressBar //设置是否显示地址栏，在TWebBrowser中没有用。语法：property AddressBar:WordBool; （2）Busy //确定Web浏览器组件是否正在导航到一个新的URL 阅读全文

posted @ 2020-11-18 11:43 滔Roy 阅读(783) 评论(0) 推荐(0) 编辑

Delphi TWebBrowser[1]介绍

摘要：Delphi TWebBrowser[1]介绍 1、简介 TWebBrowser组件是一个浏览器组件（基于IE内核），可以显示一个指定地址的网页、设置网页打开时的主页以及对网页进行相关的操作，同时也可以对HTML文件进行剪切、复制、粘贴、删除等操作。该组件在Internet组件页中，属于TWebb 阅读全文

posted @ 2020-11-17 14:23 滔Roy 阅读(602) 评论(0) 推荐(0) 编辑

Delphi {$M +} 与{$TYPEINFO ON} 和 {$M -} 与{$TYPEINFO OFF}

摘要：Delphi {$M +} 与{$TYPEINFO ON} 和 {$M -} 与{$TYPEINFO OFF} 在TPersistent的声明中多了M编译开关，当{$M +} 与{$TYPEINFO ON} 作用是一样的，而{$M -} 与{$TYPEINFO OFF}相同。当一个类在{$M +} 阅读全文

posted @ 2020-11-16 10:53 滔Roy 阅读(173) 评论(0) 推荐(0) 编辑

SQL 通过SQL语句检索字段类型、长度、主键

摘要：SQL 通过SQL语句检索字段类型、长度、主键方式1： select 字段名=a.name, 标识=case when COLUMNPROPERTY( a.id,a.name,'IsIdentity')=1 then '是' else '' end, 主键=case when exists(SEL 阅读全文

posted @ 2020-11-12 15:06 滔Roy 阅读(1406) 评论(0) 推荐(0) 编辑

随笔2020.11.10

摘要：看着很多delphi的大神，在博客园写了很多年，突然就不写了，时间停格在某个日期点，不免有些感概~ 不知道，许多年后的自己是否也是如此？也许吧~ 如果留下的东西能给后人带来帮助，能从中学到东西，也是一件很值得欣慰的事。 --滔Roy 2020.11.10 阅读全文

posted @ 2020-11-10 14:52 滔Roy 阅读(86) 评论(0) 推荐(0) 编辑

Delphi 操作Windows系统睡眠-防止系统/电脑进入睡眠或关闭显示器

摘要：Delphi 操作Windows系统睡眠-防止系统/电脑进入睡眠或关闭显示器 1、防止进入睡眠 1.1、引用单元 Delphi 单元： unit SystemCriticalU; interface uses Windows; type TSystemCritical = class privat 阅读全文

posted @ 2020-11-03 10:51 滔Roy 阅读(712) 评论(0) 推荐(0) 编辑

Delphi WinAPI SetThreadExecutionState - 防止系统在应用程序运行时进入睡眠状态或关闭显示器。

摘要：Delphi WinAPI SetThreadExecutionState - 防止系统在应用程序运行时进入睡眠状态或关闭显示器。描述：使应用程序能够通知系统它正在使用，从而防止系统在应用程序运行时进入睡眠状态或关闭显示器。原型： EXECUTION_STATE SetThreadExecuti 阅读全文

posted @ 2020-11-03 10:35 滔Roy 阅读(1764) 评论(1) 推荐(0) 编辑

Delphi TOpenDialog的使用介绍以及如何动态创建和释放

摘要：Delphi TOpenDialog的使用介绍以及如何动态创建和释放 1、常用属性 DefaultExt：当用户未输入文件扩展名时它用于指明默认的扩展名。 FileName：它为string型用于记录最后一个被选中的文件的全路径名。默认为空。 Filter（过滤器）：它用于设置打开对话框中显示的文件阅读全文

posted @ 2020-11-02 15:31 滔Roy 阅读(1179) 评论(0) 推荐(0) 编辑

滔 Roy

11 2020 档案