自己做的做报表的例子。第1次使用，带SQL数据库方式。

//获得硬盘序列号 function GetIdeSerialNumber: pchar; const IDENTIFY_BUFFER_SIZE = 512; type TIDERegs = packed record bFeaturesReg: BYTE; // Used for specifyi

HTML:=''; HTML:=HTML+'

这是一个Web Broker的示范程序'; HTML:=HTML+'当前时间：

获得常用字汉字拼音的首个拼音字母首码，例举；Function HZToPY(cSTR:String):String; Var i:integer; S:String; begin Result:=''; for I := 1 to Length(cSTR) do begin S:=Copy(cSTR