delphi xe10 获取屏幕截图

//截取屏幕图片 function MakeScaleScreenshot(Sender: TControl): TBitmap; function GetScreenScale: Single; var ScreenService: IFMXScreenService; begin Result := ; if TPlatformServices.Current.SupportsPlatformService(IFMXScreenService, IInterface(ScreenServic…

Delphi编程获取系统当前进程、窗口句柄、文件属性以（转）

Delphi编程获取系统当前进程.窗口句柄.文件属性以及程序运行状态. uses TLHelp32,PsAPI; (1)显示进程列表:procedure TForm1.Button2Click(Sender: TObject);var lppe: TProcessEntry32;found : boolean;Hand : THandle;P:DWORD;s:string;beginListBox1.Items.Clear ;Hand := CreateToolhelp32Snapshot(TH…

【Delphi】获取EIP

var EIP: Cardinal; procedure GetEIP(); stdcall; asm pop eax; mov EIP,eax; push eax; end; procedure TForm1.Button1Click(Sender: TObject); begin GetEIP(); ShowMessage()); end; 记录一下.由C++转成Delphi的获取EIP代码.…

咏南中间件+开发框架支持最新的DELPHI XE10.1(BERLIN) UPDATE1

咏南中间件+开发框架支持最新的DELPHI XE10.1(BERLIN) UPDATE1 购买提供:中间件源码,价格十分优惠!有意者请向本人索取演示程序! 附带福利(赠送): CS开发框架源码BS开发框架源码移动APP源码中间件集群源码二层改三层源码开发文档+在线技术服务+永久免费升级+老用户提供免费升级…

（转载）delphi中获取汉字的拼音首字母

