學習紀錄

If Length(OpenDialog.FileName) > 4 then
begin
  s_lngTargetHeight := 0; s_lngTargetWidth:=0; 
  StatusBar.Panels.Items[1].Text := '上傳中，請勿關閉';
  APPLICATION.ProcessMessages;
  s_strFileName := OpenDialog.FileName;
  s_lngReturn := getImageSize(s_strFileName, s_lngTargetHeight, s_lngTargetWidth);
  If s_lngReturn > 0 Then
  begin
    SetLength(s_bufNV, s_lngReturn);

訊息 8921，層級 16，狀態 1，行 1
檢查結束。收集事實時偵測到失敗。可能是由於 tempdb 空間用完或系統資料表不一致。請檢查先前的錯誤。

理論上應該是要可用DBCC CHECKDB( 修復指令 )  

SQL 好像遇到這個問題。如果DBCC CHECKDB不能下的狀況下。基本上只勝下重裝一個資料庫一途了....

這些天在摸IC晶片卡，一直求助無門。發現了一份PDF檔內有詳細的敘述。

所有的卡種的Call法。以下列給大家看以免大家找無地方

其實在開啟這種IC晶片卡 健保卡上面都是透過 Windows圖工的api來使用即可。

uses的單元就是 Windows 

const
  WinSCardDLL = 'winscard.dll';  透過這顆dll來執行system32底下就有。

轉載於http://www.cc.ntu.edu.tw/chinese/epaper/0026/20130920_2609.html

我要介紹的是他的第一組檢測cpu佔用的SQL在對於查問題上，非常的有幫助。

如何檢測 SQL Server CPU是否遭遇瓶頸

作者：陳淑萍 / 計算機及資訊網路中心程式組程式設計師

本文將探討在使用SQL Server時有那些原因可能會造成過度消耗CPU資源，若CPU使用率管理不善或過度使用CPU資源的話，可能會對SQL Server有明顯的影響，建議您需要增加或更換CPU。。

一般來說檢測資料庫伺服器CPU是否遭遇瓶頸很容易觀察，在使預SQL Server時，若 CPU持續15分鐘維持在70~80%以上的使用率(排除突發性狀況)，且後效能逐漸下降，那麼就可以判定資料庫伺服器可能遭遇CPU瓶頸。本文章提供您參考有那些原因可能會造成過度消耗CPU資源，若CPU使用率管理不善或過度使用CPU資源的話，可能會對SQL Server有明顯的影響，建議您需要增加或更換CPU了。

主要常被使用來檢測的工具有兩種，第一種『效能監視器 (Performance Monitor)』，第二種是DMV。

一、 效能監視器(Performance Monitor)
只要在資料庫伺服器機器上，在開始命令框中輸入perfmon按確認鍵即可打開效能監視器，如下圖1所示。

雙螢幕的問題，如果不想讓自己的滑鼠跑到延伸螢幕內，可以在FROMCREATE的時候設定

var

  xrect : TRect;
begin
xrect:=rect(0,0,1024,768);
clipcursor(@xrect) 

end;

這樣就能把滑鼠綁在第一個螢幕內了。

在Delphi表示16進位

$FF   <--數值(Integer)

#$FF<--字串(Char) = char($FF) <> Char(FF)

有加 $ 的是 16 進位, 沒加的是 10 進位, 例:
#13 與 #$13 兩者是代表不同的值
#13 等於 Char(13)
#$13 等於 #19 等於 Char($13) 等於 Char(19)

再用字型來說明的話就是

可以直接用 A 來表示
或用 Char($41) 或 Chr($41) 來表示(這兩個是 16 進位表示)
或用 Char(65) 或 Chr(65) 來表示(這兩個是 10 進位表示)
或用 #$41 或 #65 來表示(前者為 16 進位表示，後者為 10 進位表示)

VB 型態宣告

Public Declare Function Inp Lib "inpout32.dll" _
Alias "Inp32" (ByVal PortAddress As Integer) As Integer
Public Declare Sub Out Lib "inpout32.dll" _
Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)

對應delphi 

function Inp(PortAddress:Integer):integer;
type
  TInp = function(PortAddress:Integer):integer; stdcall;
var

1 .   http://blog.csdn.net/busintel/article/details/5841632

這邊的說明非常的詳細，幾乎將原文全部翻成中文了。

Delphi的泛型 沒辦法支援運算U__U .....Why..............

此篇文章轉載於 http://blog.csdn.net/shuaihj/article/details/6369855 

我把她翻譯的比較白話一點因為原作者是用簡體的

第三章、 Editor Options

Ø Tools > Options > Editor Options

一、 Editor Options

Ø Tools > Options > Editor Options

1. Insert mode

啟用時，在游標位置插入文本，而不是覆蓋文本。用Insert 按鍵也可控制

2. Group undo

如果你按ALT+ BACKSPACE 或選擇“ Edit > Undo “，撤消您上次編輯命令，以及任何同類型的後續的編輯命令。

3. Cursor beyond EOF

將游標超出尾文件字符

此篇文章轉載於 http://blog.csdn.net/shuaihj/article/details/6369855 

我把她翻譯的比較白話一點因為原作者是用簡體的

對於Delphi2010以上的optione的特性詳細說明，讓大家更快速的可以調成自己需要的介面。

第一段 Delphi  Environment Options

 (1) AutoSave Options

   Editor files：當你Run, Compile, Build程式編輯畫面或退出Delphi時，自動儲存Code Editor修改的所有文件。

   Project desktop：當妳關閉程式編輯畫面或退出Delphi時，自動儲存或更新你的程式編輯器的配置（.dsk）。