廣告

2021 年 1 月
一 二 三 四 五 六 日
 123
45678910
11121314151617
18192021222324
25262728293031

彙整

DELPHI 寫入讀取INI範例

程式範例

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;

INI檔案範例

[TESTSET]
123=Pictures
456=Music

8 12 月, 2020 | Tags: | Category: DELPHI | Comments are closed

DELPHI使用lkJSON多層次一般取值與陣列取值範例

文章出處
http://rakelitica.blogspot.com/2012/07/using-lkjson-example-with-google-drive.html

JSON文件範本(可貼到 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",
  }
  ]
}

DELPHI JSON lkJSON 程式範例

procedure TForm1.BlaBlaBla( JSonString : string );
var
  js,
  itjs: TlkJSONobject;

  ii  : integer;
  Str : string;

  Trash : boolean;
begin

  // Parse the String
  js := TlkJSON.ParseText( JSonString ) as TlkJsonObject;

  // Values on the first level are as easy as this
  selfLink := js.getString( ‘selfLink’ );

  // let’s digg into each document …
  for ii:=0 to js.Field[‘items’].Count-1 do
    begin

    // each document is a TlkJSONobject …
    ijs := (js.Field[‘items’].Child[ ii ] as TlkJSONobject);

    // So, it will be so simple to get something like this…
    Item.etag         := ijs.getString( ‘etag’ );
    Item.Id           := ijs.getString( ‘id’ );
    Item.title        := ijs.getString( ‘title’ );
     
    // Or a little bit different…   
    Item.IsTrash      := ijs[‘labels’].Field[‘trashed’].Value;

    end;

  js.Free;
end

7 12 月, 2020 | Tags: | Category: DELPHI | Comments are closed

D槽磁碟機無法存取，拒絕存取

如果是再網域環境，磁碟機忽然反白無法存取，確定權限也都沒問題，硬碟拿到別台電腦可以讀取，那有可能是設定到GPO鎖USB，試著把這台電腦加入GPO USB開放權限，重新開機試試，感覺是微軟的BUG，把D槽當USB控管了！

1

17 11 月, 2020 | Tags: | Category: Windows | Comments are closed

勞基法加班費分月薪制與時薪制算法

依照勞基法基本工資計算現在應該還是158/1HR
那我覺得月薪制應該比照基本工資
158*30*8 = *37,920* 這是最低的月薪制工資，覺青應該要發請抗爭爭取月薪制！
================
今天請教研究了一下月薪制加班算法
假設你月薪30000，那你的時薪就是：30000/30/8 = 125(比基本工資低，讓我興起另一種月薪制的算法就是開頭的算法)
(國定)假日加班前八小時你只能拿加班費 125*8 = 1000 ，沒錯！比平日加班拿的還少！
所以月薪制沒必要不要假日加班，假日一定要加班請勾補休比較划算(除非你沒時間休)。
================

2020-11-05_124415

5 11 月, 2020 | Tags: | Category: 生活 | Comments are closed

人民繼續當肝臟或胰臟-對貪腐無感的器官

#人民繼續當肝臟或胰臟
#G賣兩年當四年拚

國民黨前期腐敗，起碼我還看的到台灣跳躍式成長性的建設發展

國民黨後期腐敗，還是稍微看的到台灣些許建設成長，只是越來越緩慢

民進黨的腐敗，跳躍式的沉淪，成員沒一個有孫運璿的萬分之一骨風，卻受到台灣不少人的愛戴，問題出在哪聰明的人就知道！

這是我活40多年來真真切切親身體驗，並非被媒體風向洗腦。

122532752_3924801677549633_628242323624965795_n

30 10 月, 2020 | Tags: | Category: 政治垃圾 | Comments are closed

監測ZFTP服務若當機自動重啟

要監控的服務名稱可到服務的內容查詢

clip_image001

於10.20.20.2 FTP SERVER上D槽建立CheckZFtpSrv.bat內容如下：
=========================================
sc query "zFTPsvc" | find "RUNNING" > nul

if "%ERRORLEVEL%" == "0" (

ECHO myService is Already Existed and Runnin!

exit

) else (

::do something you want to do

net start "zFTPsvc"

)

==========================================

將批次檔加入WINDOWS排程執行設定每兩分鐘偵測一次

clip_image002

30 10 月, 2020 | Tags: | Category: SERVER, Windows | Comments are closed

用電動車看大環境

電動車：
現在補助購買電動車(全民買單給有錢人用，一般人買得起電動車?)，20年後處理廢電池(又是全民買單，諸公立委可有想過買車時要先開徵電池處理費?)，有沒有覺得這世界都是中產階級賺給有錢人爽?
#請當個有錢人

