No Money No Honey

程式範例uses
     inifiles;procedure TForm1.btn3Click(Sender: TObject);
var
   inifile: TInifile;
   iniFileName,sAppPath,sMusicDir,sImageDir:string;
begin
   //獲取當前程式的路徑
   //sAppPath:=ExtractFilePath(Application.ExeName);
   iniFileName:='testset.ini'; //設定ini檔案儲存名稱
  inifile:=TInifile.Create('INI\'+iniFileName); //執行目錄下的 INI目錄內建立 testtest.ini
  //寫配置資訊
   inifile.writeString('TESTSET','123','Pictures'); // 大標籤[TESTSET] , 底下的 123=Picture 參數
   inifile.writeString('TESTSET','456','Music');
  //讀取配置資訊
   sImageDir:=inifile.readString('TESTSET','123',''); //讀取[TESTSET]底下 123='' 的''字串值
   sMusicDir:=inifile.readString('TESTSET','456','');
end;

文章出處
http://rakelitica.blogspot.com/2012/07/using-lkjson-example-with-google-drive.htmlJSON文件範本(可貼到 https://jsoneditoronline.org/#left=local.lapedo&right=local.vaxeha 幫你線上格式化JSON比較好看懂){
  "kind": "drive#fileList",
  "etag": "\"ia2FS23424234234ANFYAdsc1Tyua2KKA-HnMs\"",
  "selfLink": "https://www.googleapis.com/drive/v2/files",
  "items": [
   {
    "kind": "drive#file",
    "id": "0BwtHRVB3TFRHVllvRVE",
    "etag": "\"ia2H5NSXK_wk/MTM0MTc3MTMwMTU5Mg\"",
    "selfLink": "https://www.googleapis.com/drive/v2/files/0BwPgllvRVE",
    "alternateLink": "https://docs.google.com/folder/d/0BwPgllvRVE/edit",
    "permissionsLink": "https://www.googleapis.com/drive/v2/files/0BwPgllvRVE/permissions",
    "title": "Folder0",
    "mimeType": "application/vnd.google-apps.folder",
    "description": "Folzer Zero",
    "labels": {
     "starred": false,
     "hidden": false,
     "trashed": false,
     "restricted": false,
     "viewed": true
    },
    "createdDate": "2012-07-08T18:13:51.185Z",
    "modifiedDate": "2012-07-08T18:15:01.592Z",
    "modifiedByMeDate": "2012-07-08T18:15:01.592Z",
    "lastViewedByMeDate": "2012-07-08T18:15:07.039Z",
    "parents": [
     {
      "kind": "drive#parentReference",
      "id": "0AAPgHUk9PVA",
      "selfLink": "https://www.googleapis.com/drive/v2/files/0BwPgllvRVE1/parents/0AA6_KcYtHUk9PVA",
      "parentLink": "https://www.googleapis.com/drive/v2/files/0AA6_KcYtHUk9PVA",
      "isRoot": true
     }
    ],
    "userPermission": {
     "kind": "drive#permission",
     "etag": "\"ia2FSHMEjvcFQvtI4rH3hoJimnEgfM\"",
     "id": "current",
     "role": "owner",
     "type": "user"
    },
    "quotaBytesUsed": "0",
    "ownerNames": [
     "Artur"
    ],
    "lastModifyingUserName": "Artur",
    "editable": true,
    "writersCanShare": true
   },
   {
    "kind": "drive#file",
   }
   {
    "kind": "drive#file",
   }
  ]
}

出處https://dotblogs.com.tw/jean/2013/11/06/126876有些早期舊程式語言並沒有支援SFTP元件，可透過呼叫外部程式來達成
SFTP使用WinSCPSFTP使用WinSCPWinSCP目前是免費的FTP軟體1. 到WinSCP網站下載WinSCP.exe

