Delphi
92
Delphi 也用实型数表示日期和时间数据。但为了更准确起见,Delphi 特别定义了 TDateTime 数据类型,这是一个浮点类型,因为这个类型必须足够宽,使变量能容纳年、月、日、时、分和秒、甚至毫秒。日期值按天计数,从 1899-12-30 开始,放在 TDateTime 类型的整数部分;时间值则位于十进制数的小数部分。TDateTime 不是编译器可直接识别的预定义类型,它在 System 单元定义:type TDateTime = type Double;使用 TDateTime 类型很简单,
31
function GetComputerName: string;var buffer: array [0 .. MAX_COMPUTERNAME_LENGTH + 1] of Char; Size: Cardinal;begin Result := 'N/A'; Size := MAX_COMPUTERNAME_LENGTH + 1; Winapi.Windows.GetComputerName(@buffer, Size); Result := StrPas(buffer
34
uses IdHashMessageDigest;function MD5(const fileName : string) : string;var idmd5 : TIdHashMessageDigest5; fs : TFileStream;begin idmd5 := TIdHashMessageDigest5.Create; fs := TFileStream.Create(fileName, fmOpenRead OR fmShareDenyWrite) ; try resu
48
Delphi 文件的操作:重命名、复制、移动、删除RenameFile('Oldname', 'Newname');//重命名CopyFile(PChar('Oldname'), PChar('Newname'), False);//复制MoveFile(PChar('Oldname'), PChar('Newname'));//移动DeleteFile(文件名);//删除
89
uses System.Net.URLClient,System.Net.HttpClient, System.Net.HttpClientComponent;function HttpPost(Url: String; ID: Integer; Cookie: string): String; var NetHttp: TNetHTTPClient; TmpSS: TStringStream; ParmList: TStringList;begin Result := '';
118
DataSanp的控制老大-DSServerDSServer作用:管理DataSnap服务器生命周期。(启动,停止)一.方法:1.BroadcastMessage 向所以客户端发送消息,客户端必须已注册通道。2.BroadcastObject 发送一个对象的所有客户端3.CallbackTunnelOf 返回通信隧道。4.Connecting 触发一个事件时,打开一个连接。5.CreateChannelTunnel 创建一个回调通道6.DefineProperties 称为自动组件流媒体系统的一部分;不
137
获取MAC地址有很多种方法,可以读取注册表,可以读取底层信息等等。本例采用调用系统dll方法获取网卡MAC地址。在该例子的基础上稍加修改就可以用网卡MAC地址进行软件加密。 注意:必须在uses部分加入NB30 演示://代码如下: unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Nb30; type
56
Image1.Picture.LoadFromFile(Edit1.Text);Image1.Left:=ScrollBox1.HorzScrollBar.Position;// 水平滚动条移动距离Image1.top:=ScrollBox1.VertScrollBar.Position; //竖直滚动条移动距离