其他

把影像檔上傳到資料庫，並從資料庫讀出       採用參數       上傳圖片到資料庫:         using   System;     using   System.Collections;     using   System.ComponentModel;     using   System.Data;     using   System.Data.SqlClient;     using   System.Drawing;     using   System.Web;  

關於愛情：不要認為後面還有更好的，因為現在擁有的就是最好的。不要認為還年輕可以晚些結婚，愛情是不等年齡的。不要因為距離太遠而放棄，愛情可以和你一起坐火車的。不要因為對方不富裕而放棄，只要不是無能的人，勤勞可以讓你們富裕的。不要因為父母反對而放棄，你會發現因為這個原因而反放棄的愛情，將是你一生的悔恨。其實對於愛情，越單純越幸福。一生只談一次戀愛是最好的，經曆的太多了，會麻木；分離多了，會習慣；換戀人多了，會比較；到最後，你不會再相信愛情；你會自暴自棄；你會行屍走肉；你會與你不愛的人結婚，就這樣過一

//擷取預設internet瀏覽器function GetDefaultShellHTTP: string;var Reg: TRegistry; strWord: string;begin strWord := ''; Reg := TRegistry.Create; Reg.RootKey := HKEY_CLASSES_ROOT; if Reg.KeyExists('http\shell\open\command') then begin

uses ShellApi//建立檔案夾procedure TfrmMain.cxButton1Click(Sender: TObject);begin CreateDirectory(PChar(ExtractFilePath(ParamStr(0))+ 'Microblue'),nil);end;//刪除檔案夾，放到資源回收筒procedure TfrmMain.cxButton2Click(Sender: TObject);var T: TSHFileOpStruct; P:

      大學已經進行到了黃昏了，你在大學裡面努力得如何，每個同學所跑的距離都不一樣了，所以在這個離畢業短短的時間內，能力也很難再上一個台階了，說現實點就算你目前的能力值2K，就算再怎麼拚命也無法達到5K的水平，而你現在所要做的就是，不要讓你的2K貶值，而是要儘可能地找到3K，那就算是找到了一個好的工作了。 找工作就像一場戰爭，而第一戰就是簡曆，我當年也吃過簡曆虧，所以深有體會，所以希望學弟學妹們先靜下心來，把簡曆搞好，如果一個簡曆都做不好的人，如何讓人家相信你有能力？   

想試下龐大的VS2005的功能，利用嚮導建立了個對話方塊程式，開始能編譯的，後來加了幾句代碼，就出現了這個錯誤“沒有找到MFC80UD.DLL,，因此這個應用程式未能啟動。重新安裝應用程式可能會修複此問題。”，我把加上的代碼刪了，還是不行。網上找到的解決方案：“Visual Studio 2005用嚮導產生的項目，在運行時可能會遇到找不到MFC80UD.dll的問題。這個問題可能是Manifest 引起的，因此我們可以通過修改項目屬性->清單工具->輸入輸出，把“嵌入清單”選“否”，

TStringList是我們常用的字串清單類型，用法就不在這裡贅述，但是，在其資料項目數增多時，其搜尋（主要是name/key搜尋和indexof搜尋）效能會急劇下降，原因是TStringList的內部儲存使用了鏈表形式，而搜尋操作使用了迴圈遍曆方式。值得高興的是，在iniFiles單元，Delphi為我們提供了THashedStringList類型，即，經過雜湊處理的TStringList，它繼承自TStringList，只是對搜尋方法進行了最佳化，因此，我們完全可以放心的在大量字串搜尋的時候

uses MSHtml;//在控制項標籤additional中找到TApplicationEvents控制項，拖到表單上．在TApplicationEvents的OnMessage事件中加入以下代碼：//替換右鍵菜單procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);var mPoint: TPoint;begin if IsChild(WebBrowser.Handle,

               1、form.free直接釋放資源後，調用OnDestroy事件，但是沒有將form指標改為nil        2、form.release 等待資源不再使用後釋放資源，同樣不修改form指標為nil，所以在destroy中最好使用    release進行資源釋放操作。        3、局部變數釋放資源時，可以考慮用freeandnil()釋放資源，這樣效率會高些，能提高記憶體的利用率       

