學習紀錄

以往自己在寫網頁的時候會在網頁載入時帶入GA(Google Analytics)的資料收集

收集看網頁的人愛看哪一頁，哪個商品等等的資訊，在分析

看到論壇有人分享Delphi 應用程式也可適用

稍微將他的範例改了一下....

確實OK的呢

Delphi 標準都不改設定的時候發佈會遇到這個錯誤

其實他不算是錯誤只是個溫馨的小提醒....

主要是因為我們當FMX專案檔開起來之後

目錄下面會有一個AndroidManifest.template.xml

當組譯之後她會變成AndroidManifest.xml 夾帶在你的APK裡面，方便用戶識別你的版本

做這件事情只是我很好奇 為什麼 Delphi 一值沒辦法串好restrul API

有時候這樣寫可以有時候就不行....

介紹三種常見的API使用方式

#1 URL 直接帶入參數

#2 Body參數

#3 Uri 帶入參數

#怕自己失意 先做這個註記

在webapi實寫的時候，由於程式會在本機的SQL做測試

發佈到雲端的時候則會轉變成雲端的資料庫

因此在SQL的連線字串上就要有所變化。

#1 首先我們在web.config上設定我們本機的連線字串

程式就能直接在網頁上跑

17Life的首頁非常的漂亮

想說透過DELPHI來實作一個

這是17LIFE的GIF

https://photos.app.goo.gl/ZFZNwGDMydS4GELj1

這是Delphi弄出來的仿製品

https://photos.app.goo.gl/cEE1ndc5IAe2Xm7i1

10.2.3的版本 有幾個範例，編譯後即可呈現套用後的Style

但原廠的Style太肥導致系統很慢，因此不太適用，是用來參考還ok

但幾天前做好app之後發到實機觀看則發現style並無套用

原因其實很簡單

預設的style 只有使用windows的 如下圖

先把安卓的style弄出來

專案需求因此測試了動態載入.so  靜態載入.a 

動態載入

在Delphi 專案裡 .so 專案檔 Multi-Device Application 的專案，輸出 Android 

在Build的時候則會產生.so檔

再到 IDE ToolBar > Projcet > Deployment 將.so 加入即可

加入後必須調整兩個選項，方可讓下段程式碼 輕易讀取到 .so 的檔案

  public
    FInput:String;
    { Public declarations }

var
  mInput:WideChar;
begin
  mInput := TSpeedButton(Sender).Text[1];

var
  mInput:WideChar;
  KeyInputs: array of TInput;
  //--------------------------------------------
  procedure KeybdInput(VKey: Byte; Flags: DWORD);
  begin
    SetLength(KeyInputs, Length(KeyInputs)+1);
    KeyInputs[high(KeyInputs)].Itype := INPUT_KEYBOARD;
    with  KeyInputs[high(KeyInputs)].ki do
    begin

Arc1: TArc;

 Circle2: TCircle;

  Arc1.EndAngle := 360 / (100 / StrtoInt(edit1.Text)) ;
  Arc2.RotationAngle := Arc1.EndAngle;
  Arc2.EndAngle := 360 / (100 / StrtoInt(edit2.Text)) ;
  Arc3.RotationAngle := Arc1.EndAngle+Arc2.EndAngle;
  Arc3.EndAngle := 360 -Arc3.RotationAngle ;

var
  sSql:String;
  i:integer;
  AdoCmd :TAdoCommand  ;
  p_Start, p_Cost : DWORD;
begin

  //連線字串自己決定，1是開EXCEL的 2是DB的
  ADOConnection1.ConnectionString:='Provider = Microsoft.Jet.OLEDB.4.0; Data Source =12.xls; Extended Properties="Excel 8.0;Persist Security Info=False;IMEX=1;"';
  ADOConnection2.ConnectionString:='Provider=SQLNCLI11.1;Persist Security Info=False;User ID=sa;Initial Catalog=bcppp;Data Source=.;Initial File Name="";Server SPN="";Password="123"';

//先將EXCEL轉入 

這個問題其實我覺得應該要原廠直接改的

現在在W10 或是筆電其實都開始有做觸碰

