Delphi 也用实型数表示日期和时间数据。但为了更准确起见，Delphi 特别定义了 TDateTime 数据类型，这是一个浮点类型，因为这个类型必须足够宽，使变量能容纳年、月、日、时、分和秒、甚至毫秒。日期值按天计数，从 1899-12-30 开始，放在 TDateTime 类型的整数部分；时间值则位于十进制数的小数部分。TDateTime 不是编译器可直接识别的预定义类型，它在 System 单元定义：type TDateTime = type Double;使用 TDateTime 类型很简单，
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
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
Delphi 文件的操作：重命名、复制、移动、删除RenameFile('Oldname', 'Newname');//重命名CopyFile(PChar('Oldname'), PChar('Newname'), False);//复制MoveFile(PChar('Oldname'), PChar('Newname'));//移动DeleteFile(文件名);//删除
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 := '';
DataSanp的控制老大-DSServerDSServer作用：管理DataSnap服务器生命周期。（启动，停止）一.方法：1.BroadcastMessage 向所以客户端发送消息，客户端必须已注册通道。2.BroadcastObject 发送一个对象的所有客户端3.CallbackTunnelOf 返回通信隧道。4.Connecting 触发一个事件时，打开一个连接。5.CreateChannelTunnel 创建一个回调通道6.DefineProperties 称为自动组件流媒体系统的一部分;不
获取MAC地址有很多种方法，可以读取注册表，可以读取底层信息等等。本例采用调用系统dll方法获取网卡MAC地址。在该例子的基础上稍加修改就可以用网卡MAC地址进行软件加密。 注意：必须在uses部分加入NB30 演示：//代码如下： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Nb30; type
Image1.Picture.LoadFromFile(Edit1.Text);Image1.Left:=ScrollBox1.HorzScrollBar.Position;// 水平滚动条移动距离Image1.top:=ScrollBox1.VertScrollBar.Position; //竖直滚动条移动距离