1 2{《HeadFirst设计模式》之单例模式 } 3{ 编译工具: Delphi2007 for win32 } 4{ E-Mail : guzh-0417@163.com } 5 6unit uChocolateBoiler; 7 8interface 910type11 TChocolateBoiler = class(TObject)12 strict private13 class var14 FUniqueInstance: TChocolateBoiler;15 strict private16 FEmpty : Boolean;17 FBoiled: Boolean;18 constructor Create;19 public20 class function GetInstance: TC...
//提示:此代码需要use Registry, Common;
function WriteMAC(model:integer):integer;
var reg:TRegistry;
begin reg:=TRegistry.Create; //创建注册表对象reg.RootKey:=HKEY_LOCAL_MACHINE; //指定注册表根为HKLM if reg.OpenKey(‘\System\CurrentControlSet\Control\Class\ {4D36E972-E325-11CE-BFC1-08002bE10318}\0013‘,true) then begin //若项存在 reg.WriteString(‘NetworkAddress‘,‘000B6AC824C...
Delphi 10.4重点是实现了LSP,但现在最新的10.4.1还是不成熟,无法满足日常需要,不过没关系,可以设置为原有的方案,如下图: 原文:https://www.cnblogs.com/kinglandsoft/p/14238969.html
说明:1)TTtimer控件 TTtimer控件的实质是调用WindowsAPI定时函数SetTimer和KillTimer来实现的,并简化了对WM_TIMER消息的处理过程。通过设置OnTimer事件和Interval属性,我们可以很方便的产生一些简单的定时事件。2)Sleep函数 Sleep函数用来使程序的执行延时给定的时间值。Sleep的调用形式为Sleep(milliseconds),暂停当前的进程milliseconds毫秒。Sleep的实现方法其实也是调用Windows API的Sleep函数。例如:sleep(1000)...
Delphi在Webbrowser中插入 HTML/java script代码使用方法将下面的代码赋值到1个记事本里保存,然后保存为xxx.htm就可以看到效果使用PasteHtml实现功能 的事件Windows Media播放器 mp3 mp4Windows Real
PlayerFlash PlayerMid背景音乐图片 的方法( (WebBrowser1.Document as IHTMLDocument2).selection.createRange as
IHtmlTxtRange).pasteHTML(Memo1.Text);注意 划删除线的表示使用这个函数无效果播放Mid背景音乐
src为Midi文...
################################属性
设置################################################字体设置{//---------------------------------------------------------------------------------------字体名称 <FONT
face=微软雅黑>This A Text</FONT>字体大小 <FONT
size=1><SPAN ><P>This A
Text</P></SPAN></FONT>//---------------------------------------------------------------------------------------粗体 ...
《zw版·Halcon-delphi系列原创教程》航母舰载机·视觉定位标志的识别代码 航母舰载机机身上的黄黑圆圈的标志是什么意思,辐射?核动力?战术核弹? 《百度百科》介绍如下 这是工业数字摄影测量的人工标志 数字摄影测量(Basic concept of digital photogrammetry)是基于数字影像和摄影测量的基本原理,应用计算机技术、数字影像处理、影像匹配、模式识别 等多学科的理论与方法,提取所摄对像以数字方式表达的几...
五、类是一种对数据和操作高度的封装机制1)数据封装unit Unit2;interface
typeTEmployee = class;privateFName: String;publicConstructor Create;function GetName: String;procedure SetName(AName: String);end;implementationconstructor TEmployee.Create;beginFName:= ‘Xumenger‘;end;function TEmployee.GetName: String;beginResult:= FName;end;procedure TEmployee.SetName(AName: String);beginFName:= AName;end;end...
1 2{《HeadFirst设计模式》之组合模式 } 3{ 组合与单项的抽象父类 } 4{ 编译工具:Delphi2007 for win32} 5{ E-Mail :guzh-0417@163.com } 6 7unit uMenuComponent; 8 9interface1011uses12 SysUtils;1314type15 TMenuComponent = class abstract(TObject)16 public17 procedure Add(aMenuComponent: TMenuComponent); virtual;18 procedure Remove(aMenuComponent: TMenuComponent); virtual;19 functio...
Delphi 7.0(去掉CLX) Source目录 总计 738919行,去掉空行和注释后 540867行VCL目录 总计 231221行,去掉空行和注释后 195590行RTL目录 总计 176710行,去掉空行和注释后 106606行Indy目录 总计 100556行,去掉空行和注释后 55095行XML目录 总计 39326行,去掉空行和注释后 32619行Internet目录 总计 60536行,去掉空行和注释后 46794行Property Editors目录 总计 14466行,去掉空行和注释后 11887行ToolsAPI目录 总计 16554行,...
需要去除BOM,就把附件里的tool.php文件放到目标目录,然后在浏览器访问tool.php即可! 代码如下://此文件用于快速测试UTF8编码的文件是不是加了BOM,并可自动移除 $basedir="."; //修改此行为需要检测的目录,点表示当前目录 $auto=1; //是否自动移除发现的BOM信息。1为是,0为否。 //以下不用改动 if ($dh = opendir($basedir)) { while (($file = readdir($dh)) !== false) { if ($file!='.' && $file!='..' && !is_dir($based...
delphi 枚举设备使用代码
现在的 delphi(2010、xe) 已经自带了 directx 的相关单元(...sourcertlwin).
--------------------------------------------------------------------------------
//枚举函数
function directsoundenumerate(lpdsenumcallback: tdsenumcallback; //回调函数lpcontext: pointer //用户指针
): hresult; stdcall; //返回错误代码, 成功则返回 s_ok(0)
//directsoundenumerate 需要的回调函...
unit Unit1;2 3 interface4 5 uses6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,7 Dialogs, StdCtrls;8 9 type
10 TForm1 = class(TForm)
11 btn1: TButton;
12 procedure btn1Click(Sender: TObject);
13 private
14 { Private declarations }
15 public
16 { Public declarations }
17 end;
18
19 var
20 Form1: TForm1;
21
22 implementation
23
24 {$R *.d...
3. 微信小程序控件属性
序号属性类型说明1AppID字符串小程序的APPID,每个小程序都有一个唯一对应的APPID。微信平台申请获得。2AppName字符串小程序名称,自己命名3AppSecret字符串小程序的密钥,每个小程序都有一个密钥,这个密钥和APPID属性对应。微信平台申请获得4Generic_BaseURL字符串Generic_BaseURL 是通用Web请求的基本地址,设置限制是前后都不能出现 / 字符。例如:SZHN ,不要写成 /SZHN 等5JWT_BaseURL字符串提供JWT服...
我有一个使用证书对字符串签名的Java应用程序.它使用SHA1加密字符串.我正在尝试将代码转换为Delphi 2010,但我不知道如何使其与Java应用程序相同的工作方式(使用sha1).到目前为止,我发现了这一点:
Delphi 7 access Windows X509 Certificate Store
它可以工作,但是不使用sha1,运行Java应用程序时会得到不同的结果.
Java代码char[] pass = (char[]) null;PrivateKey key = (PrivateKey) getKeyStore().getKey(alias, pass);Certific...