其他

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

有三個API函數可以運行可執行檔WinExec、ShellExecute和CreateProcess。1.CreateProcess因為使用複雜，比較少用。2.WinExec主要運行EXE檔案。如：WinExec('Notepad.exe Readme.txt', SW_SHOW);3.ShellExecute不僅可以運行EXE檔案，也可以運行已經關聯的檔案。首先必須引用shellapi.pas單元：uses ShellAPI;1).標準用法　　ShellExecute函數原型及參數含義如下：　

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml" xml:lang="zh-CN" dir="ltr"><head>    <meta

1、請你自我介紹一下你自己，回答提示：一般人回答這個問題過於平常，只說姓名、年齡、愛好、工作經驗，這些在簡曆上都有，其實，企業最希望知道的是求職者能否勝任工作，包括：最強的技能、最深入研究的知識領域、個性中最積極的部分、做過的最成功的事，主要的成就等，這些都可以和學習無關，也可以和學習有關，但要突出積極的個性和做事的能力，說得合情合理企業才會相信。企業很重視一個人的禮貌，求職者要尊重考官，在回答每個問題之後都說一句“謝謝”。企業喜歡有禮貌的求職者。2、你覺得你個性上最大的優點是什嗎？回答提示：沉

if MessageDlg('Welcome to my Delphi application. Exit now?', mtConfirmation, [mbYes, mbNo], 0) = mrYes

begin     bmp:=TBitmap.Create;     jpeg:=TJPEGImage.Create;     jpeg.LoadFromFile(fname);     with bmp do     begin       PixelFormat:=pf24bit;       Height:=60;       Width:=self.RzListBox.Width;       Canvas.Brush.Color:=$00F0EDE6;       Canvas.Fil

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,

空閑時候寫的一些jquery小代碼，雖然就幾分鐘完成的小代碼，但每天保持練習，不至於頭腦會生鏽；1、按鈕倒數10秒之後才能點擊。這個效果一般在一些論壇註冊時候用到比較多，廢話少說，直接上代碼：<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.

 設定字型函數原型:     BOOL CreateFont( int nHeight, int nWidth, int nEscapement, int nOrientation, int nWeight, BYTE bItalic, BYTE bUnderline, BYTE cStrikeOut, BYTE nCharSet, BYTE nOutPrecision, BYTE nClipPrecision, BYTE nQuality, BYTE nPitchAndFamily,

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的控制代碼，

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

方法一：uses ComObj, DateUtils;function GetInternetTime: string;var XmlHttp: OleVariant; datetxt: string; DateLst: TStringList; mon: string; timeGMT, GetNetTime: TDateTime; s: string;begin XmlHttp := CreateOleObject('Microsoft.XMLHTTP');

IPv4的地址數目高達40億個，去除了部分私人的和保留的IP地址後，互連網上可能出現的公有地址數量依然相當可觀（雖然這些地址仍然不夠用），在經過匯總和合理的分配之後，互連網上的路由條目仍然有接近30萬條！運行在互連網上的路由器為了可以選擇最佳的路徑達到全球目的地，有必要接收大部分甚至所有的路由條目，想必很多人會對這個包含全球路由的BGP路由表深感興趣吧？Let‘s check it

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組件為伺服器端組件。它是通訊的回應程式，也就是說，它的動作是監聽以及被動接受用戶端的串連請求，並

<script src="js/jquery-1.6.min.js" type="text/javascript"></script> <script type="text/javascript"> jQuery(function($){ //全選 $("#btn1").click(function(){ $("input[name='checkbox']").attr("checked","true"); }) //取消全選

1、本執行個體是完善了codeprofect上面charju老師“Add Group Collapse Behavior on a Listview Control”的一個限制（點擊分組後面的表徵圖不能收縮和擴充）；2、本實列適用於win2008,vista；3、僅供參考，如有更好的方法，望大家不吝交流~   完整代碼如下（只需建一個windows工程，在表單上拖一個listview控制項，取名為aoc，右擊編輯代碼，把下面的代碼粘到視窗就可以了~，但需要注意事件對應）：using

delphi在RichEdit控制項中插入GIF動畫表情在UDP即時通訊軟體中實作類別似於QQ的動畫表情，在richEdit控制項中插入gif動畫表情。發送的時候將表情轉為命令，接收之後，再將命令轉換為相應的動畫表情。需要引用一個QQ的DLL，檔案在附件中。將此DLL匯入到DELPHI中。unit URichEdit;interfaceusesWindows, Messages, SysUtils, Classes, Controls, StdCtrls, ActiveX,