21 10 月, 2020 | Tags: | Category: 汽車 | Comments are closed

20201003-更新WINDOWS SERVER 群組原則範本admx-通過Group Policy Editor禁用Microsoft Compatibility Telemetry

今天一次解決兩個問題

WINDOWS SERVER 2012 R2 GPO管理範本只到WIN 8，今天要新增WIN 10 1909範本然後用GPO方式關閉CLIENT PC的Microsoft Compatibility Telemetry(會造成硬碟讀寫與CPU過高)

這邊更新WIN 10 1909 範本

下載WIN 10 1909範本

https://www.microsoft.com/en-us/download/100591

2.安裝後，Windows 10 Version 1511 ADMX檔預設存放路徑如下
C:\Program Files (x86)\Microsoft Group Policy\Windows 10 Version 1511\

C:\Program Files (x86)\Microsoft Group Policy\Windows 10 November 2019 Update (1909)\PolicyDefinitions\
3.複製PolicyDefinitions整個目錄，貼上至「 C:\Windows\SYSVOL\sysvol\%userdnsdomain%\Policies 」資料夾內
4.開啟群組原則管理，至原則\系統管理範本內就會出現新放入的原則

clip_image002

===========================

方法 2. 通過Group Policy Editor禁用Microsoft Compatibility Telemetry

步驟 1. 同時按住「Windows+R」並輸入：gpedit.msc，點擊「確定」。

clip_image003

步驟 2. 進入「電腦設定」>「系統管理範本」>「Windows元件」>「資料收集與預覽版」。

clip_image004

步驟 3. 雙擊「允許遙測」。
通過Group Policy Editor禁用Microsoft Compatibility Telemetry – 3

步驟 4. 單擊「已停用」，然後點擊「確定」。

clip_image005

13 10 月, 2020 | Tags: | Category: GPO, SERVER, Windows, Windows10 | Comments are closed

如今事實證明，社運的這些學生，都是民進黨培植的狗奴才，聽命行事，非正義之士，跟當年陳菊那類的社運人士有78分像！

如今事實證明，社運的這些學生，都是民進黨培植的狗奴才，聽命行事，非正義之士，跟當年陳菊那類的社運人士有78分像！


120845331_10158990902957973_6106658115081881888_n

8 10 月, 2020 | Tags: | Category: 政治垃圾 | Comments are closed

解決了APC UPS電池參數跑掉電量燈號整排一直閃爍的問題

照著這篇解決了APC UPS電池參數跑掉電量燈號整排一直閃爍的問題，其中用序列埠(線材搭配就電腦很難找)連線時，按兩下 1 出現PROG的字眼要多試幾次組合鍵，比方先按P，再按 1 1，出現PROG校正字眼，才能輸入數字0 => – 號去更改為8C值，最後才是 SHIFT + R 出現BYE，再到APC管理軟體看電池應該就會正常了

https://im5481.com/2014/07/14/apc-ups-%E9%9B%BB%E6%B1%A0-discharge-%E8%B7%9F-battery-led-%E9%96%83%E7%88%8D-%E5%95%8F%E9%A1%8C%E9%87%8D%E8%A8%AD/

APC UPS 電池 Discharge 跟 Battery LED 閃爍 問題重設

適用機型：SMART-UPS SUA-1000 SUA-1500 SUA-2000 SU-3000NET

這一篇文章其實是針對那些在網路答文，講的很專業，卻沒有任何內容的廢文來發的！ 我知道這個專業知識可以拿來賺錢錢，但如果要回答別人詢問的問題，就請盡量幫忙解決，不要講的天機不可洩漏一樣。

20140714_011024

如果APC Smart-UPS 有以下症狀：

  • 執行Power Chute 軟體，卻註明UPS的Runtime remaining 卻是 0 Minutes.
  • 你已經自行更換過新電池但你的電池可用時間卻是非常短。
  • UPS 在沒有全負載的狀態下， Battery LED 一直在閃爍。
  • 你的UPS Power chute 程式顯示 “UPS battery is dischargrd"

圖文說明：UPS Power chute 程式顯示 “UPS battery is dischargrd"跟Runtime remaining 卻是 0 Minutes.
2014-07-11_235520

跟著以下步驟就可以解決此問題。但要說明的是，此方法非精確的電池校正，所以修正後的結果，不可能會比用儀器校正的精確。

