《21天学通Delphi》 - 随笔分类(第3页) - 疯狂delphi

html网页采集

摘要：UI_Less.pas： 1 unit UI_Less; 2 3 interface 4 5 uses 6 Windows, Classes, Messages, Forms, MsHtml, Urlmon, ActiveX; 7 8 const 9 WM_USER_STARTWALKING = W 阅读全文

posted @ 2019-02-09 10:48 疯狂delphi 阅读(918) 评论(0) 推荐(0)

登陆方式设计

摘要：1. 1 program Project1; 2 3 uses 4 Vcl.Forms, 5 Unit1 in 'Unit1.pas' {Form1}, 6 Unit2 in 'Unit2.pas' {Form2}; 7 8 {$R *.res} 9 10 begin 11 Application. 阅读全文

posted @ 2019-01-04 09:03 疯狂delphi 阅读(350) 评论(0) 推荐(0)

解析Delphi 窗口置顶，及非主窗口置顶

摘要：方法一： procedure TForm1.Button2Click(Sender: TObject);begin Form2.Show; Application.NormalizeTopMosts; SetWindowPos(Form2.Handle, HWND_TOPMOST, 0, 0, 0, 阅读全文

posted @ 2018-12-29 10:08 疯狂delphi 阅读(3165) 评论(0) 推荐(0)

WIN锁屏+鼠标移动事件

摘要：winexec('rundll32.exe user32.dll, LockWorkStation', sw_hide); 1.shutdown.bat（关机） rundll32.Exe shell32.dll SHExitWindowsEx 1 2.logoff.bat（注销） rundll32. 阅读全文

posted @ 2018-11-29 20:01 疯狂delphi 阅读(958) 评论(0) 推荐(0)

取当前进程内存使用量

摘要：使用单元：uses Psapi; procedure TForm1.Button10Click(Sender: TObject);var b: Boolean; pmc: TProcessMemoryCounters; h: THandle; I, J: Integer;begin h := Get 阅读全文

posted @ 2018-05-04 11:17 疯狂delphi 阅读(782) 评论(0) 推荐(0)

内存流判断图片格式

摘要：资料来源：https://blog.csdn.net/my98800/article/details/53536774 注意： 1.下载个“C32asm”或者“UE"等这类16进制编辑器可以查看图片格式。2.只是简单的判断文件的前2个字节，如果想更加精确一点的话，可以把文件最后2个字节也判断上。3. 阅读全文

posted @ 2018-04-06 15:45 疯狂delphi 阅读(787) 评论(0) 推荐(0)

问题-DelphiXE10.1 FireDAC联接oracle数据库方法

摘要：问题现象：安装oracle后，安装Delphi10.1，放FDConnection1时，选择"Ora"驱动时，提示如下： [FireDAC][Phys][Ora]-315. Cannot get vendor library entry point[s]. [OCICollSizeOCICollMa 阅读全文

posted @ 2018-04-05 22:18 疯狂delphi 阅读(1706) 评论(0) 推荐(0)

问题-枚举类型为什么不支持点引用？

摘要：问题现象：同事问我个问题，说同一个枚举类型名，在多个单元中出现，怎么指定？我说用点引用，比如说“Tmytype.My1”，可是在D2007报红。问题原因：可能是因为我用XE时间长了，把D7的老特性给忘了。问题处理：如果是老版本还是用老办法吧，新版本还是好用的。实例代码(枚举类型)： 1 uni 阅读全文

posted @ 2017-11-27 17:09 疯狂delphi 阅读(1083) 评论(0) 推荐(0)

Delphi实现RGB色环的代码绘制（XE10.2+WIN764）

摘要：相关资料： http://blog.csdn.net/tokimemo/article/details/18702689 http://www.myexception.cn/delphi/215402.html http://bbs.csdn.net/topics/390627275 结果总结： 1 阅读全文

posted @ 2017-11-19 09:25 疯狂delphi 阅读(1458) 评论(0) 推荐(0)

Delphi调用JAVA的WebService上传XML文件（XE10.2+WIN764）

摘要：相关资料：1.http://blog.csdn.net/luojianfeng/article/details/512198902.http://blog.csdn.net/avsuper/article/details/8764165 注意事项： 1.生成WSDL文件时，D7可能有的无法生成，用X 阅读全文

posted @ 2017-11-12 20:53 疯狂delphi 阅读(3385) 评论(0) 推荐(0)

Delphi中的三目运算函数有哪些？(XE10.2+WIN764)

摘要：相关资料：https://www.cnblogs.com/rogge7/p/6078903.html 问题现象：在做一个判断时突然想到了C++的三目运算，就在想Delphi中一共有几个？问题处理： Math.IfThen(True,1,2); //1StrUtils.IfThen(True, 'A 阅读全文

posted @ 2017-11-09 16:14 疯狂delphi 阅读(528) 评论(0) 推荐(0)

DLL封装Interface(接口)(D2007+win764位)

摘要：相关资料： http://blog.csdn.net/liangpei2008/article/details/5394911 结果注意： 1.函数的传参方向必须一至。 DLL实例代码： ZJQInterface.pas 1 unit ZJQInterface; 2 3 interface 4 5 阅读全文

posted @ 2017-10-27 17:04 疯狂delphi 阅读(1000) 评论(0) 推荐(0)

问题-MethodAddress返回NIL？MethodAddress与published的关系？

摘要：问题现象：有位朋友（397085381）在Q群里问“为什么书上的可以访问，而自己写的代码访问时为nil” 问题原因：因为要用“Self.MethodAddress('Test')”访问，方法必须放在“published”下。问题处理：增加“published”就好了。解答人员：541011510 阅读全文

posted @ 2017-09-27 17:09 疯狂delphi 阅读(480) 评论(0) 推荐(0)

D7 D2007 XE10.1 都支持的字符分隔函数

摘要：ExtractStrings 阅读全文

posted @ 2017-09-19 09:23 疯狂delphi 阅读(381) 评论(0) 推荐(0)

delphi判断线程是否正在运行

摘要：相关资料：http://www.delphitop.com/html/xiancheng/376.html 1 unit Unit1; 2 3 interface 4 5 uses 6 Winapi.Windows, Winapi.Messages, System.SysUtils, System. 阅读全文

posted @ 2017-09-11 17:32 疯狂delphi 阅读(1655) 评论(0) 推荐(0)

教程-TObjectList.Clear、TStringList.Clear方法对象有没有被释放

摘要：相关资料： http://www.cnblogs.com/rogge7/p/4631796.html delphiTStringList通过AddObject方法添加对象。 object里存的只是指向对象的指针，clear只是把指针清除了，对象并没有被释放。TList，StringList等List 阅读全文

posted @ 2017-08-10 11:31 疯狂delphi 阅读(1313) 评论(0) 推荐(0)

教程-Delphi中比较两个对象是否一致及地址是否相同

摘要：资料说明： 1.http://blog.csdn.net/diligentcatrich/article/details/7077294 说明：实例代码： 1 procedure TForm1.btn1Click(Sender: TObject); 2 var 3 p1: Pointer; 4 p 阅读全文

posted @ 2017-08-03 11:31 疯狂delphi 阅读(581) 评论(0) 推荐(0)

问题-DelphiXE10.2怎么安装文本转语音(TTS)语音转文本(SR)控件（XE10.2+WIN764）

摘要：相关资料： http://edn.embarcadero.com/article/29583 http://blog.sina.com.cn/s/blog_53866d7501017r1o.html 问题现象：在D7上都是按装控件直接使用的，可以是XE等高版本中一直用PAS文件不方便。问题原因：一阅读全文

posted @ 2017-07-11 16:48 疯狂delphi 阅读(1542) 评论(0) 推荐(0)

QQ自动发送+@好友功能+tencent://功能

摘要：1.取出全部标题 D2007版本 procedure TForm1.Button1Click(Sender: TObject);var hCurrentWindow:HWnd; szText: array[0..254] of char; szClassName: array[0..254] of 阅读全文

posted @ 2017-06-05 14:43 疯狂delphi 阅读(4684) 评论(0) 推荐(0)

问题-XE10.2开发Datasnap时提示"provider not exported datasetprovider1"

摘要：问题现象：在用最新版本的XE10.2开发一个代有图片的数据操作时，出现“provider not exported datasetprovider1”。问题原因：提示这个信息，代表未找到datasetprovider1。问题处理： SQLConnection1、DSProviderConne 阅读全文

posted @ 2017-05-19 11:03 疯狂delphi 阅读(363) 评论(0) 推荐(0)

随笔分类 - 《21天学通Delphi》