获取USB设备插入电脑的USB口位置,获取U盘插入电脑的USB端口号
getUDiskPort.dll,直接获取USB设备插入电脑的端口号字符串,如返回"1"表示Port_0001(Hub_#0001)或USB(1)
博图WinCC V16用ADODB、DataGrid控件显示SQL Server数据.docx
博图WinCC V16用ADODB、DataGrid控件VB脚本显示SQL Server数据
将SQL数据表的一列转换为一行.docx
将SQL数据库的一列多行 数据转换为 一行多列
项目管理变更签证归档管理/生活照片管理器/Exif查看器/GPS定位
手机、相机照片管理器,照片文件的拍照时间、标题、备注设置、检索、查看浏览工具,支持excel双向交换信息,快速为电子文档创建信息。缩略图视图样式做了修改,与windows模式查看一样。Exif信息查看器,GPS定位到百度地图上,优化了说明。
工程影像资料归档管理/Exif查看器/GPS定位V1.2
修改了bug,支持excel双向交换信息,快速为电子文档创建信息。缩略图视图样式做了修改,与windows模式查看一样
ListView缩略图模式与WINDOWS一样的效果
ListView自绘,缩略图模式查看,去掉选中后的背景色,与WINDOWS一样的查看效果
Exif及GPS算法解析
详细Exif及GPS算法解析
工作/生活照片归档管理/Exif查看器/GPS定位
手机、相机照片管理器,招牌呢文件的标题、备注设置、检索、查看浏览工具,Exif信息查看器,GPS定位到百度地图上(单机测试版)
生活/项目图片注释设置/查询管理器小软件
生活/项目图片注释设置/查询管理器,遵照照jpg文件照片格式Exif标准的规定,用于对生活或工作中的图片/照片添加属性注释的一个管理工具,纯绿色软件,支持32/64位系统,在XP/WIN7/WIN10测试通过。
delphi模拟windows文件复制粘贴
delphi模拟windows文件复制粘贴,根据
照片Exif设置备注及GPS查询工具
读取和修改照片Exif数据,设置照片的备注描述信息,读取相机及GPS信息,对照片按关键字进行查找
彻底解决memo内容多时假死问题
当memo内容多时,换行定位类似假死……
1、内容读进readTxtKeep
2、要查找的关键字KeyStr
3、刷新Memeo显示ss
4、然后根据前面显示的次数、关键字,Memeo定位到需要的位置
精确查找和定位CAD中文字,支持两个单行文字的组合
精确查找和定位CAD中文字,支持两个单行文字的组合,或是一个多行文字,如:10PT(上)88(下)
function SearchCADText(strFind:String;Layer:string;underLine,mGroup:Boolean;var Point:variant):boolean;
strFind:要精确查找的文字
Laye:所在图层,==''时在所有图层中查找
underline:是否带下划线
mGroup:组合查找,若是两个单行文字,之间用眼镜符'@-@'分隔(随你怎么更改)如10PT@-@88
Point: 查找成功时返回要查找文字的坐标
精确查找CAD中单行文字,返回坐标
精确查找和定位CAD中的单行文字,返回该单行文字的坐标
CAD矩形区域内返回(单行或多行)文字
返回CAD指定矩形区域内的单行或多行文字,文字超过矩形区域,就查不到了!查找时切换到指定矩形区域,然然后恢复CAT视图
delphi查询CAD图中距离某点最近矩形的四个角坐标
delphi查询CAD图中距离某点最近矩形的四个角坐标(逆时针A,B,C,D),给定坐标点p0,找到指定距离内与p0点最近点A的矩形,返回该矩形的四个角坐标
Image图像复制.txt
从一个Image图像复制到另一个image
AdvStringGrid任意列筛选字符/数值/数值范围
{对AdvStringGrid任意列筛选过滤,直接调用
过滤条件:
大于任意值:'>100'
……
结尾字符:'*尾'
}
StringGrid类似excel的自动行号,行号永远不会变
StringGrid生成类似excel里最左边的行号,排序后行号总是从小到大不变,若要生成列也一样。
delphi由关键字获得应用程序完整窗口名称fuction
delphi由关键字获得应用程序完整窗口名称,如'CAD '获得完整的窗口名称:
'AutoCAD 2014 - [try.dwg]'
delphi创建任意透明效果窗体
delphi创建任意透明效果的窗体。form窗体不透明,上面设置透明pannel,设为你想设为透明的颜色,pannel上只要与这种颜色相同的地方将呈现透明状态,任意透明的效果即可呈现
APP自动同时显示CAD最大化界面
delphi开发dwg文件管理器,CAD同时打开,在击活APP的同时,自动显示CAD最大化界面,用到SwitchToThisWindowPostMessage
Delphi切换CAD显示dwg文件窗口
Delphi直接操作CAD时,同时打开多个文档时,切换显示到所要求的X.dwg文件窗口。注意dwgFile的类型,在遍历cad.Documents对象集合时,图形文件对象Item的用法
给活动控件画上矩形边框
截取windows的消息,转换为delphi控件,设置边框位置
批量地址转换为经纬度,并在百度地图上显示出来
教师家访,将学生的批量地址转换为经纬度,并在百度地图上显示出来。可选择是否显示学生性别(gif动画),或显示学生分布的区域集中度(聚合),还可以显示学校照片、学生头像,在点击学校(学生)图标时显示对应的信息。
也可用于单位员工的住址分布在地图上的显示。
学生住址分布及学情分析
学生住址分布及学情分析的综合
教师家访,将学生的批量地址转换为经纬度,并在百度地图上显示出来。可选择是否显示学生性别(gif动画),或显示学生分布的区域集中度(聚合),还可以显示学校照片、学生头像,在点击学校(学生)图标时显示对应的信息。
也可用于单位员工的住址分布在地图上的显示。
返回给定日期当月的第一天、最后一天的日期
返回给定日期当月的第一天和最后一天的日期
Delphi SQL server数据库存取jpg图片
存入:将指定jpg文件和索引保存在SQL server表中,成功返回true,失败返回false;
读:将数据库中符合索引条件的jpg二进制数据拷贝到SL.Strings[0]指定的路径中,读出的文件名保存在TStringList中
delphi从网页头获取网络时间日期
delphi从任意网页头信息中提取网络时间日期
StringGrid部分行按列排序
点击StringGrid标题列,对该列任意行之间的数据进行排序
vb绘制3个Y坐标轴图表源代码
VB绘制EXCEL1个X轴、3个Y坐标轴的图表源代码