delphi中获取汉字的拼音首字母1.py: array[216..247] of string = ({216}'CJWGNSPGCGNESYPB' + 'TYYZDXYKYGTDJNMJ' + 'QMBSGZSCYJSYYZPG' +{216}'KBZGYCYWYKGKLJSW' + 'KPJQHYZWDDZLSGMR' + 'YPYWWCCKZNKYDG',{217}'TTNJJEYKKZYTCJNM' + 'CYLQLYPYQFQRPZSL' + 'WBTGKJFYXJWZLTBN' +…

用Delphi直接获取bmp图片的像素

用Delphi直接获取bmp图片的像素,并存储显示出.(此像素主要用在LED上显示).希望高手能给出代码啊!! function getImagePixels(f: string): Integer; var jpg: TJpegImage; bmp: TBitmap; begin Result := 0; if not FileExists(f) then Exit; if SameText(ExtractFileExt(f), '.bmp') then beg…

delphi 自动获取串口

delphi 自动获取串口 https://blog.csdn.net/Nevermore_anger/article/details/79012875 版权声明:本文为博主原创文章,未经博主允许不得转载. https://blog.csdn.net/Nevermore_anger/article/details/79012875 如果PC端串口x存在且没有被占用,我们用TMScomm控件可以顺利打开并且关闭串口x,如果该端口x被占用或者不存在则会出现错误.利用这个原理,通过try强行…

[原创]Delphi XE10 dxLayoutControl 控件应用指南

DevExpress VCL套件是一套非常强大的界面控件,可惜关于Delphi开发方面的说明太少,有些控件使用起来一头雾水,不知从何下手.本节详细介绍在Delphi Xe10 Seattle中如何利用dxLayoutControl 控件来做界面布局. 1. 首先从工具箱面板中将dxLayoutControl放在Form上,设置2个关键属性如下: 属性属性值说明 Align alClient 一般都要设置为alClient,因为需要它控制整个Form布局 LayoutLookAndFeel…

DELPHI XE10，JSON 生成和解析，再利用INDYHTTP控件POST

Delphi XE10,Json 生成和解析,再利用indyhttp控件Post 年09月20日 :: 阅读数: --不多说,直接上代码 procedure TFrmMain.Brand; var JSONObject, jsonparam: TJSONObject; // JSON类 jsonArray: TJSONArray; // JSON数组变量 i: Integer; Flag_Do: Boolean; jsonToSend: TStringStream; jsonStr, Rjson…

【转】Delphi XE10 Android Splash设备自适应和沉浸式状态条

再次提笔写博客,已经相隔7年,原来的CSDN账号需要手机验证,而我的手机又捆绑到这个账号了,就用新账号吧,不想折腾了. 原账号的帖子,有研究DICOM3.0的可以看下:http://blog.csdn.net/ruanxundianzi/article/details/6551471 最近从Delphi7——XE2——XE5——XE7,一路升级到Delphi XE10.2.2 Tokyo(以下均是以该版本讲解),就为了Android App开发,而一开始就感觉到前所未有的困惑和障碍,App与PC…

Delphi XE10 dxLayoutControl 控件应用指南

https://www.cnblogs.com/Bonny.Wong/p/7440288.html DevExpress VCL套件是一套非常强大的界面控件,可惜关于Delphi开发方面的说明太少,有些控件使用起来一头雾水,不知从何下手.本节详细介绍在Delphi Xe10 Seattle中如何利用dxLayoutControl 控件来做界面布局. 1. 首先从工具箱面板中将dxLayoutControl放在Form上,设置2个关键属性如下: 属性属性值说明 Align alClient…

Delphi XE10.1 引用计数

以往的Delphi版本,不支持接口的Weak,和UnSafe的引用,支持对象的Weak, UnSafe,而且仅在Android和Ios平台上支持. 现在Delphi XE10.1 Berlin终于增加了对接口的Weak, UnSafe的支持. 1.Weak Weak引用,不影响引用计数器,但是如果对象被释放,Weak引用变量自动清0,来看例子: type TA=class(TInterfacedObject) end; procedure TForm1.Button1Click(Sender…

运行Delphi XE10的MongoDB例程，测试Delphi插入记录性能

Delphi XE10支持MongoDB的数据库,提供了个例子restaurants可批量导入数据. 本文对比Delphi例子与MongoDB自带的mongoimport导入批量数据的性能. 步骤: 1.运行例子前需要先安装MongoDB, MongoDB安装及运行mongod.exe,安装完成后bin目录中有mongoimport.exe,可将json批量数据导入到数据库中. 2.Delphi MongoDB例程数据库保存在: C:\Users\Public\Documents\Embarca…

Delphi在Android下实现BroadcastReceiver功能（举例在Delphi下获取USB外设拔插消息）

在Android里,用java通过实现BroadcastReceiver接口,就可以获得Intent消息.可是Delphi程序不能直接实现JBroadcastReceiver,如何能够实现类似Java的BroadcastReceiver功能呢? 幸运的是Delphi提供了TJFMXBroadcastReceiver类实现了BroadcastReceiver,我们便可以以此达到目的. 下面的程序片段举例,实现如何在Delphi下获取USB外设拔插的消息. uses System.SysUtils,…

delphi xe10 FMX 启动参数

关于 Delphi Xe10 FMX 启动参数需要在启动窗口前来调用也就是在bar文件修改如果参数多可以用json来 uses system.SysUtils; var param: string; begin if FindCmdLineSwitch('p') then FindCmdLineSwitch('p', param); Application.Initialize; Application.CreateForm(TdmLoginCore, dmLoginCore); App…

Delphi XE10.1 引用计数（Delphi XE10.1 Berlin终于增加了对接口的Weak, UnSafe的支持）

以往的Delphi版本,不支持接口的Weak,和UnSafe的引用,支持对象的Weak, UnSafe,而且仅在Android和Ios平台上支持. 现在Delphi XE10.1 Berlin终于增加了对接口的Weak, UnSafe的支持. 1.Weak Weak引用,不影响引用计数器,但是如果对象被释放,Weak引用变量自动清0,来看例子: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 type TA=class(TInterfacedObject) …

delphi 动态获取文件类型的图标

delphi 动态获取文件类型的图标.txt我不奢望什么,只希望你以后的女人一个不如一个.真怀念小时候啊,天热的时候我也可以像男人一样光膀子!在应用程序的编写中,组合框(ComboBox).列表框(ListBox).等常见的部件,通常不仅要用于显示文字,而且还要显示其与文字相关的图标.在一般的Windows应用程序中,这些图标的显示都要随列出的显示文本的变化而变化,例如在组合框中列出当前目录下的所有文件时,在组合框左边就显示与文件名相关联的图标,这就是所谓的动态图标.在 Delphi中使用动态图…

Delphi实现获取句柄并发送消息的方法（FindWindow、FindWindowEx、EnumChildWindows、SendMessage）

Delphi实现获取句柄并发送消息的方法本文以实例形式详细说明了Delphi获取句柄并发送消息的方法,具体用法说明如下: 查找另外一个窗口的句柄: handle := FindWindow(nil,PChar('窗口的标题'));//查到窗体句柄查找子窗体: childHandle := FindWindowEx(handle,0,'子窗体类','子窗体标题'); 另外有个枚举子窗体的API, EnumChildWindows(主创体句柄,@回调函数,用户参数); 用这个函数需要自己写一个回…

Appium-测试失败后获取屏幕截图的方法

最近一直在研究appium,偶尔的机会发现断言后获取屏幕截图.觉得这个方法不错,分享给大家这样以后在遇到断言,想截图错误屏幕的时候,能够用的上. 1.首先需要2个类,一个是测试类(TestDropList),另外一个是监听类(ScreenshotListener) public class ScreenshotListener extends TestListenerAdapter{ @Override public void onTestFailure(ITestResult tr){ Ap…

Delphi XE10调用WebService服务获取图片验证码

最近做了一个程序,需要使用图片验证码,百度一下,网上一大把免费的WebService服务,随意找一个用用,效果还可以.WebService地址:http://www.webxml.com.cn/WebServices/ValidateCodeWebService.asmx?wsdl C#写的. 代码很简单,需要注意的是,这个WebService服务几个函数返回值为PNG格式图片,TByteDynArray类型(二进制数组). 先看代码: 运行效果:…

Delphi中获取Unix时间戳及注意事项（c语言中time()是按格林威治时间计算的，比北京时间多了8小时）

uses DateUtils;DateTimeToUnix(Now) 可以转换到unix时间,但是注意的是,它得到的时间比c语言中time()得到的时间大了8*60*60这是因为Now是当前时区的时间,c语言中time()是按格林威治时间计算的,北京时间比格林威治时间多了8小时DateTimeToUnix(Now)-8*60*60 就和c语言中time()得到的一样了但我进一步研究DateTimeToUnix函数时发现,Delphi中的时间没有经过任何的转换,是直接读取系统时间我试着改变当前…

delphi文件名获取方法

取文件名 ExtractFileName(FileName); 取文件扩展名: ExtractFileExt(filename); 取文件名,不带扩展名: 方法一: Function ExtractFileNameNoExt(FileString: String): String; Var FileWithExtString: String; FileExtString: String; LenExt: Integer; LenNameWithExt: Integer;…

在Delphi中获取和修改文件的时间

转载自 http://www.cnblogs.com/jieke/archive/2013/01/11/2855782.html 本文介绍了在Delphi中利用系统函数和Windows API函数调用来获取和修改文件的时间信息的方法. 熟悉Windows 95/98的朋友一定经常会用单击鼠标右键的方法来查看所选定的文件的属性信息.在属性菜单中会列出该文件的创建时间.修改时间和访问时间.这些信息常常是很有用的,它们的设置一般都是由操作系统(也就是由Dos/Windows等等)自动完成的,不会让…

delphi的获取某坐标的颜色值

1.通过API函数GetPixel(),获取某个点的颜色值; var PT : TPoint; C : TColor; DC : HDC; hwd : THandle; I : integer; begin GetCursorPos(PT); hwd := WindowFromPoint(PT); DC := GetDC(HWD); C := GetPixel(DC,PT.x,PT.y); // self.color := c; //设置窗体颜色 edit1.text := FORMAT($%.…

delphi xe10 中使用剪贴板（跨平台）

VCL 中如何使用剪贴板咱就不说了,FMX 做为一个新的框架,提供了跨平台的剪贴板支持.FMX 对剪贴板的支持来自两个接口: IFMXClipboardService:位于 FMX.Platform.pas 中 1 2 3 4 5 6 7 8 9 10 11 IFMXClipboardService = interface(IInterface) ['{CC9F70B3-E5AE-4E01-A6FB-E3FC54F5C54E}'] /// <summary> /…

delphi中获取调用堆栈信息

异常堆栈有利于分析程序的错误,Delphi的Exception有StackTrace属性,但是值为空,因为StackTrace的信息收集Delphi委托给了第三方组件来完成,真是脑子有毛病! 借助于madCollection中的madExcept可以解决这个问题 1)安装madCollection.exe 2)打开Delphi开发工具,打开项目,点击主菜单Project→MadExcept Settings,勾选enable madExcept 3)这样程序中出现的未处理异常就会系统给出madE…