原创 Google 的免費雲服務器的 SSH 管理

Google 的免費雲服務器 首先註冊一個 gmail 賬號作爲你的 Google 賬號,然後去 cloud.google.com 申請開通免費的雲服務器。所謂免費,是指 Google 會給你的賬戶裏 300 美金用於支付服務器的租金,試

原创 用 Delphi 編譯 Linux 程序的系統環境配置,採用 Win10 Linux 子系統

最新版的 Delphi 10.3.3 可以編譯 Linux 目標程序。比如我用 WebBroker 寫的 WEB server 程序,可以運行到 Linux 服務器底下了。 編譯環境搭建配置,網上的教程通常是在 Windows 電腦上安裝

原创 FireMonkey 底下用自己定義 Style 的方式,給按鈕 Button 以顏色

FireMonkey 裏面有 Style 的支持。通常的用法是做一整套的 Style 然後給一個程序用。官方提供了不少的各種配色的 Style 設計,程序可以直接拿來用。通過使用 Style 來達到換膚的目的。 但自己設計整套的 Styl

原创 繼承一個界面控件,給它增加功能,但繼承的類仍然用父類的名字

這個標題看起來有點不好理解。 問題和解決方法來自這裏:https://blog.grijjy.com/2018/01/26/mvvm-starter-kit-part-3-of-3/ 問題簡述: 0. 傳統做法:繼承一個控件,取一個新的名

原创 安卓APP的http訪問權限

安卓下,默認只允許 https 的訪問,不允許 http 的訪問。 用 Delphi 寫一個安卓 APP,用 TIdHTTP 去訪問一個 WEB 服務器,不行。網上查了一下,發現需要這樣做: 在 APP 的工程目錄下,有一個 XML 文件

原创 Delphi 處理 Windows 下的文本文件的 Unicode 的問題

用 Delphi 寫了個程序,在 Windows 底下,加載一個文本文件,查裏面的字符串。 文本文件,隨手用 Windows 的記事本編輯了一個。 程序運行起來,測試這個文本文件,正常。 但是,某天我把 Windows 的系統語言設置爲英

原创 APP 多張圖片滑動顯示 - 之二

上一個同名的博客,俺寫了如何用代碼去讓 TabControl 切換 TAB 頁的時候出現滑動的效果。 上述代碼,在 WINDOWS 底下是沒有問題的。在 Delphi XE8 上面,跑當年的安卓手機(Android 5.0)也是沒有問題的

原创 FireMonkey 界面的玩法

FireMonkey 用來做 APP 的一個特點就是做界面通吃各平臺,因爲它自己畫圖。因爲自己畫圖,所以如果 APP 需要一些效果,也可以程序員自己搞定,通過組合各種形狀,無需找第三方控件。 先看一個效圖圖:     第一個圖是界面元

原创 安卓下打開 PDF, MP4 等外部文件

用 Delphi 寫的 APP 要打開諸如 MP4,PDF 等文件,可以調用安卓系統裏的其它程序來打開。調用方法,我之前寫過一篇: https://blog.csdn.net/pcplayer/article/details/808523

原创 MediaPlayer Android 下播放 MP4 的問題

開發環境:Delphi 10.3.1 社區版。 測試環境: A. Android 5.0; B. Android 9.0   1. 進度條 Delphi 官方帶的例子裏面,關於進度條的代碼: procedure TForm1.Timer

原创 APP 多張圖片滑動顯示

用 Delphi FireMonkey 做一個簡單的 APP,效果是多張圖片,滑動顯示。一次顯示一張圖片,手指觸摸屏幕左邊,向左滑動顯示下一張圖片;手指觸摸屏幕右邊,向右滑動顯示上一張圖片。圖片切換過程,有滑動過去的動畫效果。 實現方法:

原创 再說安卓的動態權限申請

本博客之前有兩篇文章提到安卓的動態權限申請。各位觀衆讀了以後,可能還是蒙的,因爲那兩篇文章沒寫清楚。所以這裏再寫一篇。 開發環境:Delphi 10.3 社區版。 安卓系統下,APP 需要申請權限的地方有兩處。 1. 原來就有的,Delp

原创 Delphi 開發 Android APP 的 BLE 藍牙的動態權限

Delphi 10.3 社區版,提供的 Sample 裏面有一個例子程序在: C:\Users\Public\Documents\Embarcadero\Studio\20.0\Samples\Object Pascal\Multi-De

原创 採用 TIdHTTP 訪問 https 的網站,採用 TIdTCPClient 訪問 https 的網站

訪問一個 WEB 網站,如果採用 HTTP 的話,直接使用 TIdHTTP 這個控件,最簡單的用法是: S := IdHTTP1.Get('www.qq.com'); 這裏返回的 S 就是對應的網頁的文本內容。 如果要訪問 https 的

原创 Indy TIdTCPClient 的一個用法上要留意的問題,以及 HTTP

Delphi 10.3 社區版 測試用 TIdTCPClient 去連接一個 HTTP 服務器,自己寫 HTTP 請求,發現一個問題。   大致步驟如下: 1. 首先,用 TCP 客戶端,連接一個 HTTP 服務器; 2. 向服務器發送