原创 ASP.NET取客戶機MAC地址

using System.Text.RegularExpressions;using System.Diagnostics;public class test...{        public test        ...{}   

原创 Delphi中如何準確截取漢字

    在Delphi中,用Length來取字符長度時,如果有漢字,那它會將漢字當成一個字符來計算,而Copy把漢字又當成兩個來處理,關鍵的是Copy一個字符後,我如何知道是否取的是漢字呢?是否把一個漢字取完整了呢?     判斷字符串的

原创 SQL Server在存儲過程內引用返回數據集的存儲過程

    有些時候,在一個存儲過程內需要引用另外一個存儲過程,但另外的存儲過程返回的是數據集,而此數據集在引用的存儲過程內是需要獲得的,常規方法是沒辦法的。     那麼這時候就只有用臨時表來進行中轉了。     insert into #

原创 asp.net中使用Cookie時用中文漢字引起的亂碼

今晚我一網站程序突然停擺,報錯誤爲某一轉換語句:Convert.ToInt32(XXX,10);,此網站以前一直正常工作,經過跟蹤檢查,發現是變量爲空 null,很奇怪的是,此變量是從Cookie內取出的,再將cookie讀寫後的數據檢查

原创 Java普通的3DES加密算法在PHP7內的實現

Java內,普通的3DES加密算法,未使用偏移量(iv),使用的是DESede標準, 在PHP7內,要使用DES-EDE3,很多在線網站加密測試,都是沒有這個方案,無法測試。 $encrypted_openssl = openssl_de

原创 Delphi 7 使用WebService時報錯

錯誤信息: Received content of invalid Content-Type setting:text/html -soap  expects"text/xml"'     解決辦法:將Server端的dpr內的  ISA

原创 IIS 啓動不了 【發生意外錯誤0x8ffe2740】

原因如果系統中存在端口衝突就有可能發生本情況. IIS默認使用80端口進行HTTP通信. 如果除IIS外的應用程序正在運行並且正在相同的IP地址上使用80端口,在您試圖使用IIS管理器啓動網站時您也可能收到該錯誤訊息. 解決方法要解決這個

原创 delphi內進行音量控制及靜音

unit UMute;interfaceuses MMSystem, Dialogs;Type  TDeviceName = (Master, Microphone, WaveOut, Synth);function  GetVolum

原创 SQL Server內實現MD5的計算

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[MD5]') and xtype in (N'FN', N'IF', N'TF'))drop f

原创 delphi內如何檢測用戶多長時間沒有鼠標與鍵盤操作?

procedure TForm1.Timer1Timer(Sender: TObject);var  vLastInputInfo: TLastInputInfo;begin  vLastInputInfo.cbSize := Size

原创 不正常地定義參數對象。提供了不一致或不完整的信息

在Delphi中使用 SELECT * FROM OpenDataSource('Microsoft.Jet.OLEDB.4.0','Data Source="C:/temp/b.xls";Extended Properties="Exc

原创 目錄選擇對話框

uses ShlObj;function SelectDirectory(Handle: hwnd; const Caption: string;         const Root: WideString; out Director

原创 SQL Server 安裝時報有文件被掛起,不能安裝

這個錯誤很多人都碰到過,網上也有不少的資料,主要有幾種:刪除臨時文件,註冊表等。 有可能這個最快捷,操作步驟最少: 註冊表內:HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Control/Sess

原创 使用IdHTTP的問題 Object Moved

使用IdHTTP組件的一個問題使用IdHTTP.Get(URL) 理論上應該可以獲得這個URL的源代碼。但是爲什麼有些網頁可以獲得,而有些網頁出現了“HTTP/1.1 302 Object moved”的錯誤呢?問題是,這個網頁採用了re

原创 在Delphi7內取網卡MAC地址

function GetMAC(CardNo: integer): string;//CardNo指定多個網卡適配器中的哪一個0,1,2...var  NCB: TNCB; // Netbios control block file:/