unit Service; interface uses Windows,Messages,SysUtils,Winsvc,Dialogs; function StartServices(Const SvrName:String):Boolean; function StopServices(Const SvrName:String):Boolean; function QueryServiceStatu(Const SvrName:

 procedure TfrmMain.btnSendClick(Sender: TObject);var hCalc, h1: Cardinal;begin WinExec('calc', SW_SHOWNORMAL);//運行計算機 hCalc := FindWindow('SciCalc', nil); //尋找計算機主視窗控制代碼，通過Spy++可查看到類名等 h1 := FindWindowEx(hCalc, 0, 'Button', '9'); //尋找按鈕1的控制代碼，

function TfrmLabelPages.PwdImg(img: Timage): string;var I,j,k: Integer; vPoint: TPoint; vLeft: Integer; arrStr:array [1..36]of string ; strResult: string;begin strResult := ''; arrStr[1] := '0'; arrStr[2]:='1'; arrStr[3]:='2'; arrStr[

VC中在對話方塊上使用Rich Edit控制項前一定要用AfxInitRichEdit()初始化RichEdit環境. 1.設定edit唯讀屬性 方法一： m_edit1.SetReadOnly(TRUE); 方法二： ::SendMessage(m_edit1.m_hWnd, EM_SETREADONLY, TRUE, 0); --------------------------------------------------------------------------------

bit整型bit 資料類型是整型，其值只能是0、1或空值。這種資料類型用於儲存只有兩種可能值的資料，如Yes 或No、True 或Fa lse 、On 或Offint整型int 資料類型可以儲存從- 231(-2147483648)到231 (2147483 647)之間的整數。儲存到資料庫的幾乎所有數值型的資料都可以用這種資料類型。這種資料類型在資料庫裡佔用4個位元組smallint整型smallint 資料類型可以儲存從-

CHARINDEX 函數返回字元或者字串在另一個字串中的起始位置。CHARINDEX 函數調用方法如下：CHARINDEX ( expression1 , expression2 [ , start_location ] ) Expression1 是要到 expression2 中尋找的字元中，start_location 是 CHARINDEX 函數開始在 expression2 中找expression1 的位置。CHARINDEX

Modified : /EmbeddedWB/EmbeddedWB.pas{$IFDEF Enable_MouseWheelFix}function MouseHookProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;var hwnd: THANDLE; WndClass: string;begin Result := CallNextHookEx(MouseHook, nCode, wParam,

uses ActiveX,ComObj;procedure TfrmMain.FormCreate(Sender: TObject);begin OleInitialize(nil);end;procedure TfrmMain.DomImg2Image(wb:TWebBrowser);var i:Integer; rang:IHTMLControlRange; s:string;begin try //pic是圖片的節點(層)名稱，你開啟原始碼看一下，替換成你的就行了 s :=

本文採用delphi7+TServerSocket+TClientSocket; 筆者在工作中遇到對區域網路中各工作站與伺服器之間進行Socket通訊的問題。現在將本人總結出來的TServerSocket和TClientSocket兩個組件的基本用法寫出來，希望與您分享。　　ClientSocket組件為用戶端組件。它是通訊的請求方，也就是說，它是主動地與伺服器端建立串連。　　ServerSocket組件為伺服器端組件。它是通訊的回應程式，也就是說，它的動作是監聽以及被動接受用戶端的串連請求，並

        WinowsXP

WebBrowser1.GoHome; //到瀏覽器預設首頁WebBrowser1.Refresh; //重新整理WebBrowser1.GoBack; //後退WebBrowser1.GoForward; //前進WebBrowser1.Navigate('...'); //開啟指定頁面WebBrowser1.Navigate('about:blank'); //開啟空頁面//開啟空頁面,