感謝作者
出處：http://idlemanhome.blogspot.com/2013/12/delphi-7indy-10.htmlDelphi 7](2014.3.3改)Indy 10 網路元件安裝舊的方法原本是以下這樣，後來我裝新的XP系統時發現無法成功首先從 http://www.indyproject.org/downloads/10/indy10.0.52_source.zip 下載壓縮檔。
(或是到這個網頁找 http://www.indyproject.org/sockets/download/files/indy10.en.aspx )

DELPHI 7 使用ADO元件寫入資料庫強制四捨五入小數到第四位問題 parameters.parambyname('tmpprice').datatype：=ftFloat;   <==寫入資料前先將欄位設定成 Float 型態即可解決此問題。 參考:http://jzinfo.javaeye.com/blog/432853

var   

    adoquery1:Tadoquery;   

begin   

    adoquery1:=Tadoquery.create(nil);   

    try   

       if not DM.adonconnection1.connected then   

           DM.adoconnection1.connected:=true;   

       adoquery1.connection:=DM.adoconnection1;   

       adoquery1.enableBCD:=False;       //禁用bcd类型   

       with adoquery1 do   

       begin   

           close;   

           sql.clear;   

           sql.add('insert into materialInfo values(:tmppno,:tmpvendor,:tmpdesc,:tmpprice)');   

           parameters.parambyname('tmppno').value:=trim(edit1.text);   

           parameters.parambyname('tmpvendor').value:=trim(edit2.text);   

           parameters.parambyname('tmpdesc').value:=trim(edit3.text);   

           parameters.parambyname('tmpprice').datatype：=ftFloat;       //设置下数据类型   

           parameters.parambyname('tmpprice').value:=trim(edit4.text);   

           execsql;   

       end;   

    finally   

        adoquery1.free;   

    end;   

end; 

Delphi下使用function FileSetDate(Handle: Integer; Age: Integer): Integer; overload;函式修改檔案的”修改日期”: 參考:http://delphi.ktop.com.tw/board.php?cid=30&fid=70&tid=37667 procedure TForm1.Button1Click(Sender: TObject);
Var
    FileHandle : Integer;
    Str : String;
begin
    FileHandle := FileOpen('D:\prog\1.txt', fmOpenReadWrite);
    if FileHandle = -1 then
      ShowMessage('開啟檔案失敗')
    else
    begin
      Str := '檔案原來日期時間: '+ DateTimeToStr(FileDateToDateTime(FileGetDate(FileHandle)))+#10#13;
      if FileSetDate(FileHandle, FileAge('D:\prog\AMS.exe')) = 0 then
        Str := Str+DateTimeToStr(FileDateToDateTime(FileAge('D:\prog\AMS.exe')))
      else
        Str := Str+'新的日期時間設定失敗';
      ShowMessage(Str);
    end;
    FileClose(FileHandle);
end;

最近在修改使用者提出 EXCEL 報表欄位，發現有幾支 procedure 轉出 EXCEL 的速度非常龜，而這幾支 procedure 是前輩所留下的產物，跟自己最近寫的轉 EXCEL 報表速度上差很多，以為是卡在SQL查詢，如果查詢條件KEY值給不齊全，有可能因為資料過多，查詢變很慢，但是測試後應該不是SQL查詢的問題，再對照前輩與自己的程式，感覺不出差異，最後看到 DELPHI 內設定EXCEL時前面通常會有一些基本設定，發現了這幾支程式都有設定列印範圍，姑且註解掉試試看，果然...............兇手就是它！ PageSetup.PrintArea := 'A:R';  //設定列印範圍 建議把它移到資料轉完後，最後在給上這個參數就好了。

上網找到下面的程式碼，修了一下測試，真的可以耶!!!!最近的程式剛好有UTF8編碼的困擾，使用這方式轉是方便多了，不過還要測試會不會有問題。 討論區：http://delphi.ktop.com.tw/board.php?cid=30&fid=76&tid=89562 procedure TForm1.Button1Click(Sender: TObject);
var
  S:UTF8String;
  F:TextFile;
  TntEdit1: TStringList;
begin
  TntEdit1 := TStringList.Create;
  TntEdit1.Add('我是天才我是天才我是天才');
  S:=UTF8Encode(TntEdit1.Text);
  AssignFile(F, 'C:\test.txt');
  Rewrite(F);
  Write(F,#$EF+#$BB+#$BF); //UTF8??
  Write(F,S);
  CloseFile(F);
end;   結果去開C:\test.txt 來看，真的直接就是UTF8編碼，在XP下看中文也正常，沒有亂碼。   Write(F,#$EF+#$BB+#$BF); 中 #$EF+#$BB+#$BF 的意義 ======================================================================= http://60.248.128.85/bbs/dv_rss.asp?s=xhtml&boardid=63&id=491&page=3 這是一篇程式員寫給程式員的趣味讀物。所謂趣味是指可以比較輕鬆地瞭解一些原來不清楚的概念，增進知識，類似於打RPG遊戲的升級。整理這篇文章的動機是兩個問題：

問題一：

使用Windows記事本的「另存為」，可以在GBK、Unicode、Unicode big endian和UTF-8這幾種編碼方式間相互轉換。同樣是txt文件，Windows是怎樣辨識編碼方式的呢？

我很早前就發現Unicode、Unicode big endian和UTF-8編碼的txt文件的開頭會多出幾個字元，分別是FF、FE（Unicode）,FE、FF（Unicode big endian）,EF、BB、BF（UTF-8）。但這些標記是基於什麼標準呢？

問題二：

最近在網上看到一個ConvertUTF.c，達到了UTF-32、UTF-16和UTF-8這三種編碼方式的相互轉換。對於Unicode(UCS2)、GBK、UTF-8這些編碼方式，我原來就瞭解。但這個程式讓我有些糊塗，想不起來UTF-16和UCS2有什麼關係。

查了查相關資料，總算將這些問題弄清楚了，順帶也瞭解了一些Unicode的細節。寫成一篇文章，送給有過類似疑問的朋友。本文在寫作時盡量做到通俗易懂，但要求讀者知道什麼是字元，什麼是十六進制。 0、big endian和little endian big endian和little endian是CPU處理多字元數的不同方式。例如「漢」字的Unicode編碼是6C49。那麼寫到文件裡時，究竟是將6C寫在前面，還是將49寫在前面？如果將6C寫在前面，就是big endian。還是將49寫在前面，就是little endian。 「endian」這個詞出自《格列佛遊記》。小人國的內戰就源於吃雞蛋時是究竟從大頭(Big-Endian)敲開還是從小頭(Little-Endian)敲開，由此曾發生過六次叛亂，其中一個皇帝送了命，另一個丟了王位。 我們一般將endian翻譯成「字元序」，將big endian和little endian稱作「大尾」和「小尾」。 1、字元編碼、內碼，順帶介紹中文字編碼 字元必須編碼後才能被電腦處理。電腦使用的缺省編碼方式就是電腦的內碼。早期的電腦使用7位的ASCII編碼，為了處理中文字，程式員設計了用於簡體中文的big5和用於繁體中文的big5。 big5(1980年)一共收錄了7445個字元，包括6763個中文字和682個其它符號。中文字區的內碼範圍高字元從B0-F7，低字元從A1-FE，佔用的碼位是72*94=6768。其中有5個空位是D7FA-D7FE。 big5支援的中文字太少。1995年的中文字擴展規範GBK1.0收錄了21886個符號，它分為中文字區和圖形符號區。中文字區包括21003個字元。2000年的GB18030是取代GBK1.0的正式國家標準。該標準收錄了27484個中文字，同時還收錄了藏文、蒙文、維吾爾文等主要的少數民族文字。現在的PC平台必須支援GB18030，對嵌入式產品暫不作要求。所以手機、MP3一般只支援big5。 從ASCII、big5、GBK到GB18030，這些編碼方法是向下兼容的，即同一個字元在這些方案中總是有相同的編碼，後面的標準支援更多的字元。在這些編碼中，英文和中文可以統一地處理。區分中文編碼的方法是高字元的最高位不為0。按照程式員的稱呼，big5、GBK到GB18030都屬於雙字元字元集 (DBCS)。 有的中文Windows的缺省內碼還是GBK，可以透過GB18030升級包升級到GB18030。不過GB18030相對GBK增加的字元，普通人是很難用到的，通常我們還是用GBK指代中文Windows內碼。 這裡還有一些細節：

big5的原文還是區位碼，從區位碼到內碼，需要在高字元和低字元上分別加上A0。

在DBCS中，GB內碼的存儲格式始終是big endian，即高位在前。

big5的兩個字元的最高位都是1。但符合這個條件的碼位只有128*128=16384個。所以GBK和GB18030的低字元最高位都可能不是1。不過這不影響DBCS字元流的解析：在讀取DBCS字元流時，只要遇到高位為1的字元，就可以將下兩個字元作為一個雙字元編碼，而不用管低字元的高位是什麼。

2、Unicode、UCS和UTF 前面提到從ASCII、big5、GBK到GB18030的編碼方法是向下兼容的。而Unicode只與ASCII兼容（更準確地說，是與ISO-8859-1兼容），與GB碼不兼容。例如「漢」字的Unicode編碼是6C49，而GB碼是BABA。 Unicode也是一種字元編碼方法，不過它是由國際組織設計，可以容納全世界所有語言文字的編碼方案。Unicode的學名是"Universal Multiple-Octet Coded Character Set"，簡稱為UCS。UCS可以看作是"Unicode Character Set"的縮寫。 根據維基百科全書(http://zh.wikipedia.org/wiki/)的記載：歷史上存在兩個試圖獨立設計Unicode的組織，即國際標準化組織（ISO）和一個軟體製造商的協會（unicode.org）。ISO開發了ISO 10646項目，Unicode協會開發了Unicode項目。 在1991年前後，雙方都認識到世界不需要兩個不兼容的字元集。於是它們開始合併雙方的工作成果，並為創立一個單一編碼表而協同工作。從Unicode2.0開始，Unicode項目採用了與ISO 10646-1相同的字庫和字碼。 目前兩個項目仍都存在，並獨立地公佈各自的標準。Unicode協會現在的最新版本是2005年的Unicode 4.1.0。ISO的最新標準是10646-3:2003。 UCS規定了怎麼用多個字元表示各種文字。怎樣傳輸這些編碼，是由UTF(UCS Transformation Format)規範規定的，常見的UTF規範包括UTF-8、UTF-7、UTF-16。 IETF的RFC2781和RFC3629以RFC的一貫風格，清晰、明快又不失嚴謹地描述了UTF-16和UTF-8的編碼方法。我總是記不得IETF是Internet Engineering Task Force的縮寫。但IETF負責維護的RFC是Internet上一切規範的基礎。 3、UCS-2、UCS-4、BMP UCS有兩種格式：UCS-2和UCS-4。顧名思義，UCS-2就是用兩個字元編碼，UCS-4就是用4個字元（實際上只用了31位，最高位必須為0）編碼。下面讓我們做一些簡單的數學遊戲： UCS-2有2^16=65536個碼位，UCS-4有2^31=2147483648個碼位。 UCS-4根據最高位為0的最高字元分成2^7=128個group。每個group再根據次高字元分為256個plane。每個plane根據第3個字元分為256行 (rows)，每行包含256個cells。當然同一行的cells只是最後一個字元不同，其餘都相同。 group 0的plane 0被稱作Basic Multilingual Plane, 即BMP。或者說UCS-4中，高兩個字元為0的碼位被稱作BMP。 將UCS-4的BMP去掉前面的兩個零字元就得到了UCS-2。在UCS-2的兩個字元前加上兩個零字元，就得到了UCS-4的BMP。而目前的UCS-4規範中尚未任何字元被分配在BMP之外。 4、UTF編碼 UTF-8就是以8位為單元對UCS進行編碼。從UCS-2到UTF-8的編碼方式如下： UCS-2編碼(16進制)
UTF-8 字元流(二進制) 0000 - 007F
0xxxxxxx 0080 - 07FF
110xxxxx 10xxxxxx 0800 - FFFF
1110xxxx 10xxxxxx 10xxxxxx 例如「漢」字的Unicode編碼是6C49。6C49在0800-FFFF之間，所以肯定要用3字元模板了：1110xxxx 10xxxxxx 10xxxxxx。將6C49寫成二進制是：0110 110001 001001， 用這個比特流依次代替模板中的x，得到：11100110 10110001 10001001，即E6 B1 89。 讀者可以用記事本測試一下我們的編碼是否正確。 UTF-16以16位為單元對UCS進行編碼。對於小於0x10000的UCS碼，UTF-16編碼就等於UCS碼對應的16位無符號整數。對於不小於0x10000的UCS碼，定義了一個算法。不過由於實際使用的UCS2，或者UCS4的BMP必然小於0x10000，所以就目前而言，可以認為UTF-16和UCS-2基本相同。但UCS-2只是一個編碼方案，UTF-16卻要用於實際的傳輸，所以就不得不考慮字元序的問題。 5、UTF的字元序和BOM UTF-8以字元為編碼單元，沒有字元序的問題。UTF-16以兩個字元為編碼單元，在解釋一個UTF-16文本前，首先要弄清楚每個編碼單元的字元序。例如收到一個「奎」的Unicode編碼是594E，「乙」的Unicode編碼是4E59。如果我們收到UTF-16字元流「594E」，那麼這是「奎」還是「乙」？ Unicode規範中推薦的標記字元順序的方法是BOM。BOM不是「Bill Of Material」的BOM表，而是Byte Order Mark。BOM是一個有點小聰明的想法： 在UCS編碼中有一個叫做"ZERO WIDTH NO-BREAK SPACE"的字元，它的編碼是FEFF。而FFFE在UCS中是不存在的字元，所以不應該出現在實際傳輸中。UCS規範建議我們在傳輸字元流前，先傳輸字元"ZERO WIDTH NO-BREAK SPACE"。 這樣如果接收者收到FEFF，就表明這個字元流是Big-Endian的；如果收到FFFE，就表明這個字元流是Little-Endian的。因此字元"ZERO WIDTH NO-BREAK SPACE"又被稱作BOM。 UTF-8不需要BOM來表明字元順序，但可以用BOM來表明編碼方式。字元"ZERO WIDTH NO-BREAK SPACE"的UTF-8編碼是EF BB BF（讀者可以用我們前面介紹的編碼方法驗證一下）。所以如果接收者收到以EF BB BF開頭的字元流，就知道這是UTF-8編碼了。 Windows就是使用BOM來標記文本文件的編碼方式的。 6、進一步的參考資料 本文主要參考的資料是 "Short overview of ISO-IEC 10646 and Unicode" (http://www.nada.kth.se/i18n/ucs/unicode-iso10646-oview.html)。 我還找了兩篇看上去不錯的資料，不過因為我開始的疑問都發現了答案，所以就沒有看：

"Understanding Unicode A general introduction to the Unicode Standard" (http://scripts.sil.org/cms/scripts/page.php?site_id=nrsi&item_id=IWS-Chapter04a)

"Character set encoding basics Understanding character set encodings and legacy encodings" (http://scripts.sil.org/cms/scripts/page.php?site_id=nrsi&item_id=IWS-Chapter03)

我寫過UTF-8、UCS-2、GBK相互轉換的軟體包，包括使用Windows API和不使用Windows API的版本。以後有時間的話，我會整理一下放到我的個人首頁上(http://fmddlmyy.home4u.china.com)。 我是想清楚所有問題後才開始寫這篇文章的，原以為一會兒就能寫好。沒想到考慮措辭和查證細節花費了很長時間，竟然從下午1:30寫到9:00。希望有讀者能從中受益。 =======================================================================

使用 TIdIPWatch 元件即可直接抓取執行程式的本機IP。 showmessage(IdIPWatch1.LocalIP); 會想要本基IP是想要讓自動更新程式自動判斷使用者電腦所在位置，因公司有很多據點，如果大家都回來抓更新檔，頻寬會.......

讓Windows捲軸捲動時，資料內容同時跟著平滑捲動。 出處： http://delphi.ktop.com.tw/board.php?cid=168&fid=918&tid=100386 http://delphi.ktop.com.tw/board.php?cid=30&fid=66&tid=70761

   TDBGrid = Class(DBGrids.TDBGrid)
    Protected
    procedure WMVScroll(var Message: TWMVScroll); message WM_VSCROLL;
    end;
    TForm1 = class(TForm)
    ....
...
procedure TDBGrid.WMVScroll(var Message: TWMVScroll);
begin
    if Message.ScrollCode = SB_THUMBTRACK then Message.ScrollCode := SB_THUMBPOSITION;
    inherited;
end;