並且要做以下步驟，你必須要有APC Smart-UPS serial cable 跟有COM port(序列通訊埠)的電腦 才能進行以下步驟。並且APC Smart-UPS serial cable 是UPS隨機送的黑色(母座插頭編號: 940-0024x) serial cable ，不是多機或網路版PowerChute Business Edition 附送的灰色版(母座插頭編號: 940-0023x) serial cable ！ 至於標準的序列介面電纜與 APC UPS 是不相容的。
(APC最新版的serial cable 是RJ-45轉Serial Port)
20140714_011120

  1. 將APC smart-UPS serial cable 連接電腦跟UPS，假設APC UPS同時有USB介面的話，請移除UPS 的USB介面連接線。 如果UPS有接上USB cable至電腦或資訊裝置，USB port會被列為優先，而Serial Port佔用，APC UPS 的USB port 跟Serial Port兩者無法同時使用。
  2. 請在PC BIOS確定Serial Port是Enable .
  3. 如果有在運行Power Chute 軟體，請啟動工作管理員，將其程式關閉。
  4. 如果有安裝PowerChute Business Edition，請至『新增或移除程式』，移除PowerChute Business Edition程式。該程式會佔用COM Port，不移除無法進行。
  5. 如果是Windows Vista/7/8, 因為該系統無『超級終端機』，請下載TeraTerm.ZIP，然後解壓縮成一個資料夾。
  6. Win 2000/XP執行附屬應用程式>通訊>超級終端機。Windows Vista/7/8 則點取ttermpro.exe.
    2014-07-14_121527
  7. 超級終端機:請輸入一個名稱，例如：APC, 然後選擇確定的COM Port. 
  8. 設定每秒傳輸位元 2400, 資料位元8, 同位檢查無，停止位元1, 流量控制Xon/Xoff(或OFF).
    2014-07-14_121813
  9. 使用TeraTerm者，請選擇Serial 以及正確的COM port, 如果出現無法控制COM port的警告，請從第1到4步驟再檢查。
  10. TeraTerm再選 Setup > Serial port > 設定Baud rate:2400, Data: 8, Parity: none，Stop:1, Flow control:Xon/Xoff(或OFF).
    2014-07-14_121619

11. 連接正確的話，在終端機畫面按下"SHIFT+Y"，你會看到"SM"，這表示已經進入APC UPS Smart mode。 如果沒出現"SM"，請從第1到4步驟再檢查。

12. 輸入"P", 你會看到UPS Load的百分比.

13. 輸入"f", 你會看到UPS battery 的充電率.

14. 輸入"1″兩次, 你會看到"PROG".  (現在開始校正)

15. 輸入"0″, 其會報告現有UPS的電流狀態，一個完美運行的APC UPS會報告"8C"，但有問題APC UPS都會在0X~2X之間。

16. 按著"-" 或"+"，將其選擇至"8C".

17. 按下"SHIFT+R"，看到"BYE"就完成校正(非精確校正)。Battery LED也就不會再閃爍。如果電池電力有問題的，這時就會開始正確的充電。

此時如果電池已經充飽電一段時間並冷卻後，可以再輸入"D", UPS會進行電池測試(也可以跳到步驟20進行測試)。
如果已經設定完畢，請直接關閉超級終端機或TeraTerm。

18. 安裝PowerChute Business Edition，檢查UPS狀態，正常為On-Line +Runtime Remaining  顯示。如果工作環境電壓(Line Voltage)不正常，則會出現"AVR Boost Active"。只要Line Voltage不要高於120，或低於100，其就不用擔心，那其實是正常的。
2014-07-12_070005

19. 並建議執行Self-Test、Runtime calibration跟更新正確的"Last Battery Replacement Date"為電池更換日期。並設定為每14日做self-Test.
2014-07-11_235427

20. 也可手動執行Self-Test。
2014-07-14_111449

附註1：網路另有建議UPS Load 為30~50%做Runtime calibration會比較正確。但UPS Load不會影響到修正Battery LED閃爍問題。此方法非精確的電池校正，所以修正後的結果，不可能會比用儀器校正的精確。

附註2：BR-1000TW 不需做此校正。所以建議一般家庭或公司小耗電資訊設備，可以選用APC BR-1000TW即可。有AVR功能、便宜、換電池又不貴且方便。

資料來源:
http://www.joeteck.com/apc-repair.htm
http://www.computecnetworks.com/?q=node/46
http://blog.tainan.com.tw/2008/10/apc.html

26 9 月, 2020 | Tags: | Category: 不斷電系統UPS, 伺服器設備 | Leave a comment
 
  Older Entries »