原创 DELPHI通用控件安裝方法

通用控件安裝方法： --------------------- 基本安裝 1.對於單個控件,COMPONET-->INSTALL COMPONENT..-->PAS或DCU文件-->INSTALL。 2.對於帶*.DPK文件的控件包,FI

2020-07-03 03:34:33 3

原创 Delphi控件安裝

通用控件安裝方法： --------------------- 基本安裝 1.對於單個控件,COMPONET-->INSTALL COMPONENT..-->PAS或DCU文件-->INSTALL。 2.對於帶*.DPK文件的控件包,F

2018-08-31 22:58:02 1

原创 MD5加密

 unit MD5Unt; interface uses IdHashMessageDigest, IdHash, IdGlobal; type TMD5 = class(TIdHashMe

2018-08-31 22:58:02

原创 indy和socket的一些區別

1. 下面比較一下serverSokcet與clientSocket和idTcpServer與idTcpClient兩組通訊組件的異同： socket即支持同部傳送數據又支持異步傳送數據。而idtcp則只

2018-08-31 22:58:02

原创 sql server2000升級sql server2005注意事項

1、先做好數據庫備份。 2、設置兼容性模式爲SQL Server 2005(90) EXEC sp_dbcmptlevel '數據庫名稱' --查看數據兼容級別 EXEC sp_dbcmptlevel '數據庫名稱', 90 --設

2018-08-31 22:58:02

原创 批處理寫的關機程序

@ECHO off :start CLS COLOR a rem 使用COLOR命令對控制檯輸出顏色進行更改 MODE con: COLS=41 LINES=18 rem MODE語句爲設定窗體的寬和高 set tm1=%time:~0,

2018-08-31 22:58:02

原创 分割字符串函數ExtractStrings

//分割字符串ExtractStrings var s: String; List: TStringList; begin s := 'about: #delphi; #pascal, programming'; List

2018-08-31 22:58:02

原创 直接獲取IP地址的函數

uses WinSock, ComObj //獲得本地IP function GetLocalIP: String; type TaPInAddr = Array[0..10] of PInAddr; PaPInAddr =

2018-08-31 22:58:00

原创 創建鏈接服務器、調用遠程存儲過程

if exists(select * from master.dbo.sysservers where srvname='srv_lnk') --判斷是否存在srv_lnk的鏈接服務器 exec sp_dropserver 'srv_l

2018-08-31 22:58:00

原创 如何配置IIS運行ASPX

 一、先註冊asp.net組件： (asp.NET 組件即：.Net Framework ) 　　開始－＞運行－＞cmd－＞執行命令： C:\windows\Microsoft.NET\Framework\v2.0.50727\aspne

2018-08-31 22:57:16 2

原创 根據漢字獲取拼音

function getPY(hzchar: string): char; begin case word(hzchar[1]) shl 8 + word(hzchar[2]) of $B0a1..$B0c4:result :

2018-08-31 22:57:12 1