分類: 程式設計

Delphi FastReport欄位運算

FastReport欄位判斷
[IIF( >= 60,’合格’,’不合格’)]

Band顯示
procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
memo2.text := ‘1234’;
If >= 60 then begin
masterdata1.visible := True;
Memo2.Color := clblue;
Memo2.text := ‘OK’;
end else begin
masterdata1.visible := False;
Memo2.Color := clred;
Memo2.text := ‘Not OK’;
end;
end;

Delphi 安裝次數超過解決方案！

購買 Embarcadero的Delphi XE3之後，因為硬碟操掛的原因！陸續重新安裝過幾次，昨天換了新的電腦後，發現無法線上註冊成功。

登入　https://reg.codegear.com/srs6/activation.do　，註入註冊碼以及登入EDN帳號後。

registrationcount01

 

 

 

 

點選 View extended serial number details

registrationcount02

 

接著發現已經超過預設的三次了

registrationcount

因為我是換電腦不是亂七八糟多安裝的，所以就到客服 http://www.embarcadero.com/support 然後點選”Registration & Installation”

support1

 

 

接著點選 Request a registration limit increase，接著點選原因送出就可以了。

support2

 

原本台灣捷康的Lucy告訴我說需要3~5個工作天，不過早上九點多提出後下午二點多就收到mail回覆了！

registrationcount09

這次要感謝台灣捷康科技(Qcom）的Lucy協助，雖然當初XE3是跟已經收掉的興德資訊買的，不過Lucy不厭其煩的幫忙解答 🙂  才能很快的解決

 

捷康科技股份有限公司 www.qcomgroup.com.tw

許玉香  Lucy Hsu
電話：886-2-2365-0238傳真：886-2-2365-0196
E-mail： Lucyhsu@qcomgroup.com

地址：10647台北市羅斯福路三段 149 號10樓

 

Delphi XE7 開放試用下載了！

昨天看到Jim McKeeth發出訊息，RAD Studio XE7開放試用下載了！

大家可以到　http://www.embarcadero.com/products/delphi 去看官方的資料～

不過上次聽QCom的預覽研討會時，李維大師展示的FireUI又是讓人驚艷的技術了

Delphi寫餐飲硬體標準ESC/POS與醫療檢驗儀器連線ASTM通訊有感

下午到舊公司討論電子發票格式相關問題，跟舊同事聊天聊到電子發票支援的硬體時，舊同事也抱怨到POS相關的硬體廠商雖然”宣稱”支援”標準的ESC/POS指令”，但實測起來每台機器還是會呈現出不同的結果。

突然想到之前在做醫療檢驗儀器連線時，即使設備商提到是使用ASTM格式傳輸，但不管是尿液、血液…..適用什麼immuLite、AXSYM、Alastat….最後在做連線通訊時也是不一樣。

這也是做軟硬體結合時，寫程式的悲哀吧XDDD不過寫出來時又是另一種雀躍的心情了～～

Delphi下載網路圖片且顯示Image

把網路上的圖片顯示在Image如何做到?

[pascal]
var
MS: TMemoryStream;
JPEG: TJPEGImage;
Url: String;
I: Integer;
begin
ProgressBar1.Visible := True;
MS := TMemoryStream.Create;
try
JPEG := TJPEGImage.Create;
try
Url := edit1.text;
MS.Clear;
try
IdHTTP1.Get(Url, MS);
except
end;
MS.Position := 0;
JPEG.LoadFromStream(MS);
Image1.Picture.Assign(JPEG);
Application.ProcessMessages;
finally
JPEG.Free;
end;
finally
MS.Free;
end;
end;
[/pascal]

Delphi撰寫縮小到系統列程式

在畫面上放置
1 ApplicationEvents
2 TrayIcon
3 PopupMenu

然後在ApplicationEvents1Minimize寫上
[pascal]
Hide();
WindowState := wsMinimized;
TrayIcon1.Visible := True;
TrayIcon1.Animate := True;
TrayIcon1.ShowBalloonHint;
[/pascal]
接著在TrayIcon的Click事件讓popupmenu顯示
[pascal]
var
p : TPoint;
begin
GetCursorPos(p);
popupmenu1.Popup(p.X,p.Y);
end;
[/pascal]
最後在popupmenu上的onclick加上
[pascal]
Show;
WindowState := wsMaximized;
trayicon1.Visible := False;
[/pascal]

Delphi隨機產生英文大小寫、數字

Delphi如何透過隨機的函數產生英文大寫、英文小寫以及數字呢？
方法很簡單

[pascal]
// 英文小寫
Randomize;
S := Chr(ord(‘a’) + Random(26));
[/pascal]

[pascal]
// 英文大寫
Randomize;
S := Chr(ord(‘A’) + Random(26));
[/pascal]

[pascal]
// 數字
Randomize;
S := Chr(ord(‘0’) + Random(10));
[/pascal]

Delphi XE6 透過台北市Opendata取得旅遊住宿資料

Delphi在XE5開始就提供了REST Client的元件，讓開發REST Client應用的開發者能在最短的時間開發出相關的應用，今天就利用臺北市政府資料開放平台中的臺北市旅館資料庫資料來做一個簡單的範例「台北住宿通」。讓大家瞭解Delphi 如何存取json資料，並顯示。
詳細內文請見
CodeData >> Delphi APP 開發入門（十）REST Client 開發

 

xe6tour10-16