2011/05/18

[轉載]開啟目錄對話盒的方式

轉載自:How to browse for a folder
因為我想要做到DevExpress中cxShellBrowserDialog的功能,如圖:


主程式:

[轉載]取得執行檔路徑的各種方式

轉自:取得執行檔路徑



procedure TForm1.Button2Click(Sender: TObject);
var  spath:string;
begin
  spath := ExtractFilePath(Application.ExeName);
  ShowMessage(spath);
  { -->  D:\\***\**\     最後有\ }



  GetDir(0,spath);
  ShowMessage(spath);
  { -->  D:\\***\**   最後沒有\ }


  showmessage(ParamStr(0));
  { -->  D:\\***\**\***.exe  取得執行檔完整路徑 }
end;


2011/05/17

[轉載]先有數量,再求質量

記者是我一輩子的專業:觀察外界、探求真相、記錄寫作……,用我的文字與所有的讀者溝通、交往。限於才氣,我的文章僅止於流暢通順,但是我寫作的速度,卻是我最自豪的事。記得在我寫作的巔峰時期,每小時的寫作速度超過三千字,這種能力,讓我的媒體生涯一生
順遂。

2011/05/10

TrayIcon,原來Delphi 7 沒這東西啊! (大悟)

好用的TrayIcon元件可以在BCB6的SAMPLE元件盤中找到
但是DELPHI7卻沒這東西 (暈)

不過網路上有個免費的玩樣兒哦!

2011/05/06

[轉貼]在Dephi中使用TStream读写数据的技巧

來源網址:http://www.xuedelphi.cn/wenzhang/yytg/2008/12/200812222703.htm

一、 TStream的常用的方法和属性
---- 1. function Read(var Buffer; Count: Longint): Longint; virtual; abstract 
---- 2. function Write(const Buffer; Count: Longint): Longint; virtual; abstract; 
---- 3. function Seek(Offset: Longint; Origin: Word): Longint; virtual; abstract; 
---- 4. property Position: Longint; 
---- 5. property Size: Longint

---- Read,Write,Seek都是纯虚函数,提供了数据读写和定位的抽象的方法。Read方法将数据从Stream中读到Buffer缓冲区中,Write则实现相反的操作,返回值表示实际读写数据的大小。Seek提供了在Stream中移动数据指针的方法。参数Origin可以取soFromBeginning,soFromCurrent,soFromEnd 三个值,Offset是偏移量,返回值是当前Stream数据指针的位置。

How to use URLEncode in Delphi

URL編碼,也稱【百分號編碼(Percent-encoding)】 由於 URL 不能直接接受 UTF8 文字,所以要先轉成百分號編碼後,如此網址才能順利送給 HTTP Server 從 Indy 加入 Delphi 後,就可以用 IdURI.TIdURI 單元進行編碼 ...