delphi
caidaqin001
这个作者很懒,什么都没留下…
展开
-
Delphi WebBrowser内核版本修改
Delphi WebBrowser内核版本修改WebBrowser的默认内核是IE的改变内核版本的操作:1、在开始菜单内输入“regedit.exe”,进入注册表编辑器2、找到注册表项:HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION在右侧空白区域内单击鼠标右键,点击[新建]→[DWORD(32-位)值]新建的项取名为 你.转载 2020-08-11 18:43:35 · 1156 阅读 · 0 评论 -
delphi 使用WindowsAPI回调函数EnumWindowsProc获取系统窗口列表
unit GetWinProcMainForm;interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) mmo: TMemo; btn1: TButton; procedure btn1Click(Sender: TObject); priv..转载 2020-06-30 10:19:53 · 405 阅读 · 0 评论 -
Delphi 中 FindWindow 和 FindWindowEx 的语法和用法
FindWindow(lpClassName,{窗口的类名}lpWindowName: PChar{窗口的标题}): HWND;{返回窗口的句柄; 失败返回 0}//FindWindowEx 比 FindWindow 多出两个句柄参数:FindWindowEx(Parent: HWND;{要查找子窗口的父窗口句柄}Child: HWND;{子窗口句柄}ClassName: PChar;{}WindowName: PCha...原创 2020-06-30 10:15:26 · 1029 阅读 · 0 评论 -
Delphi中WebBrowser自定义拦截、重写Alert对话框消息
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls, SHDocVw, ActiveX; type IDocHostShowUI = interface(IUnknown) ['{c4d244b0-d43e-11cf-893b-00aa00bdce1a}'] function .转载 2020-06-30 10:09:53 · 244 阅读 · 0 评论 -
Delphi Webbrowser中自动点击Alert弹出窗口中的按钮
function CallBackProc(H, HMainForm: hwnd): Boolean; stdcall;varhChild: hwnd;beginResult := True;if GetParent(H) = HMainForm then beginhChild := FindWindowEx(H, 0, PChar('Button'), PChar('OK'));if hChild > 0 then SendMessage(hChild, ...转载 2020-06-27 19:07:34 · 368 阅读 · 0 评论 -
WebBrowser操作元素值填表
1.自动填写表单并发布两种方法vari:integer;Doc:IHTMLDocument2;input:OleVariant;userinputelement,pwdinputelement,ValidateElement:ihtmlinputelement;ValidateImage:IHTMLImgElement;imagecount:integer;form:ihtmlformelement;myitem:Olevariant;...原创 2020-06-24 18:57:44 · 264 阅读 · 0 评论 -
delphi WebBrowser的使用方法详解
网页代码:<SELECT id=fy onchange=TouchRefresh(1) name=fy> <OPTION selected value=15>每頁顯示15筆</OPTION> <OPTION value=30>每頁顯示30筆</OPTION> <OPTION value=60>每頁顯示60筆</OPTION></SELECT>1.webbrowser执行网页中的JS函数如果要执行To.转载 2020-06-24 14:55:43 · 1302 阅读 · 0 评论 -
Delphi中WebBrowser的使用技巧汇总
1>调用网页中已知对象src := WebBrowser1.OleObject.document.getElementByIdx(’id1′).src其实就是javascript中的 getElementByID 的函数2>获得网页中的某个变量值Html中的代码 : <script> var userID=123</script>在delphi程序中这么调用id := Form1.WebBrowser1.OleObject.Document.script转载 2020-05-26 19:10:44 · 495 阅读 · 0 评论 -
SuperObject (String To TSuperArray)
Demo1:productList := '[{"area":"全国","isp":"移动","amount":"10","productId":"20216"},' + '{"area":"全国","isp":"联通","amount":"10","productId":"20325"}]';productArray := SO(F_query.productList).As...原创 2020-01-14 17:34:59 · 1210 阅读 · 0 评论 -
Delphi xe 10.3之安装 TServerSocket 和TClientSocket
The socket components are not installed by default. To use the socket components, you must install thedclsockets<.bpl>package.To install the socket components:SelectComponent >Install...转载 2019-10-14 16:45:02 · 470 阅读 · 0 评论 -
关于Dephi的Unicode转ASCII中文
示例:测试转码转码:测试转码function uni2ascii(html: string): string;var i, p, len: integer; gbc, ttxt: string;begin p := pos('&#', html); while (p &...原创 2019-08-19 14:06:14 · 406 阅读 · 0 评论 -
Delphi XE10 MD5获取方法
Delphi XE10 以上版本如下获取:单元引用 IdHashMessageDigest, IdHash;声明如下方法:type TMD5= class(TIdHashMessageDigest5); function StrToMD5(s: string): string; overload; function StrToMD516(s: string; l: int...转载 2019-07-11 16:59:19 · 1772 阅读 · 0 评论