delphi
关注
分享
扫一扫
wjw806
这个作者很懒，什么都没留下…
展开
-
Delphi获取处理剪贴板中Excel中的数据，封装成自定义的数据集，可以处理右键菜单、Ctrl+V快捷键
delphi获取处理剪贴板中Excel中的数据，封装成自定义的数据集下载地址：delphi获取处理剪贴板中Excel中的数据，封装成自定义的数据集-Delphi文档类资源-优快云下载原创 2022-03-08 22:42:31 · 374 阅读 · 0 评论 -
Delphi访问网上邻居的方法
procedure TForm1.ConnectServer;var NetSource : TNetResource; dwResult:DWORD;begin g_bFlag:=True; with NetSource do begin dwType := RESOURCETYPE_ANY; lpLocalName :=''; lpRemoteName:='\\172.16.3.209...原创 2021-09-18 09:57:06 · 278 阅读 · 0 评论 -
delphi10.2 将网页页面带格式复制到word中。
delphi10.2 将网页页面带格式复制到word中。保留网页文本格式。具体源码见资源链接https://download.youkuaiyun.com/download/wjw806/18545045原创 2021-05-10 11:48:23 · 164 阅读 · 0 评论 -
Delphi中判断WebBrowser的页面是否加载完成
procedure TForm2.FormCreate(Sender: TObject);var url:String;begin WebBrowser1.silent:=true; //屏蔽脚本错误 url:='http://zhanhua.binzhou.gov.cn/zwgk/news/detail?tcode=N5a8a781acfdeaa227ae234f6b75e22b7&code=10000000233500'; url:='http://www.cbrhq.gov...原创 2021-04-22 06:57:10 · 739 阅读 · 1 评论 -
单独打开系统文件夹
ShellExecute(Handle,'open','Explorer.exe','C:\Windows',nil,1);原创 2021-04-22 06:41:46 · 129 阅读 · 0 评论 -
delphi向控件发送消息，全选、复制、黏贴，sendmessage
CEFWindowParent1.SetFocus ; SendMessage(CEFWindowParent1.Handle,EM_SETSEL,0,-1); SendMessage(CEFWindowParent1.Handle, WM_COPY, 0, 0); SendMessage(RichEdit1.Handle, WM_Paste, 0 , 0 );原创 2021-04-20 14:10:29 · 1101 阅读 · 0 评论 -
Delphi CEF4Delphi Chromium1 设置User-Agent
方法1procedure TMiniBrowserFrm.Chromium1BeforeResourceLoad(Sender: TObject; const browser: ICefBrowser; const frame: ICefFrame; const request: ICefRequest; const callback: ICefRequestCallback; out Result: TCefReturnValue); //===============设...转载 2020-10-21 11:40:42 · 1647 阅读 · 1 评论 -
Delphi中Chrome Chromium获取元素的方法
一、遍历网页元素并点击JS:转载请注明出处，原文地址：http://blog.youkuaiyun.com/xtfnpgy/article/details/481553231.遍历所有元素var eles=document.all;for(var i=0;i<eles.length;i++){var a; var d=eles[i]; var s=eles[i].getAttribute("class"); if(s!=null){ ...转载 2020-10-21 11:20:52 · 2634 阅读 · 0 评论 -
TcxTreeListf单元格颜色
var item:TcxTreeListNode; ARec:TRect;begin inherited;// //if AViewInfo.Column.Properties is TcxImageComboBoxProperties then item:=AViewInfo.Node; if AViewInfo.Column.ItemIndex=1 then begin if ((item<>nil) and (item.Texts[0]='2'...原创 2020-10-16 14:05:01 · 196 阅读 · 0 评论 -
获取本地计算机IP地址
Registry, //IdHashMessageDigest,IdGlobal,IdHash,//MD5加密 winsock,IdIPWatch, myMd5, ActiveX,ExtCtrls,Variants,Classes,Windows,Graphics;function myFunction_GetLocalIP:string;type TaPInAddr = array [0..10] of PInAddr; PaPInAddr = ^T...原创 2020-05-26 14:16:07 · 142 阅读 · 0 评论 -
获得磁盘序列号
//获得磁盘序列号function TForm1.Get_DiskSerialNo(DriveID : char) : string;var VolumeSerialNumber : DWORD; MaximumComponentLength : DWORD; FileSystemFlags : DWORD;begin result := ''; try GetVolumeInformation(PChar(DriveID + ':\'), ...原创 2020-05-09 10:48:25 · 339 阅读 · 0 评论 -
一个操作FTP的封装类，可以连接FTP、上传文件、下载文件、修改文件、删除文件、已经创建文件夹等功能。
具体代码见：https://download.youkuaiyun.com/download/wjw806/12361765一个delphi封装的操作FTP的类原创 2020-04-25 18:40:53 · 179 阅读 · 0 评论 -
delphi中用dbexpress连接mysql5.7方法以及libmysql.dll和dbxopenmysql50.dll动态链接库
示例下载地址：https://download.youkuaiyun.com/download/wjw806/12358607示例中有连接需要的libmysql.dll和dbxopenmysql50.dll动态链接库。procedure TForm1.Button1Click(Sender: TObject);var Connection: TSQLConnection; v1,v2:Var...原创 2020-04-24 15:39:29 · 1234 阅读 · 1 评论 -
有关Delphi中使用ADOQuery带参数操作Mysql数据库中文乱码问题总结
有关Delphi中使用ADOQuery带参数操作Mysql数据库中文乱码问题总结（数据库不同要求不同，以前操作Oracle就没有这些问题）1、使用TObject作为传递参数使用TObject作为传递参数，变量WideString， 赋值需指定ftWideString，需转换成WideString类型赋值。（变量定义为string出现中文乱码）procedure TForm1.Butt...原创 2020-04-11 17:00:50 · 1130 阅读 · 0 评论 -
TcxTreeListt 动态增加列
varvColumn:TcxTreeListColumn;beginvColumn:=cxTreeList1.CreateColumn(nil);vColumn.DataBinding.ValueTypeClass:=TcxCurrencyValueType;vColumn.PropertiesClass:=TcxCurrencyEditProperties;(vColumn...原创 2020-04-09 17:08:00 · 838 阅读 · 0 评论 -
自动增加ODBC数据源
https://download.youkuaiyun.com/download/wjw806/12300724原创 2020-04-07 17:05:36 · 198 阅读 · 0 评论 -
Delphi 数据类型列表
Delphi 数据类型列表分类 范围 字节 备注 简单类型 序数 整数 Integer -2147483648 .. 2147483647 4 有符号32位 Cardinal 0 .. 4294967295 4 无符号32位 Shortint -128 .. 127 1 有符号8位 Sma...原创 2020-04-03 09:43:19 · 230 阅读 · 0 评论 -
CreateProcess StartupInfo 改变外部程序窗口的起始位置和大小
var zAppName:array[0..512] of char; zCurDir:array[0..255] of char; WorkDir:String; StartupInfo:TStartupInfo; ProcessInfo:TProcessInformation; FileName:String;begin FileName:=C:/Progra原创 2008-05-04 20:45:00 · 6839 阅读 · 3 评论