分類: 程式設計

RAD PAServer XE4 設定預設密碼

在前一篇XE3設置PAServer的文章中，有教各位如何設定預設的密碼！不過XE4的PAServer成了App後，位置也稍微不同了！分享給朋友們知道一下～

一、在RAD PAServer XE4按右鍵　顯示套件內容

paserverxe4

二、資料夾依序進入　Contents→MacOS

paserverxe4-01

paserverxe4-02

三、可以看到paserver.config這個檔案paserverxe4-03

四、用 文字編輯程式打開

paserverxe4-04

可以看到內容
port=64211
scratchdir=~/RADPAServer/scratch-dir

在最後一行加入

password= xxxx

存檔後就可以囉！

Delphi XE4 for iOS 台中場 Delphi K.Top站長分享App上架流程

強者前東家老闆，同時也是 Delphi K.Top討論區站長 領航天使(李信宏)，透過自己實作的方式分享如何使用Delphi XE4開發iOS以及上架。簡報中也看到實際有上架了二個app，CChess(中國象棋暗棋)以及DiuDiu。這意味著以前利用Delphi 寫的遊戲，可以不用很痛苦的透過Delphi XE4移植到 iOS上囉！

20130522-095215.jpg

【Delphi XE4】iOS開發教學文件

Embarcadero官方的文件 iOS Tutorials: Delphi iOS Application Development ，對於使用Delphi XE4開發iOS有興趣的朋友，一定得下載下來看看的好文件。

下載網址: http://docs.embarcadero.com/products/rad_studio/radstudioXE4/iOS%20Tutorial%20en.pdf

【Delphi XE4】定位功能

示範如果快速使用Delphi XE4開發iOS定位功能的程式

1.建立一個新的FireMonkey Mobile Application

未命名 - 1

2.選擇 Blank Application 空白類型。

未命名 - 2

3.新增元件ListBox，將 Align 改為 alTop； GroupingKind 改為 GsGrouped；StyleLookup 改為 transparentlistboxstyle。

未命名 - 3

4. ListBox按右鍵，Add Item 新增 TListBoxHeader，在裡面新增Label ，屬性 Align 設為 alClient ; StyleLookup 設為 toollabel ; TextAlign 設為 taCenter。

未命名 - 7

5. 接著新增三個 TListBoxItem，分別是開啟定位、經度、緯度。在開啟定位的右側新增TSwitch開關來開啟定位功能。經度、緯度使用TLabel。

未命名 - 22

未命名 - 15

6.接著在畫面上佈置TWebBrowser跟TLocationSensor，TWebBrowser的 Align 設為 alClient。

未命名 - 16未命名 - 18

7.佈置好的畫面如下圖

未命名 - 24

8. 在Switch1 的 OnSwitch 事件中新增程式如下

[delphi]
procedure TForm1.Switch1Switch(Sender: TObject);
begin
LocationSensor1.Active := Switch1.IsChecked ;
end;
[/delphi]

9.接著在 LocationSensor1 的 OnLocationChange事件中新增程式如下

[delphi]
procedure TForm1.LocationSensor1LocationChanged(Sender: TObject;
const OldLocation, NewLocation: TLocationCoord2D);
const
sGoogleMapURL : String = ‘https://maps.google.com/maps?q=%s,%s&output=embed’;
begin
label3.Text := ‘經度: ‘ + NewLocation.Latitude.ToString;
label2.Text := ‘緯度: ‘ + NewLocation.Longitude.ToString;

WebBrowser1.Navigate(Format(sGoogleMapURL,
[NewLocation.Latitude.ToString,
NewLocation.Longitude.ToString]));
end;
[/delphi]

10.大功告成！我們來看執行結果

螢幕快照 2013-05-19 上午11.16.43

螢幕快照 2013-05-19 上午11.22.22

Eclipse出現adt錯誤訊息

打開Eclipse出現以下訊息～

The Android SDK requires Android Developer Toolkit version 21.1.0 or above.
Current version is 21.0.1.2012-12-6-2-58.
Please update ADT to the latest version.

接著還出現　”installing software has encountered a problem”

解決方式：

Window　→ Preferences →  Install/Update → Available Software Sites

點選 adt 按 edit

將http://dl-ssl.google.com/android/eclipse/

改成 https://dl-ssl.google.com/android/eclipse/

【Delphi XE3】編譯成Mac OS可執行程式 – 程式範例

在上一篇文章中，筆者教大家如何在Mac系統中配置PAServer了，接下來要教大家如何設計可以同時執行在Windows及Mac OS的程式。

一、File→New選取FireMonkey Desktop Application

Fire Desktop Application

二、接下來選擇一般的HD FireMonkey Application

Select a firemonkey application type

三、新增專案後，在專案的Target Platform按右鍵，選擇Add Platform

add platform

四、接著選擇OS X後按ｏｋ

Select a Platform

五、接著在OS X按右鍵　Assign Remote Profile 設置OS X的編譯環境

Assign Remote Profile

六、Profile name填上你要的名字

Profile Information

七、Host name填上你在上一篇文章設置的MAC OS主機位置，password則設置上篇文章所設定的密碼。

Host Machine Information

 

八、按 Test Connection測試是否可以連得上(記得要執行paserver)

Test Connection

九、如果順利的話，按下Finish就大功告成！

Create Remote Profile

 

九、接著點選剛才建立的Platform名稱按OK！

Select Remote Profile

十一、如果設定沒錯的話，在XE3按下執行後，程式就會直接執行在Mac OS的畫面上囉！

Test Form

【Delphi XE3】編譯成Mac OS可執行程式 – mac os設置

1.安裝PAServer
將　\Program Files\Embarcadero\RAD Studio\10.0\PAServer中的setup_paserver.zip 複製到　Mac　OSX系统
2.將setup_paserver.zip解壓縮進行安裝。
3.安裝完後，進行環境配置
\user\XXXX\Applications\Embarcadero\RADPAServer\10.0\，執行paserver
4.執行後，paserver會請您設定密碼，設定完後就配置ｏｋ！
5.利用文字編輯程式打開目錄下的 paserver.command，在第二行後面加上-password=xxxx，xxxx是你在上一步驟設定的密碼。儲存後關閉！
6.幫 paserver.command建立捷徑(替身），或是利用「系統偏好設定」→「帳號」→「登入項目」讓它隨系統啟動。

[PHP]計算二點間距離

[php]
#lat1,lon1是第一個點的經緯度
#lat2,lon2是第二個點的經緯度
#unit的話就用"K" (這樣的話傳回值就會是公尺)
function distance($lat1, $lon1, $lat2, $lon2, $unit) {
global $source;
$theta = $lon1 – $lon2;
$dist = sin(deg2rad($lat1)) * sin(deg2rad($lat2)) +cos(deg2rad($lat1)) * cos(deg2rad($lat2)) * cos(deg2rad($theta));
$dist = acos($dist);
$dist = rad2deg($dist);
$miles = $dist * 60 * 1.1515;
$unit = strtoupper($unit);

if ($unit == "K") {
$meters = intval($miles * 1.609344 * 1000);
if($meters > 10000){
return intval($meters/1000).msg(‘公里’,’km’);
}else{
return $meters.msg(‘公尺’,’m’);
}
} else if ($unit == "N") {
return ($miles * 0.8684);
} else {
return $miles;
}
}
[/php]