可能沒有重觸這類的動作(Delphi也沒這樣的事件哈哈) 

但是很基本的長壓滑動這應該是很基本的。

感謝阿卍的教學

可以將 FMX.Platform.Win.pas 複製到你的專案工程目錄內, 再修改 TPlatformWin.GetScrollingBehaviour 函數, 修改如下:

function TPlatformWin.GetScrollingBehaviour: TScrollingBehaviours;
var
Value: Integer;
begin
Value := GetSystemMetrics(SM_DIGITIZER);
if ((Value and NID_READY) = NID_READY) and (((Value and NID_MULTI_INPUT) = NID_MULTI_INPUT)) then
Result := [TScrollingBehaviour.Animation, TScrollingBehaviour.TouchTracking]
else
Result := [TScrollingBehaviour.Animation, TScrollingBehaviour.TouchTracking]; // 手勢滑動
end;

前面有介紹透過Google雲端來更新程式。

首先取得自己的程式版號

//取版號

function GetFileVersion: String;
var
  mStr:String;
  i:integer;
begin

  mStr := GetVersionInfo('FileVersion') ;
  While Pos('.', mStr)>0 do

在以前得版本我們必須使用WindowsAPI來達到視窗圓弧。

在XE10之後的版本製作透明半橢圓就很簡易了

首先兩個Rectangle TOP & Client 

#1 Rect1angle Align 設定TOP

#2 修改XRadius, YRadius 為 20 

#3 Rect2angle Align 設定Client

#4 From1 Transparency = True 

其實以前就有這個屬性了，貌似較Transparent ...但以前沒有Rectangle可以用。

procedure TForm1.FormCreate(Sender: TObject);
var
  I: Integer;
  src: string;
  ms: TMemoryStream;
  si :TCustomsourceItem;
  img  : Timage;
  xList: TList<string>;
  scale:integer;
  d : TCustomDestinationItem;

OK 我們用兩個物件來看。THorzScrollBox [這個我不知道為什麼都做不出拉動的效果]等待大師們指教] , TPresentedScrollBox

新的版本 的移動方式有改過。

HorzScrollBox1.ViewportPosition := PointF( HorzScrollBox1.ViewportPosition.X+ HorzScrollBox1.Width, 0);

要利用這個屬性來做移動 ViewportPosition 以前的Position 現在是物件的水平位置了。

當然這樣的移動在新板的設計是不太符合需求的因此我們透過動畫來呈現

TFloatAnimation 來讓他看起來舒服一點

預計的做法是這樣的

1. 要先想辦法可以直接在程式中雲端上抓到版號

 取得Google雲端的共用Url  https://drive.google.com/file/d/1jJfpbUaS5QXYlkM7GvDKnqYw4Lsn4RRB/view?usp=sharing

紅字部分就是我們要擷取的ID..

再來透過下方的url 將紅字部分覆蓋

測試了一下，這個BCD的顯示有點麻煩，主要在DB.gird的文件內有點問題。

所以在SQL語法上，我們直接將期轉型即可解決此問題。在靜態欄位的宣告 直接使用 TFloatField就好

SQL語法 

CAST(欄位名 As 型態)

CAST (欄位名稱 AS 型態) 欄位名稱 

其實較常用的應該也只有一兩種而已。其他的特效可以在這篇上面預覽

http://docwiki.embarcadero.com/RADStudio/Berlin/ja/FireMonkey_%E3%81%AE%E7%94%BB%E5%83%8F%E5%8A%B9%E6%9E%9C

簡易 說明一下

Trigger 這個屬性呢 是可以直接控制Control的動作的

以上圖為例，當我EDIT被滑鼠移過去的時候就會產生特效

如果Trigger 是空白的話，則必須程式控制。

最常用的就是加陰影或是加擴散性包圍顏色。

羨慕網頁語言的css 一套用上程式就變漂亮了嗎 

delphi 其實也有相同的功能，但是介紹的文件卻是相對地少，你可以把他想成是css的方式，因此物件的命名上就是他的唯一識別值了

開始實作Style 

選擇EDIT Custom Style