EhLib10.1版(D7-XE 10.4).rar
Delphi EhLib.VCL 10.1 for D7-XE 10.4
delphi xe HmacSHA256
DelphiXE HMacSHA256(单独的)
参考网上代码整出来(DelphiXE10.2下测试通过,验证:http://www.jsons.cn/allencrypt/) 中文记得:UTF8Encode再调用
Delphi驱动开发EasySYS
1.请将程序安装在D:\EasySYS下(以后的版本不需第一步)
2.打开EasySYS.exe,工具,关联dspr
3.然后你可以直接查看samples文件夹下的实例
如果第一步按你的目录放置的话,samples下的工程你需自己在建一次
键盘钩子DLL及Demo.rar
Delphi键盘钩子DLL及测试Demo
SetWindowsHookEx(WH_KEYBOARD,KeyboardHookHandler,HInstance,0);
Delphi验证并获取文件数字签名
Delphi验证并获取文件数字签名,代码完整可用
参考:
https://blog.csdn.net/yangtao6888/article/details/7690207
https://sourceforge.net/projects/jedi-apilib/files/JEDI Windows API/Revision 315/
delphiXE_屏蔽Ctrl+Alt+Del-XE10.1测试可用
WIN98以上使用winlogin.exe登录的系统
在XE Berlin 10.1版下测试可用
Delphi XMLDocument控件之XML实例
Delphi XMLDocument控件之XML实例:新建、打开、保存、编辑等操作
Delphi XMLDocument control XML instance: new, open, save, edit, and other operations
VGScene实现Windows8 WP7 效果 Metro Demo
使用VGScene控件实现Metro效果:触摸滚动、简洁的图标
Metro是由微软公司开发的内部名称为“ typography-based design language”(基于排版的设计语言)。最早出现在微软电子百科全书95,后来的产品如:windows媒体中心、Zune播放器 都有用到这项技术。该技术已于2010年初(美国)获得Metro UI专利批准(USPTO)。metro UI最新的应用是windows phone 7智能手机系统,并将应用于未来的windows 8、office 和 xbox 360产品中。 metro UI是一种界面展示技术,和苹果的iOS、谷歌的Android界面最大的区别在于:后两种都是以应用为主要呈现对象,而Metro界面强调的是信息本身,而不是冗余的界面元素。显示下一个界面的部分元素的功能上的作用主要是提示用户“这儿有更多信息”。同时在视觉效果方面,这有助于形成一种身临其境的感觉。
AlphaControls 2010
这是一个非常棒的皮肤控件,有非常多的皮肤,还能使窗体有一个非常迷人的半透明边框,这是我最喜欢的地方。
IdPOP3做的-QQ邮箱附件接收器
批量下载QQ邮箱中的所有附件
procedure TFrm_QQMailRev.bt_revClick(Sender: TObject);
var
i,j,fNum,fCount : integer;
tmp, fName : string;
begin
bt_rev.Enabled := false;
IdMessage1.CharSet := 'gb2312'; //保证附件正文汉字的正常显示
ProgressBar1.Max := mailcount;
ProgressBar1.Min := 1;
fCount := 0;
for i:=1 to mailcount do //遍历每一封邮件 mailcount
begin
IdMessage1.Clear;
IdPOP31.retrieveHeader(i,IdMessage1); //得到邮件的头信息
IdPOP31.Retrieve(i,IdMessage1); //接收到邮件所有内容
tmp := IdMessage1.Body.Text; //邮件正文
Label2.Caption := {'接收邮件:'+tmp+}' 已接收:['+intToStr(i)+'] ';
fNum := Pred(IdMessage1.MessageParts.Count);
if not fNum<0 then
for j:=0 to fNum do
begin
if IdMessage1.MessageParts.Items[j] is TIdAttachment then
begin
fCount := fCount+1;
fName := filePath+intToStr(i)+intToStr(j)+TIdAttachment(IdMessage1.MessageParts.Items[fNum]).Filename;
if fileExists(fName) then deletefile(fName);
TIdAttachment(IdMessage1.MessageParts.Items[j]).SaveToFile(fName); //filePath+intToStr(i)+GetFileTitle(tmp)+'.rar'
end;
end;
ProgressBar1.StepBy(1);
GetRevFile;
application.ProcessMessages;
end;
Label3.Caption := '共接收附件:['+intToStr(fCount)+'] ';
IdPOP31.Disconnect; //断开连接
end;
SQL语句性能
测试SQL语句访问服务器的时间性能