原创 解決Goland debug模式編譯啓動很慢的問題

File -> Settings -> Build, Execution, Deployment -> Debugger 把Rebuild transitive packages勾選框去掉就可以了

原创 讓Chrome/Firefox輕鬆兼容老舊的ActiveX,讓訪問硬件外設變得更友好

同學公司的醫院系統是B/S架構的,之前爲了兼容各種二代證讀卡器(神思、握奇、精綸等)、IC卡讀卡器(明華等)、還有各地神奇的健康卡,還有一個奇葩的ActiveX打印控件Lodop,還要支持漢王手寫板簽名,還要兼容客戶的Windows XP

原创 斷章之落葉

    秋天忽然就過去了,我還來不及確認它是否真的曾經來過。    雪還沒有來,所以我不認爲冬天真的已經到來。    在季節的罅隙裏,心情忽然很落寞。腦海浮想起的是那樣的漫天飛舞的雪,那樣滴水成冰的日子,那樣昏暗燈光的屋子裏有明亮窗臺的角

原创 Delphi 運算符及優先級

  Delphi 運算符及優先級 單目運算符 (最高優先級) @ 取變量或函數的地址(返回一個指針) not 邏輯取反或按位取反 乘除及按位運算符 * 相乘或集合交集 / 浮點相除 div 整數相除 mod 取模 (整數相除的餘數)

原创 一直苦惱於找不到獲取系統默認的UserAgent的方法,今天偶然想到一種方法,可實現效果

/// <summary> /// 獲取系統默認的UserAgent /// uses SHDocVw, MSHTML; /// </summary> function GetUserAgent: string; var Doc: I

原创 delphi圖片換膚處理優化修正

原來見過一個png圖像換膚處理的文章,但其中顏色處理上有些問題,特作優化修正處理,本是回覆羣友的問題的,所以用的是bmp圖片,png圖片處理原理是一樣的。代碼如下:unit Unit1; interface

原创 創建多層目錄函數

//創建多層目錄 procedure MkDirMulti(sPath: string); begin if('/'=sPath[Length(sPath)]) then begin sPath :=Copy(sPath,

原创 愛的守則

愛的守則                                        有家寵物店的玻璃窗上貼着“寵物給主人的十大叮嚀”: 一、把我帶回家之前,請記得我的壽命約有10年到15年。你若離棄我,會是我最

原创 通過消息攔截達到在Delphi控件中屏蔽原有事件處理的一種方法

 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, S

原创 調用API實現MD5加密

代碼如下: end.unit uMD5; interface uses SysUtils,Windows; function MD5(const Input: String): String; implementation const

原创 各種數據庫的ado連接字符串

1.Oracle: a>先設置好Oracle本地服務名配置,如:USER_DB b>配置ODBC引擎:ODBC_DB,該引擎的服務器指向Oracle的本地服務名,即:USER_DB c>配置聯接字符串,如:Provider=MSDASQL

原创 整理的兩個圖像處理函數

unit Graphics2; interface uses Windows,SysUtils,Graphics,Math; const MaxPixelCount = 32768; type pRGBTripleAr

原创 Delphi與Java中的日期互換

    在最近做的一個項目中用到了Java和Delphi,發現它們不能正確讀取對方的日期類型,如在Java中寫入一個值爲“2007-12-1”的日期值,通過Delphi讀取卻不是這個值了。    通過查閱資

原创 根據ID字段比較兩個Access數據庫中的數據表中的記錄異同

//函數說明:根據ID字段比較兩個Access數據庫中的數據表中的記錄異同//  p1    第一個數據庫//  p2    第二個數據庫//  tName 要對比的數據表名function CompRecordById(AdoQuery

原创 凌晨

凌晨    酒醒的凌晨,天光昏暗。    躺在牀上,確認一下自已身在何處,然後繼續享受着半睡半醒的愜意。窗外是不知何時響起的啪啪作響的雨聲。    除了雨聲,還是雨聲!    思緒很飄乎地在過去與現在,夢境與現實之間遊離。這樣的時刻,任何